blob: 90f7e8e003677bb78bcb68066a439bb87e527a5f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
declare function xtrim (ein as string) as string
dim as string datei,temp
datei=command
open datei for input as #1
do while not eof(1)
line input #1,temp
temp=xtrim(temp)
if lcase(left(temp,10 ))="#include "+chr(22) then 'wir haben ne include!
loop
function xtrim (ein as string) as string
dim as integer temp,i
dim as string aus,foo
foo=rtrim(ltrim(ein))
for i=1 to len(foo)
if mid(foo,i,1)=" " or mid(foo,i,1)=chr(9) then
if temp=0 then
aus+=" "
temp=1
end if
else
temp=0
aus+=mid(foo,i,1)
end if
next
return aus
end function
|