Question

我有文本文件test.txt，它有3列。第一＆amp;第二列由2个空格分隔，第二列和第二列相隔。第3列乘6个空格。样品：

402115000518432  97517518878      IDLE
402115001509990  97517490827      IDLE
402115001555677  97517339229      IDLE

第1列的所有条目均以40211开头

我只希望将第1列文本粘贴到Excel文件的第1列。

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

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列，第1列没有40211部分。任何帮助表示赞赏。

Answer 1

请改用此表达式：

40211[^\s]*

Answer 2

尝试将模式更改为此。

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

阅读文本文件，匹配＆amp;在excel中粘贴文本

2 个答案: