regex i vb.net

Kan du give et eksempel på hvad du ønsker at opnå?

Imports System.Net
Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim newPage As String = GetWebPage("http://imdb.com/title/tt0416449/")

        Dim getDataDirector As New Regex("<h5>Directors?:<\/h5>(.+?)<\/div>")
        Dim recivedDataDirector As MatchCollection = getDataDirector.Matches(newPage)

        Dim showData As Match

        For Each showData In recivedDataDirector
            ListBox1.Items.Add(showData.Groups(1))
        Next
    End Sub

    Private Function GetWebPage(ByVal url As String) As String
        Dim web As New WebClient()
        Return web.DownloadString(url)
    End Function
End Class

Men det resultat som kommer ind i min listbox skal søges igennem igen med en anden regular expression inden den bliver lagt ind i listboxen, håber det giver mening.

Så er det vel klaret ved at lægge endnu en Regex- matchning til inde i

For Each showData In recivedDataDirector

- løkken.

jo ok, men kan man ikke lave noget ala:

Dim getDataDirector As New Regex("<h5>Directors?:<\/h5>(.+?)<\/div>")
Dim recivedDataDirector As MatchCollection = getDataDirector.Matches(newPage)
Dim getDataDirector1 As New Regex("anden søge streng")
Dim recivedDataDirector1 As MatchCollection = getDataDirector1.Matches(recivedDataDirector)

eller noget i den stil, eller skal man hente de første data ud med f.eks en for each inden man kan bruge dem?

Nej, du kan ikke "vidresende" en match på den måde. Men du kunen måske udforme den oprindelige regex på en sådan måde at du før det du leder efter i første forsøg.

nu ser det sådan her ud:

Imports System.Net
Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim newMoviePage As String = GetWebPage("http://imdb.com/title/tt0416449/")

        Dim getDataDirector As New Regex("<h5>Directors?:<\/h5>(.+?)<\/div>", RegexOptions.Singleline)
        Dim recivedDataDirector As MatchCollection = getDataDirector.Matches(newMoviePage)

        Dim showDataDirector As Match

        For Each showDataDirector In recivedDataDirector
            Dim getDataDirector1 As New Regex("<a href=""\/Name[?\/].+?"">(.+?)<\/a>", RegexOptions.Singleline)
            Dim recivedDataDirector1 As MatchCollection = getDataDirector1.Matches(showDataDirector.Groups(1))

            Dim showDataDirector1 As Match

            For Each showDataDirector1 In recivedDataDirector1
                ListBox1.Items.Add(showDataDirector1.Groups(1))
            Next
        Next

    End Sub

    Private Function GetWebPage(ByVal url As String) As String
        Dim web As New WebClient()
        Return web.DownloadString(url)
    End Function
End Class

men det giver fejl ved getDataDirector1.Matches(showDataDirector.Groups(1))  kan ikke konventere til en streng

har ændret
getDataDirector1.Matches(showDataDirector.Groups(1))
til
getDataDirector1.Matches(showDataDirector.Value)

nu virker det, tak for hjælpen

nielle ligger du et svar, da du jo hjalp på vej med løsningen

Svar :^)