Parsovanje rezultat Google pretrage , pomagajte....
Vec mjesec dana pokusavam skontati kako da parsujem linkove sa google search pretrage , pokusao sam tone linkova i komponenti , za sada najblize sto sam dosao je pomocu ovog koda [ http://achmadz.blogspot.com/2008/02/delphi-link-extractor.html ] ali opet ne dobijam linkove , ako mi iko moze pomoci sa nekim kodom bio bih zahvalan , izludjuje me to vec duze vreme , pre cu naci lijek za sidu nego taj kod.
Koristim Delphi 7 .
Tko mi pomogne bicu mu zahvalan do kraja zivota :)
Nasao sam VB.NET kod :
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
al kako da ga prebacim u Delphi :(
[Ovu poruku je menjao reikonija dana 15.10.2011. u 00:15 GMT+1]
 |  |
 |
