ich hatte gerade einen Fehler hier im Datenbestand der daher stammte, dass ich eine (einfache) Split-Funktion nicht zustande gebracht hatte.
(Wert nach letztem Trennzeichen nicht mit betrachtet )
Jetzt habe ich die Funktion angepasst aber irgendwie sieht das seltsam aus und ich vermute das geht noch einfacher und eleganter!?
Code: Alles auswählen
function FteileText( cText, cTrenner )
local aTexte := {}, nPos
nPos := At( cTrenner, cText )
if nPos>0
do while .not. empty( rtrim( cText ) )
if nPos>0
AAdd( aTexte, rtrim(ltrim(substr( cText, 1, nPos-1 ))) )
cText := substr( cText, nPos+1 )
else
AAdd( aTexte, rtrim(ltrim( cText )) )
cText := ""
endif
nPos := At( cTrenner, cText )
enddo
else
aTexte := { cText }
endif
return aTexte