Hallo,
nun brummt mir echt der Schädel, need Help.
Ich möchte ein Text File mit vielen Prefixen so auslesen, das ein bestimmtes Prefix gesucht wird und dann der gesamte Text ab diesem Prefix bis zu einem weiteren Prefix ausgelesen wird.
Beispiel:
BLA + WERT + WERT + WERT
BLABLA + WERT + WERT + WERT
HUHU + WERT + WERT + WERT
UNH + WERT + WERT+WERT
BLA + WERT + WERT + WERT
BLABLA + WERT + WERT + WERT
HUHU + WERT + WERT + WERT
UNT + WERT+ WERT + WERT
Jetzt muss also ab dem roten UNH der Text mit den Werten zusammen bis zum roten UNT ausgelesen werden.
wie mache ich das, kann ich in einem Array eine "Suchfunktion" oder ähnliches einbauen, da ich mehrere aufeinander folgende UNH/UNT habe, die immer in einem unbestimmten Abstand auf einander folgen.
Ich will den Text einfach nur sortieren, und jeden Abschnitt (UNH...text.text.UNT) in ein Excel File schreiben.
Habe es mit REad Block versucht...hm..kein erfolg : (
Plz Help.
(Hier der bisherige CODE)
Euer Vamp
nun brummt mir echt der Schädel, need Help.
Ich möchte ein Text File mit vielen Prefixen so auslesen, das ein bestimmtes Prefix gesucht wird und dann der gesamte Text ab diesem Prefix bis zu einem weiteren Prefix ausgelesen wird.
Beispiel:
BLA + WERT + WERT + WERT
BLABLA + WERT + WERT + WERT
HUHU + WERT + WERT + WERT
UNH + WERT + WERT+WERT
BLA + WERT + WERT + WERT
BLABLA + WERT + WERT + WERT
HUHU + WERT + WERT + WERT
UNT + WERT+ WERT + WERT
Jetzt muss also ab dem roten UNH der Text mit den Werten zusammen bis zum roten UNT ausgelesen werden.
wie mache ich das, kann ich in einem Array eine "Suchfunktion" oder ähnliches einbauen, da ich mehrere aufeinander folgende UNH/UNT habe, die immer in einem unbestimmten Abstand auf einander folgen.
Ich will den Text einfach nur sortieren, und jeden Abschnitt (UNH...text.text.UNT) in ein Excel File schreiben.
Habe es mit REad Block versucht...hm..kein erfolg : (
Plz Help.
(Hier der bisherige CODE)
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Textlesen As System.IO.StreamReader = New System.IO.StreamReader("C:\toyota.txt")
Dim TextSchreiben As System.IO.StreamWriter = New System.IO.StreamWriter("C:\toyotaneu.xls")
Dim zwischen As String
' Toyota.txt wird ausgelesen
zwischen = Textlesen.ReadToEnd()
zwischen = zwischen.Replace("'", vbCrLf)
zwischen = zwischen.Replace("UNB", vbCrLf & "UNB" & " " & "Neues Segement" & " ")
zwischen = zwischen.Replace("UNT", vbCrLf & vbCrLf & "UNT" & " " & "Segment ENDE" & " ")
zwischen = zwischen.Replace("LIN", " Line Item Number ")
zwischen = zwischen.Replace("QTY", "Quantity")
zwischen = zwischen.Replace("DTM", vbCrLf & vbCrLf & "Date/Time Period")
zwischen = zwischen.Replace("FTX", "Free text")
zwischen = zwischen.Replace("MOA", "Monetary amount")
zwischen = zwischen.Replace("PRI", "Price detail")
zwischen = zwischen.Replace("RFF", "Reference")
zwischen = zwischen.Replace("LOC", "Location")
zwischen = zwischen.Replace("TAX", "Tax")
'Text wird ausgelesen und enstprechend sortiert
TextSchreiben.Write(zwischen)
'Zu lesender Text wird geschlossen
Textlesen.Close()
Textlesen = Nothing
TextSchreiben.Close()
TextSchreiben = Nothing
End Sub
End Class
Euer Vamp