Question

Example Data Link - Sorry, ben t Format dateded.

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

我和每个单独线一样,在阵列或数据表上都有自己的位置,但我似乎无法正确开展工作。最终性质必须有所不同?

法典如下:

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

产出:

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

Answer 1

你一度阅读了文本,我想到文件。阅读能力将是好的选择。

 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

友情链接