vb.net 提取一级路径

 
仓促写的有很多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=1305