Autor | Thema: Ähnlich wie @Trim$() | | Datum:12.04.02 23:05 
(frankabbing@12move.de) | |
Hallo,
@Trim$() schneidet ja führende und endende Leerzeichen ab.
Ich möchte aber nur die führenden Leerzeichen abschneiden.
Hat jemand dazu eine Idee ?
Gruß, Frank
|
| | Datum:12.04.02 23:25 
(prof.chaos@netcologne.de) | |
Hallo Frank,
hab hier eine Funktion @LTrim$() rausgekramt:
def LTrim$(1) if(left$($(1),1)=" ",LTrim$(del$($(1),1,1),$(1)),$(1)) Funktioniert so wie @Trim$().
Gruß,
Sebastian
|
| | Datum:12.04.02 23:26 
(joerse@gmx.de) | |
Hallo Frank,
Häng' einfach ein anderes Zeichen an Deinen String an. Dann mit Trim$ die führenden
Leerstellen erledigen und das Zeichen wieder entfernen.
Kann man sich bestimmt auch 'ne Def für schreiben.
Gruß
Jörg
|
| | Datum:12.04.02 23:39 
(webmaster@rokosoft.de) | |
... und mit einfachen Profanmitteln ;)
declare string$,temp$,stelle%
string$=" DIES IST EIN TEST "
print string$,"VORHER"
stelle%=@Instr(" ",string$)
temp$=mid$(string$,1,1)
while equ$(temp$," ")
string$=@Del$(string$,stelle%,1)
temp$=mid$(string$,1,1)
print string$
waitinput
stelle%=@Instr(" ",string$)
wend
print string$,"NACHHER"
waitinput
Rolf
|
| | Datum:13.04.02 08:11 
| |
DEF LTRIM$(1) @Left$(TRIM$($(1)+"#"),LEN(TRIM$($(1)+"#"))-1)
|
| | Datum:13.04.02 11:30 
| |
Danke Leute !!!
Da hab' ich ja die Quahl der Wahl ;-))
Gruß, Frank
|
| | Datum:13.04.02 13:20 
| |
Nein - hast Du nicht ... von den bisherigen
ist mein Source kürzer und wird vorallen Dingen
nur einmal aufgerufen. Sebastians DEF-Funktion
ruft sich solange auf - wie Leerstellen vorhanden sind.
Gruß Jürgen
|
| | Datum:13.04.02 13:36 
| |
Hallo,
hast recht, Jürgen ;-))
Sebastian:
Deine DEF liefert manchmal ein falsches Ergebniss 8-(), aber keine Ahnung warum...
Jörg und Jürgen:
Eure Technik ist ja gleich, und die kürzeste obendrein
Rolf:
Schleifen sind natürlich langsam und meine Programmstelle war sehr zeitkritisch ;-))
Danke an alle !!!
Gruß, Frank
|
| | Datum:13.04.02 13:44 
(webmaster@rokosoft.de) | |
Natürlich haste Recht Frank,
deswegen hatte ich ja auch das ;) dahinter - aber wie man sieht führen viele Wege nach Rom :)
Rolf
|
| | Datum: 13.04.02 14:09 
| |
So geht es natürlich auch noch:
DEF LTRIM$(1) @Mid$($(1),@Instr(Trim$($(1)),$(1)),Len($(1)))
|
|
|