Problem mit "Mid()" --> zeigt keine Wirkung

DaManu

Grünschnabel
Hallo Liebe VB Gemeinde,

so ich hab ein wahrlich bescheidenes Problem. Dürfte für euch Pro's kein Problem sein.

Ich muss gleich mal vorweg stellen, ich beschäftige mich erst seit einer Woche intensiv mit VB.

Ich habe nun ein Projekt in der Arbeit bekommen, dieses soll ein Logfile von der VoIP Anlage aufsplitten auf die verschiedenen Vorwahlen, die wir verwenden. (*.log)

Ich habe es inzwischen schon geschafft, dass er mir *.txt rausschmeißt wo nur die Zeilen auftauchen in denen die gesuchte Zeichenfolge vorkommt. Leider kommen so auch falsche Ergebnisse hinzu.

Ich wollte dann mit Mid() die Stelle definieren, allerdings zeigt das keinerlei Wirkung.

Hier der entscheidende Code Teil:

Code:
Do Until EOF(1)
            Line Input #1, var
            Teilstring = Mid(var, 25, 30)
            If InStr(Teilstring, search) > 0 Then
                Write #2, var
            End If
            DoEvents
            txtLog.Text = txtLog.Text & var & vbCrLf
Loop

Ich würde mich wirklich freuen, wenn ihr mir ein wenig Hilfestellung geben könntet und mir sagen könntet, was ich mit dem Mid() Befehl falsch gemacht hab... Ansonsten funktioniert das Ding allerdings schon so, wie es sein soll... Nur die Suche muss halt auf die entsprechende Stelle eingerichtet werden.

Grüße

DaManu


Edit: Ahhhhh, ja... jetz hab ich zumindest hinbekommen, dass er mir das richtige ergebniss in die txt files schreibt, die ich haben wollte... allerdings zeigt er in meiner text box immer noch eine simple kopie des ursprungs log's an... ich will da aber das ergebniss der suche drin haben... kann mir aber nicht erklären, an was das liegt!

Edit 2: So jetzt mach ich's euch ganz einfach... Ich weiß zwar, wo das Problem liegt, allerdings weiß ich nicht wie ich's lösen kann...

Meine Text Box schreibt alles aus Datei #1, soll aber das aus Datei #2 schreiben... wie schaff ichd as?
 
Zuletzt bearbeitet:
Zeile, Zeile, Zeile im Code, an der richtigen Stelle siehst du Grün und nicht Rot: ;)
Visual Basic:
Do Until EOF(1)
            Line Input #1, var
            Teilstring = Mid(var, 25, 30)
            If InStr(Teilstring, search) > 0 Then
                Write #2, var
                txtLog.Text = txtLog.Text & var & vbCrLf
            End If
            DoEvents
Loop


Der Doc!
 

Neue Beiträge

Zurück