Hallo,
ich habe folgendes Problem:
Ich muss viele Ascii-Files in der Form:
---------------------------------------------------------------------------------------------------------------------------------------------------
14.05.2006 TextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextText
TextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextText
TextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextText
21.03.09 TextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextText
TextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextText
TextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextText
TextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextTextText
24.12.2005 TextTextTextTextText
TextTextTextTextText
TextTextTextTextText
TextTextTextTextText
TextTextTextTextText
---------------------------------------------------------------------------------------------------------------------------------------------------
in Datum und Textfelder zerlegen.
Mein Ziel ist es ein Datum und den zugehörigen Text zu erhalten.
Ich hab mir gedacht ich versuchs mal mit Regular Expressions.
Ich scheitere allerdings schon daran den Text in einzelne Blöcke zu zerlegen.
Hier mein Code:
Dim sText As String = File.ReadAllText("d:\temp\sample.txt")
Dim ex As System.Text.RegularExpressions.Regex
Dim pattern As String = "([0-9]{2,2}\.[0-9]{2,2}\.[0-9]{2,4}\s{4,4})+(.*)"
ex = New System.Text.RegularExpressions.Regex(pattern, RegexOptions.Multiline)
Dim coll As MatchCollection = ex.Matches(sText)
For Each m As Match In coll
Debug.Print(m.Value)
Next
Vieleicht weiss jemand Rat.
Besten Dank
Jens
