计数文本文件中的文本实例数 - VB

时间:2017-04-03 21:13:21

标签: vb.net file parsing text delimited

我需要解析一个大的分隔文本文件(2800万行)并使用VB 2015计算文本文件中特定文本的实例数。

因此,线条的结构是

  

123 | WD7 | ELU | SOD | 010116
  456 | WD9 | LFT | AST | 010116
  135个| WD7 | TFT | THY | 010116
  154 | AED | ELU | SOD | 030116

等等等......

我的确切要求是识别分隔字段2和分隔字段4中的每个条目,然后计算每个条目的实例数。

因此,从上面的行中,字段2中的项目将是WD7,WD9和AED,实例的数量将是WD7 x 2,WD9 x 1和AED x 1.

同样,字段4中的项目将是SOD,AST,THY和SOD,实例数量为SOD x 2,THY x 1,AST x 1.

在解析文件之前,将不知道字段2和字段4中的项目,实际上解析是识别这些字段中包含的文本以及次数。

希望这很清楚,非常感谢任何指导。

史蒂夫

1 个答案:

答案 0 :(得分:0)

试试这个:

Dim textfile As String = "C:/test/test.txt"
Dim stream_reader As New StreamReader(textfil_file)
Dim line As String
line = stream_reader.ReadLine()
Do While Not (line Is Nothing)
        Dim parts As String() = line.Split("|")
        For Each part In parts
            'display them in msgboxes or do whatever you like with them

            MsgBox(part(1))
            MsgBox(part(3))
        Next
    line = stream_reader.ReadLine()
Loop
stream_reader.Close()