Zeichen in String ermitteln!

[Jörg Lorenz]

Hi Stefan,

Wenn mein File so aussieht:

++10105901#Manuela++10106901#Julien++99999999#Husi

liest das Statement welches du mir gegeben hast die vorderste Zahl (10105901) aus, ich muss aber die hinterste Zahl (99999999) haben... hast du sonst noch eine idee?

OK, dann rollen wir die Sache halt von hinten auf:

strText = "++10105901#Manuela++10106901#Julien++99999999#Husi"

intI = Len(strText)
Do While strRaute <> "#"
    strRaute = Mid(strText, intI, 1)
    intI = intI - 1
Loop
strText = Left(strText, intI)
intI = Len(strText)
strRaute = 1
Do While IsNumeric(strRaute)
    strRaute = Mid(strText, intI, 1)
    intI = intI - 1
Loop
strText = Right(strText, Len(strText) - intI - 1)

Viele Grüße

Jörg