Question

Example Data Link – Sorry, wouldn’t format correctly when pasted.

1.
 Dec 01, 2011
 06:00:00 AM
 Dec 01, 2011
 07:05:00 AM
 65
2.11
2.
 Dec 01, 2011
 06:00:00 PM
 Dec 01, 2011
 07:05:00 PM
 65
2.11
3.
 Dec 02, 2011
 06:05:00 AM
 Dec 02, 2011
 07:05:00 AM
 60
1.95

I’d like each separate line to have its own place in an array or datatable, but I can’t seem to get it to work correctly. There must be something different with the ending characters?

Code is below:

Dim strOutput As String = ""

'' Demo Data
'Dim strData As String = "59. Dec 01, 2011 06:05:00 PM Dec 01, 2011 10:05:00 PM 240 80.00"
'strOutput = +FormatRow(strData)
'' Demo Data

Dim sFileName As String = OpenFileDialog.FileName
If My.Computer.FileSystem.FileExists(sFileName) Then
    Dim srFileReader As System.IO.StreamReader
    Dim sInputLine As String
    srFileReader = System.IO.File.OpenText(sFileName)
    sInputLine = srFileReader.ReadLine()

    Do Until sInputLine Is Nothing
        'strOutput = +FormatRow(sInputLine)
        Dim title As String = srFileReader.ReadLine()
        Dim startTime As DateTime = srFileReader.ReadLine() & " " & srFileReader.ReadLine()
        Dim endTime As DateTime = srFileReader.ReadLine() & " " & srFileReader.ReadLine()
        Dim timeSpan As TimeSpan = endTime.Subtract(startTime)
        Dim minutesTotal As Integer = timeSpan.TotalMinutes
        ' Burn Minutes
        srFileReader.ReadLine()
        Dim billMinutes As Integer = minutesTotal
        Dim billTotal As Double = srFileReader.ReadLine()

        strOutput += ""
    Loop

Output something like:

12/1/2011 6:00:00 AM    12/1/2011 7:05:00 AM    65  65      2.11

Answer 1

You have read while text file at once and I think File.ReadAllLines will be good choice.

 Dim str
 Dim fileName = "C:\SampleData.txt"

 Dim lines() = File.ReadAllLines(fileName)

 For i = 0 To lines.GetUpperBound(0) Step 7
  str = String.Format("{0}{1}{2}{3}{4}{5}", 
                     lines(i), lines(i + 1), lines(i + 2), lines(i + 3), 
                     lines(i + 4), lines(i + 5))
  Console.WriteLine(str)
 Next