关于检索特定字符的问题?

Question

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Label1.Text = ""
        Dim lngPos As String
        Dim lngpos2 As String
        Dim lngTemp As Long
        Dim lngtemp2 As Long
        Dim lngCount As Long        ' 指定起始位置。
        lngTemp = 1
        lngPos = 1
        lngpos2 = 1
        lngtemp2 = 1
        Do
            ' 存储 strFind 第一次出现的位置。
            lngPos = InStr(lngTemp, TextBox1.Text, "川", vbTextCompare)
            lngpos2 = InStr(lngtemp2, TextBox1.Text, "</td>", vbTextCompare)
            ' 将位置存储在临时变量中。
            If lngpos2 - lngPos < 0 Then
                lngtemp2 = lngpos2 + 4
                lngTemp = lngPos - 4
            Else
                lngtemp2 = lngpos2
                lngTemp = lngPos                If lngPos > 0 Then
                    Label1.Text += Mid(TextBox1.Text, lngTemp, lngtemp2 - lngPos) & "+"
                    lngTemp = lngTemp + 1
                    lngtemp2 = lngtemp2 + 1
                End If
            End If            ' 一直循环到最后一次找到该文本。
        Loop Until lngPos = 0        Dim x() As String
        x = Label1.Text.Split("+")
        Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:\a.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False")
        Dim comm As New OleDb.OleDbCommand
        comm.Connection = conn
        Dim i As Integer
        For i = 0 To CountOccurrences(TextBox1.Text, "川") - 1
            conn.Close()
            comm.CommandText = "insert into aa(a) values ('" & x(i) & "')"
            conn.Open()
            comm.ExecuteNonQuery()
        Next
        MsgBox("finish了!")
    End Sub
这个是检索 网页中包含的 川xxxxxx 的信息的
网页代码中 包含图片的文件名?是说找出后缀为.jpg或者.gif之类的么?

Answer 1

还有一个function CountOccurrences的
在帮助里面可以直接找到

Answer 2

try something like
using System.Text.RegularExpressions;
string s = "...................."; Regex re = new Regex(@"<img[^>]+src\s*=\s*(?:""(?<src>[^""]*)""|'(?<src>[^']*)'|(?<src>\S+))[^>]*>", RegexOptions.IgnoreCase);
MatchCollection mc = re.Matches(s);
Console.WriteLine(mc.Count);
foreach (Match m in mc)
Console.WriteLine(m.Groups["src"].Value);