读取文本文件，在 Excel 中匹配和粘贴文本

Question

我有一个包含 3 列的文本文件 test.txt。第 1 列和第 2 列由 2 个空格分隔，第 2 列和第 3 列由 6 个空格分隔。示例：

402115000518432  97517518878      IDLE
402115001509990  97517490827      IDLE
402115001555677  97517339229      IDLE

第一列的所有条目都以 40211 开头

我只想将第一列文本粘贴到 Excel 文件的第一列中。

我正在尝试使用以下代码：

Dim pattern = "(?<=\s*40211.*).*"
Dim i = 1

For Each line In File.ReadLines(RichTextBox3.Text)
            Dim match = Regex.Match(line, pattern)

            If match.Success Then
                sheet.Cells(i, 1).Value = match.Value
                i += 1
            End If
        Next

但它正在粘贴所有 3 列，并且第一列没有 40211 部分。任何帮助表示赞赏。

Answer 1

改用这个表达式：

40211[^\s]*

Answer 2

试着把你的模式改成这个。

Dim pattern = "(^40211\d+)"