Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ...String suchen und auswerten???
Autor: Raggus1
Datum: 06.09.08 01:19
Hallo, danke für deine Hilfe, Zardoz. Aber so ganz verstehe den Code nicht. Wenn ich nehme, dann wird nur ein "Durchlauf" gemach und als MSG kommt dann "1. AN in Zeile xxx" wobei er die letzte eingelesene Zeilennr. ausgibt??? Ich habe mal bisschen versucht etwas zu verändern..... Dim T$, i&, j&, Lst$() Open "c:\vb.aptsource" For Input As #1 T = Input(LOF(1), #1) Close #1 Lst = Split(T, vbCrLf) For i = 0 To UBound(Lst) If Trim$(Lst(i)) = "CUTCOM/LEFT" Then Exit For Next i MsgBox "1. LEFT in Zeile: " & (i + 1) For j = i + 1 To UBound(Lst) Select Case Trim$(Lst(j)) Case "CUTCOM/OFF" MsgBox "1.OFF in Zeile: " & (j + 1) 'Exit For Case "CUTCOM/LEFT" MsgBox "2. LEFT in Zeile: " & (j + 1) 'Exit For End Select Next j bei diesem Code gibt er mir jedes mal wenn er AN oder AUS findet eine MSG... das will ich aber auch nicht. Ich wollte eigentlich, dass er nur eine MSG gibt, wenn AN zweimal hintereinander kommt. Egal wieviel Zeilen dazwischen sind. Also , Zeile x An Zeile xx AUS Zeile xxx AN ist IO Zeile x An Zeile xx AN Zeile xxx Aus dann eine MSG, dass in Zeile xx doppeltes AN gefunden wurde. Ist das mit der CASE-Funktion (null Erfahrung damit) möglich? Es wäre sehr nett Zardoz, wenn du mir noch eine Möglichkeit zeigen könntest. Vielen Dank Raggus

...String suchen und auswerten???	658	Raggus1	04.09.08 17:37
Re: ...String suchen und auswerten???	390	Zardoz	04.09.08 18:03
Re: ...String suchen und auswerten???	400	Raggus1	05.09.08 15:25
Re: ...String suchen und auswerten???	402	Zardoz	05.09.08 17:41
Re: ...String suchen und auswerten???	384	Raggus1	06.09.08 01:19

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