Montag, 20. November 2017

Home
Tipps
Bücher
Software
News / Links
Hilfe
Impressum

Sponsored by
QualityHosting

Frage und Antwort
Trennung von Feldinhalten
Leserbrief vom 13.05.2004
Problem:

Wie werden Feldinhalte nach dem ersten (x-ten) Leerzeichen getrennt?

Antwort der TriniDat GmbH:

Sie können die folgende Funktion benutzen:

Public Function TextAbXtenLeerzeichen(x As Integer, str As String) As String
    If x < 0 Then Exit Function
    If x = 0 Then TextAbXtenLeerzeichen = str: Exit Function
    If Len(Nz(str, "")) = 0 Then Exit Function
    Dim i As Integer
    i = 0
    Dim p As Integer 
    p = InStr(str, " ")
    If p = 0 Then Exit Function
    TextAbXtenLeerzeichen = TextAbXtenLeerzeichen(x - 1, Mid(str, p + 1))

End Function

Fügen Sie den Text der Funktion einfach in ein beliebiges Modul ein. Zum Test der Funktion können Sie die folgenden Anweisungen in das Direktfenster eingeben (die jeweils 2. Zeile zeigt das Ergebnis der Funktion):

? TextAbXtenLeerzeichen(0,"Hallo Ihr Leute")
Hallo Ihr Leute
? TextAbXtenLeerzeichen(1,"Hallo Ihr Leute")
Ihr Leute
? TextAbXtenLeerzeichen(2,"Hallo Ihr Leute")
Leute


Ein Service der TriniDat Software-Entwicklung GmbH - Am Wehrhahn 45 - 40211 Düsseldorf

  Suche
Suche starten
  Service
Leserbrief / Frage zu Access
Kontakt
  NewsLetter
NewLetter bestellen
NewsLetter abbestellen
  Partner-Seiten
HyperLink

www.trinidat.de


HyperLink

www.fulldotnet.de