Inoffizielles deutsches Xbase-Forum

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?

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.

Ah, DAnke Tom. Wußte ich nicht.

Gerne. Übrigens auch eine lässige Funktion, um Text-Importdaten weiterzuverarbeiten.

"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 )

Inoffizielles deutsches Xbase-Forum

Tools3 Token() von hinten

Tools3 Token() von hinten

Re: Tools3 Token() von hinten

Re: Tools3 Token() von hinten

Re: Tools3 Token() von hinten

Re: Tools3 Token() von hinten