[ reikonija @ 14.10.2011. 22:09 ] @
| 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] |