소스 정규식 표현 방법

'카테고리 소스 정규식 표현

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        On Error Resume Next

        Dim count As Integer

        Dim 카테_이름 As New Regex("<strong class=""tit ell"">(.*?)</strong>", RegexOptions.IgnoreCase)

        Dim 카테_URL As New Regex("<a class=""link"" href=""(.*?)"">", RegexOptions.IgnoreCase)

        Dim 카테_그림 As New Regex("\t\t\t\t\t\t<div class=""small"">\n\t\t\t\t\t\t<div class=""bg"">\n\t\t\t\t\t\t\t\t<div class=""thumb"">\n\t\t\t\t\t\t\t\t\t<img onerror=""$Element(this).leave();"" alt="""" src=""(.*?)"" ="""">", RegexOptions.IgnoreCase)

        'Dim 내_URL As New Regex("(.*?)", RegexOptions.IgnoreCase)

        정규식_카테_이름 = 카테_이름.Matches(TextBox1.Text)

        정규식_카테_URL = 카테_URL.Matches(TextBox1.Text)

        정규식_카테_그림 = 카테_그림.Matches(TextBox1.Text)

        '정규식_내_URL = 내_URL.Matches(dataHtml)

        count = 정규식_카테_이름.Count

        With DataGridView1

            .Rows.Clear()

            For i = 0 To count - 1

                .Rows.Add(Replace(정규식_카테_이름.Item(i).Groups.Item(1).ToString, "&amp;", "&"), _

                           "http://post.naver.com" & Replace(정규식_카테_URL.Item(i).Groups.Item(1).ToString, "&amp;", "&"))

                '정규식_카테_그림.Item(i).Groups.Item(1).ToString)

            Next

        End With

    End Sub