用正则表试提取百度MP3

这个用正则表试

首先将下面的URL点右键另存为HTML文件，并命名为“firstlove.htm”(第一次爱的人)

http://mp3.baidu.com/m?f=ms&tn=baidump3&ct=134217728&lf=&rn=&word=%B5%DA%D2%BB%B4%CE%B0%AE%B5%C4%C8%CB&lm=-1

比如保存在“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

抛砖引玉，。。。。。。。。。。。。。。。。。。