Private Sub extractPages_google_search_site()
Do While (Me.go < Me.page_no)
Dim MatchList As MatchCollection = New Regex("(><a href=\W(https?|ftp|gopher|telnet|file):?((//)|(\\\\))+[\w\d:#@%/;$()~_?\+-=\\\.&]*)\W class=l", RegexOptions.IgnoreCase).Matches(Me.txt_source.Text)
Dim m As Match
For Each m In MatchList
Dim lv_item As New ListViewItem("", 3)
lv_item.SubItems.Add(Uri.UnescapeDataString(m.Value.Replace("><a href=""", "")).Replace(""" class=l", ""))
Me.lv_urls.Items.Add(lv_item)
Next
Me.lbl_url_found.Text = Me.lv_urls.Items.Count.ToString
Me.search_cursor = (Me.search_cursor + 100)
If (Me.page_no = &H3E8) Then
Me.page_no = (Integer.Parse(Me.cbo_max_results.Text) / 100)
End If
Me.go += 1
Me.GetHtmlSource_google_web_search()
Loop
End Sub
Zeleo bih da ga preradim u delphi programski jezik ali samo ga 50 % razumijem (varijable,petlje) pa ako bi neko bio dobar da mi ga pojasni . hvala