我有文本文件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部分。任何帮助表示赞赏。
答案 0 :(得分:1)
请改用此表达式:
40211[^\s]*
答案 1 :(得分:1)
尝试将模式更改为此。
Dim pattern = "(^40211\d+)"