仓促写的有很多bug
Dim textArr As String() = File.ReadAllLines(“D:\User\MythHack\Desktop\1.txt”)
dim s As String =”"
For Each Str1 In textArr
s &= System.Text.RegularExpressions.Regex.Match(Str1, “(?\/?.*?)\/”).Groups(“v”).Value & vbCr
Next
Dim a As StreamWriter = New StreamWriter(“D:\User\MythHack\Desktop\2.txt”)
a.WriteLine(s)
a.Close()
MsgBox(True)
 
摘自http://www.mythhack.com/?p=1304