菜鸟求助，如何从文本文档中提取以特定字符开头的字符串？
文本文档形如：
（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+")))
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)