Zum Inhalt springen

einfache do Schleife (VBA)


Der_DUD

Empfohlene Beiträge

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

Link zu diesem Kommentar
Auf anderen Seiten teilen

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.
Link zu diesem Kommentar
Auf anderen Seiten teilen

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...