Hier wäre auch noch ein Ansatzpunkt:
Code
proc DelSpace$
Parameters p$
p$=Trim$(Translate$(p$,"\t"," "))
while InStr(" ",p$)
p$=Translate$(p$," "," ")
endwhile
Return p$
endproc
Alle Tabs werden in Spaces umgewandelt und doppelte Spaces durch einfache ersetzt. Spaces am Anfang und Ende der Zeile werden entfernt.