Hi, ich will um diese Sub eine einfache Do Schleife legen, die den String(s) bis zum Ende durchsucht. suche ist eine Function.

Wie mach ich das,?? Zur Zeit hört er immer nach dem ersten gefundenen "Last-Name" auf.

Sub api_auslesen()

Do

pos = InStr(pos, s, "DS-User=") 'aus cmd1

If pos > 0 Then

s = suche("Last-Name", s)

pos = pos + 5

End If

Loop While pos > 0 'aus cmd1 ENDE

End Sub

Function suche(ByVal kw As String, s As String) As String

Dim i1 As Integer

Dim i2 As Integer

kw = kw & "= "

i1 = InStr(pos, s, kw)

If i1 < 1 Then Exit Function

i2 = InStr(i1, s, ";")

suche = Mid(s, i1 + Len(kw), i2 - i1 - Len(kw))

End Function

Original geschrieben von Der_DUD

Zur Zeit hört er immer nach dem ersten gefundenen "Last-Name" auf.

Das ist nicht weiter verwunderlich, weil Du den zu durchsuchenden String durch den gefundenen ersetzt, indem Du den Rückgabewert von suche wieder s zuweist. Dass dann da nichts mehr zu finden ist, ist doch logisch.

schon klar, habs einfach übersehen! DANKE!