[ reikonija @ 15.10.2011. 12:40 ] @
Pozdrav , potrebno mi je objasnjenej ovoga koda : Code: 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 |