Hallo zusammen,
vielleicht kann sich jemand in mein Problem reindenken und mir ein paar Tipps geben.
Ich habe eine Textdatei welche ich nach mehreren Werten durchsuchen möchte (im Quellcode ist der suchende Wert im String strteile(1), eine 2 oder dreistellige Zahl).
Die Textdatei Test.txt die durchsucht werden soll, kann wie folgt ausschauen:
wenn der String in der Textdatei vorhanden ist z.B 612, dann soll ans Ende der Zeile eine 1 eingefügt werden:
Wenn der Wert nicht vorhanden ist z.B. 712, soll ans Ende eine Zeile eingefügt werden:
Wenn alle Strings in der Textdatei geprüft wurden, soll an die Zeilen wo nichts geändert wurde, eine ",0" angefügt werden
Zwischen Zeile 14 - 26 ist der Code mit dem ich dies umsetzen wollte, allerdings stehe ich seit mehreren Tagen auf dem Schlauch. Hier mal der derzeitige Code
vielleicht kann sich jemand in mein Problem reindenken und mir ein paar Tipps geben.
Ich habe eine Textdatei welche ich nach mehreren Werten durchsuchen möchte (im Quellcode ist der suchende Wert im String strteile(1), eine 2 oder dreistellige Zahl).
Die Textdatei Test.txt die durchsucht werden soll, kann wie folgt ausschauen:
612,1
623,5
626,3
wenn der String in der Textdatei vorhanden ist z.B 612, dann soll ans Ende der Zeile eine 1 eingefügt werden:
612,1,1
623,5
626,3
Wenn der Wert nicht vorhanden ist z.B. 712, soll ans Ende eine Zeile eingefügt werden:
612,1
623,5
626,3
712,0,1
Wenn alle Strings in der Textdatei geprüft wurden, soll an die Zeilen wo nichts geändert wurde, eine ",0" angefügt werden
612,1,1
623,5,0
626,3,0
712,0,1
Zwischen Zeile 14 - 26 ist der Code mit dem ich dies umsetzen wollte, allerdings stehe ich seit mehreren Tagen auf dem Schlauch. Hier mal der derzeitige Code
VB.NET-Quellcode
- Path1 = "V:\Test.txt"
- tempstring1 = System.IO.File.ReadAllLines(Path1)
- ' Zeilenweise text einlesen und in Variablen speichern
- While zaehler1 < tempstring1.Length
- If tempstring1(zaehler1).StartsWith("HZ") Then
- 'Splitten der Textdatei
- dummy = tempstring1(zaehler1) ' HZ/120,2,3
- dummy = dummy.Replace("/", "/ ") ' HZ/ 120,2,3
- dummy = dummy.Replace(",", " , ") ' HZ/ 120 , 2 , 3
- strTeile = dummy.Split(" ") ' Array0 (HZ/)
- ' -----------------------------------------------------------------------------------------------------
- Dim line1 As String
- Dim file As System.IO.StreamReader = New System.IO.StreamReader("C:\HZ.txt")
- Do
- line1 = file.ReadLine()
- If line1.Contains(strTeile(1)) Then ' Ist vorhanden Ans Ende schreiben
- Else ' Ist nicht vorhanden, neue Zeile
- End If
- Loop Until line1 Is Nothing
- file.Close()
- '------------------------------------------------------------------------------------------------
- End If
- zaehler1 += 1
- End While