Tools3 Token() von hinten

Sonstiges (nicht kategorisierbar)

Moderator: Moderatoren

Antworten
Benutzeravatar
Manfred
Foren-Administrator
Foren-Administrator
Beiträge: 21165
Registriert: Di, 29. Nov 2005 16:58
Wohnort: Kreis Wesel
Hat sich bedankt: 206 Mal
Danksagung erhalten: 67 Mal

Tools3 Token() von hinten

Beitrag von Manfred »

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!!
Benutzeravatar
Tom
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 9345
Registriert: Do, 22. Sep 2005 23:11
Wohnort: Berlin
Hat sich bedankt: 100 Mal
Danksagung erhalten: 359 Mal
Kontaktdaten:

Re: Tools3 Token() von hinten

Beitrag von Tom »

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
Benutzeravatar
Manfred
Foren-Administrator
Foren-Administrator
Beiträge: 21165
Registriert: Di, 29. Nov 2005 16:58
Wohnort: Kreis Wesel
Hat sich bedankt: 206 Mal
Danksagung erhalten: 67 Mal

Re: Tools3 Token() von hinten

Beitrag von Manfred »

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!!
Benutzeravatar
Tom
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 9345
Registriert: Do, 22. Sep 2005 23:11
Wohnort: Berlin
Hat sich bedankt: 100 Mal
Danksagung erhalten: 359 Mal
Kontaktdaten:

Re: Tools3 Token() von hinten

Beitrag von Tom »

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

Re: Tools3 Token() von hinten

Beitrag von DelUser01 »

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