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

Question

我需要解析一个带分隔符的大型文本文件（超过 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 中的项目在解析文件之前是未知的，实际上解析是为了识别这些字段中包含的文本以及次数。

希望这是清楚的，非常感谢您的指导。

史蒂夫

Answer 1

试试这个：

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()

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

Count Number of instances of text in a text file - VB

vb.net

parsing

text

file

delimited