Zwei Wünsche hätte ich noch. Und ja, ich weiß, das lässt sich natürlich auch leicht in XProfan umsetzen, aber die Funktionen sind recht langsam, vor allem wenn man sie sehr oft in einem Programm benutzt, wie in meinem Fall. Als vorgefertigte Funktion wären sie natürlich deutlich schneller und für allgemein sinnvoll halte ich sie auch.
Trim$() erweitern mit einem zweiten, optionalen Parameter, der angibt welches Zeichen abgeschnitten wird. In meinem Fall ist es \t und meine Funktion ist nicht besonders effizient:
Proc TrimX$
Parameters s$,t$
while Mid$(s$,1,1)=t$
s$=Del$(s$,1,1)
endwhile
while Mid$(s$,Len(s$),1)=t$
s$=Left$(s$,Len(s$)-1)
endwhile
Return s$
endproc
Das ließe sich vielleicht auch mit mehr als einem Zeichen umsetzen.
Das zweite ist eine Funktion Undouble(). Sie ersetzt Mehrfachaufkommen durch einfaches Aufkommen, in meinem Fall " ". Das geht zwar auch mit Translate$(), aber wenn ich zum Beispiel alle mehrfachen Leerzeichen zu einem verkürzen will muss ich mehrere Durchläufe machen wenn " " darin vorkommt:
Proc Undouble
Parameters s$,t$
while InStr(t$+t$,s$)
s$=Translate$(s$,t$+t$,t$)
endwhile
Return s$
endproc
...für den Fall, dass jemand zufällig eine Assemblerversion davon rumliegen hat, wäre das natürlich auch super!