Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Wiedermal InStrRev
Autor: destiny
Datum: 10.01.02 16:37
hi! Ist es nicht möglich zweimal nach Wörtern in einem Text zu suchen?Warum auch immer, klappt das bei diesem Beispiel(sieh Code unten) nicht. Möchte ich z.b. nur nach "End Sub" suchen,klappt alles perfekt,abre sobald ich auch noch z.b "Sub" suchen möchte,gehts nimmer.Habe schon etliches ausprobiert,aber ich bekomme nix hin.Was mach ich denn schon wieder falsch. verzweifelte destiny Open file For Input As #dnrwort While Not EOF(dnrwort) Line Input #dnrwort, var pos_sub = InStrRev(var, "Sub ") pos_ends = InStrRev(var, "End Sub") If pos_sub > 0 Then var_s = Trim$(Mid$(var, pos_sub + 4)) With List1 .AddItem " ~ Sub-Prozedur: " & var_s If pos_ends > 0 Then erg_es = Trim$(Mid$(var, pos_ends)) .AddItem "End Sub: " & erg_es End If End With End If Wend Close #dnrwort

Wiedermal InStrRev	44	destiny	10.01.02 16:37
Re: Wiedermal InStrRev	215	unbekannt	10.01.02 17:49

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen