阅读文本文件,匹配&在excel中粘贴文本

时间:2015-05-29 18:10:37

标签: regex vb.net

我有文本文件test.txt,它有3列。第一&第二列由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部分。任何帮助表示赞赏。

2 个答案:

答案 0 :(得分:1)

请改用此表达式:

40211[^\s]*

答案 1 :(得分:1)

尝试将模式更改为此。

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