Tools3 Token() von hinten
Moderator: Moderatoren
- Manfred
- Foren-Administrator
- Beiträge: 21189
- Registriert: Di, 29. Nov 2005 16:58
- Wohnort: Kreis Wesel
- Hat sich bedankt: 210 Mal
- Danksagung erhalten: 67 Mal
Tools3 Token() von hinten
mit der Funktion Token() aus den Tools3 kann man sich von links nach rechts die Token geben lassen nach einem bestimmten Trennzeichen. Ich müßte das aber andersherum haben, also von rechts nach links durchsucht. Hat jemand eine Idee, wie man das lösen kann?
Gruß Manfred
Mitglied der XUG Osnabrück
Schatzmeister des Deutschsprachige Xbase-Entwickler e.V.
großer Fan des Xbaseentwicklerwiki https://wiki.xbaseentwickler.de/index.p ... Hauptseite
Doof kann man sein, man muß sich nur zu helfen wissen!!
Mitglied der XUG Osnabrück
Schatzmeister des Deutschsprachige Xbase-Entwickler e.V.
großer Fan des Xbaseentwicklerwiki https://wiki.xbaseentwickler.de/index.p ... Hauptseite
Doof kann man sein, man muß sich nur zu helfen wissen!!
- Tom
- Der Entwickler von "Deep Thought"
- Beiträge: 9361
- Registriert: Do, 22. Sep 2005 23:11
- Wohnort: Berlin
- Hat sich bedankt: 101 Mal
- Danksagung erhalten: 361 Mal
- Kontaktdaten:
Re: Tools3 Token() von hinten
Du hast doch eXpress++, oder? Roger hat eine Funktion "DC_TokenArray()" geschrieben, die erzeugt ein Array mit allen Tokens. Das letzte (Len(a)) wäre dann das, das Du suchst.
Herzlich,
Tom
Tom
- Manfred
- Foren-Administrator
- Beiträge: 21189
- Registriert: Di, 29. Nov 2005 16:58
- Wohnort: Kreis Wesel
- Hat sich bedankt: 210 Mal
- Danksagung erhalten: 67 Mal
Re: Tools3 Token() von hinten
Ah, DAnke Tom. Wußte ich nicht.
Gruß Manfred
Mitglied der XUG Osnabrück
Schatzmeister des Deutschsprachige Xbase-Entwickler e.V.
großer Fan des Xbaseentwicklerwiki https://wiki.xbaseentwickler.de/index.p ... Hauptseite
Doof kann man sein, man muß sich nur zu helfen wissen!!
Mitglied der XUG Osnabrück
Schatzmeister des Deutschsprachige Xbase-Entwickler e.V.
großer Fan des Xbaseentwicklerwiki https://wiki.xbaseentwickler.de/index.p ... Hauptseite
Doof kann man sein, man muß sich nur zu helfen wissen!!
- Tom
- Der Entwickler von "Deep Thought"
- Beiträge: 9361
- Registriert: Do, 22. Sep 2005 23:11
- Wohnort: Berlin
- Hat sich bedankt: 101 Mal
- Danksagung erhalten: 361 Mal
- Kontaktdaten:
Re: Tools3 Token() von hinten
Gerne. Übrigens auch eine lässige Funktion, um Text-Importdaten weiterzuverarbeiten.
Herzlich,
Tom
Tom
Re: Tools3 Token() von hinten
"String to Array" mit Tools3:
Code: Alles auswählen
cText := "bla1;bla2;bla3"
aErg := GsStringToArrToken( @cText , ";" , .F. ,0 , .T. )
? Var2CHar( aErg ) // => {"bla1","bla2","bla3"}
Function StringToArrToken( crText , cToken , lUpper , nArrLen , lSIngle )
Local aBegriffe := {}
Local cWord
Local lArrLen := .F.
If lSingle == NIL
lSingle := .F.
EndIf
If nArrLen == NIL
nArrLen := 0
ElseIf nArrLen >= 1
lArrLen := .T.
EndIf
If lUpper
crText := Upper( crText )
cToken := Upper( cToken )
EndIf
TokenInit( @crText , cToken )
Do While ! TokenEnd()
cWord := TokenNext( @crText )
cWord := AllTrim( cWord )
If ! Empty( cWord )
If lSingle
AAdd( aBegriffe , cWord )
Else
AAdd( aBegriffe , { cWord , .F. } )
EndIf
EndIf
EndDo
If lArrLen
Do While Len( aBegriffe ) < nArrLen
If lSingle
AAdd( aBegriffe , "" )
Else
AAdd( aBegriffe , { "" , .F. } )
EndIf
EndDo
EndIf
Return( aBegriffe )