title image


Smiley Split()-Funktion
Hi,



die Split-Funktion kann Text anhand von trennzeichen splitten und gibt ein Array zurück, das Du ausgeben kannst.



Am einfachsten packst DU den folgenden COde in ein Modul und nutzt die Funktion in einer Abfrage.





Function fncSplit(strText as String, strDelim as String, intPosition as integer) as String



If Len("" & strText) = 0 Then

fncSplit = "Fehler: Kein Eingabetext"

Exit Function

End if



If Len("" & StrDelim) = 0 Then

fncSplit = "Fehler: Kein Trennzeichen"

Exit Function

End if



If intPosition < 0 Then

fncSplit = "Fehler: Keine Position"

Exit Function

End if



fncSplit = Split(strtext, strDelim)(intPosition)



End Function





Aufruf dann in Abfrage z.B. mit



SELECT fncSPlit([DeinFeld];"\";0) FROm DeineTabelle





für die erste Spalte (bis zum ersten "\"). Mit ener 1 statt der 0 bekommst Du die zweite Spalte (zwischen 1. und 2. "\") etc.



HTH

Martin
Atrus2711 ät gmx punkt net
Meine Beiträge zu MS Office betreffen stets Version 2000,
wenn nicht anders angegeben.




geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: