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:
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?
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: