Dim WholeFile As String = Chr(10) & File.ReadString("c:\b4j", "SQLiteExport.txt")
'bit of a dog's breakfast, thanks to unquoted LFs in data indistinguishable from end-of-line LFs
Dim SearchPattern As String = "(\d\d\d\d\-[^|]*)\|([^|]*)\|([^|]*)\|([^|]*)\|([^|]*)\|([^|]*)\|([^|]*)\|([^|]*)\|([^|]*)\|([^|]*)\n"
'four digit year, dash, nine bars, LF
Dim ListOfStringArrays As List
ListOfStringArrays.Initialize
Dim m As Matcher = Regex.Matcher(SearchPattern, WholeFile)
Do While m.Find
Dim SA(m.GroupCount)
For I = 1 To m.GroupCount
SA(I - 1) = m.Group(I)
Next
ListOfStringArrays.Add(SA)
Loop
For Each SA() As String In ListOfStringArrays
Log("*** START OF RECORD ***")
For Each S As String In SA
Log("[" & S & "]")
Next
Log("*** END OF RECORD ***")
Next