这个用正则表试
首先将下面的URL点右键另存为HTML文件,并命名为“firstlove.htm”(第一次爱的人)
比如保存在“d:/firstlove.htm”
let's Go
'Imports System.IO
Imports System.Text
Imports System.RankException
'Author:wgscd
'Date:2005/10/20
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
redFile()
End Sub
'读文件过程
Sub redFile()
Dim s As IO.Stream = New IO.FileStream("d:/firstlove.htm", IO.FileMode.Open)
Dim sr As New IO.StreamReader(s, Encoding.Default)
‘将文件读进来显示在 RichTextBox1
RichTextBox1.Text = sr.ReadToEnd()
s.Close()
sr.Close()
’定义正则表试
Dim regex As RegularExpressions.Regex
If regex.Match(RichTextBox1.Text, "http://(w?w?w?)[^:]*/.mp3").Success Then
Dim m As RegularExpressions.Match
For Each m In regex.Matches(RichTextBox1.Text, "http://(w?w?w?)[^:]*/.mp3")
MsgBox(m.ToString())‘提取的MP3的URL’怎么利用自己看着办了。
Next
End If
End Sub
抛砖引玉,。。。。。。。。。。。。。。。。。。