读书人

初学者怎么从文本文档中提取以特定字

发布时间: 2013-06-19 10:26:41 作者: rapoo

菜鸟求助,如何从文本文档中提取以特定字符开头的字符串?
文本文档形如:
(d:\log.txt)
ASDFADF
KLJLJEIWUR
WRQW
OIIPIP[
ID1024
SJFKJKASFJ
ID2048
IUIUOSH21341
89789SDFS98F

现在需要把形如“IDXXXX”的字符串全部提取出来,写入d:\result.txt中,条件为:字符串以“ID”开头,“XXXX”为4位数字,长度固定为6位。

最好是在VS2010下VB.NET可用的,因为前期已实现了一些其他功能,如果变的话还得从头学。

求各位大神路过时顺手给指点一下吧 初学者,怎么从文本文档中提取以特定字符开头的字符串 vb.net vs2010 文本 文本文档
[解决办法]

System.IO.File.WriteAllLines("d:\newdata.txt", System.IO.File.ReadAllLines("d:\log.txt").Where(Function(x) System.Text.RegularExpressions.Regex.IsMatch(x, "ID\w+")))

[解决办法]
放到List里 想怎么玩 就怎么玩
[解决办法]
正则:(?<=\s
[解决办法]
^)ID\d{4}(?=\D
[解决办法]
$)
[解决办法]
不用正则表达式可以不?


Dim a As Array = System.IO.File.ReadAllLines("d:\log.txt.txt")
Dim b As String = "", j As Integer = 1
For i As Integer = 0 To UBound(a) - 1
If a(i).ToString.Substring(0, 2) = "ID" Then
b = b & j.ToString & "-" & a(i).ToString.Substring(2, 4).ToString & vbCrLf
j += 1
End If
Next
System.IO.File.WriteAllText("d:\result.txt", b)


读书人网 >VB Dotnet

热点推荐