visual-basic - Google søge resultater i listview - Udvikleren.dk

Tags: visual-basic

<< < 1 2 3 > >>

Bruger #8719 @ 23.11.06 18:38

Er der nogen der kan forklare hvordan man får googles søge resultater ind i listview eller listbox.

Det jeg mener er at hvis man laver et program som søger på google, skal resultaterne komme frem i listview som links og med navnet på siden.. som hvis jeg for eksempel søger på google på dvd, ville det første link være:
DVDpriser.dk Din danske prisguide - DVDpriser.dk

Det er lidt ligesom det der er her:
http://planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=66496&lngWId=1

jeg kan ikke finde noget nogen steder som forklare hvordan man får forkortet/encoded eller sådan noget en url adresse.
der er en kode i det program der er link til lige ovenover
som er:

Kode

regex.Pattern = "<a title=\\x22[^>]*\\x22 href=([^>]*)>(.*?)</a>"

men det forstår jeg ingenting af.. :-(

25 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 4 karma

Sorter efter stemmer Sorter efter dato

Bruger #8913 @ 26.11.06 16:32

num=40 betyder vel: returner 40 hits!
q=hej betyder vel: question=hej
Så du kan bare ændre 40 til 80, så får du 80 hits, og du kan ændre q=hej til q=dav så får du 80 hits med dav.

Bruger #8719 @ 26.11.06 17:09

Ja det gir mening.. men der er ingen steder i koden der står num=40 eller q=

af de koder du gav mig, kan jeg ikke finde det ihvertfald.. og jeg sætter pris på du har hjulpet mig.. det alletiders..

Kode

Private Sub ParseText(Text As String)
Dim Tmp As Variant
Dim Pos As Long
Dim X1 As Integer

Tmp = Split(Text, "<a class=l href=")
For X1 = 1 To UBound(Tmp)
    Pos = InStr(2, Tmp(X1), Chr(34))
    If Pos > 0 Then
        List1.AddItem Mid(Tmp(X1), 2, Pos - 2)
    End If
Next X1

End Sub

Kode

Private Function GetHTTPSource(ByVal URL As String, Text As String) As Long
Dim objHTTP  As New XMLHTTP

objHTTP.open "GET", URL, False
objHTTP.send

If (objHTTP.Status = "200") Then
    Text = objHTTP.responseText
    GetHTTPSource = 0
    
Else
    GetHTTPSource = 1
End If

Set objHTTP = Nothing

End Function

Bruger #8719 @ 26.11.06 17:19

ups.. det var i den url du mente.. hehe
"http://www.google.dk/search?num=40&hl=da&as_qdr=all&q=hej&meta="

nu har jeg fået det til at virke som jeg ville have det.. mange tak Søren..

Bruger #8719 @ 26.11.06 17:54

Har du nogen forslag til hvordan man laver en knap, så man får resultaterne fra næste side. Altså to knapper: Frem og Tilbage...?

Jeg ved at når man skal til næste side skal man ændre
der hvor der står:
&start=100

hvis man så laver tallet større går man en side frem, så man kan vel lave en function der skifter tallet ud..?

http://www.google.dk/search?q=hej&num=100&lr=&as_qdr=all&start=200&sa=N

Bruger #8913 @ 26.11.06 18:51

Præsis du gav jo selv svaret

Sådan ser URL'en ud ved første, anden, og tredje side når du søger på "hej" med 10 hits pr. side.

http://www.google.dk/search?hl=da&q=hej&meta=
http://www.google.dk/search?q=hej&hl=da&lr=&start=10&sa=N
http://www.google.dk/search?q=hej&hl=da&lr=&start=20&sa=N

Og sådan med 100 hits pr. side:
http://www.google.dk/search?q=hej&num=100&hl=da&lr=&as_qdr=all&start=0&sa=N
http://www.google.dk/search?q=hej&num=100&hl=da&lr=&as_qdr=all&start=100&sa=N
http://www.google.dk/search?q=hej&num=100&hl=da&lr=&as_qdr=all&start=200&sa=N

Bruger #8719 @ 26.11.06 19:25

okay.. men jeg ved ikke hvordan jeg får en knap til at skifte tallene ud.. så man kan gå til side 2,3,4,5 osv...

Bruger #8719 @ 27.11.06 14:45

Jeg ville ønske jeg kunne give dig flere points..

Nu virker det osse med frem og tilbage knapper..
Jeg har tilføjet: List1.Clear
til frem og tilbage knapperne så der ikke kommer flere og flere resultater i listboxen..

Mange tak for hjælpen Søren..

Jeg kan næsten ikke nænne at spørge, men jeg prøver på at få resultatet af søgninger frem på en Label.. altså når man søger på hej kommer der 36.600.000 Søgeresultater..
men kan det lade sig gøre at få resultatet som står mellem:
36.600.000

Her er noget af kildekoden:

Nettet </td><td align=right nowrap>Søgeresultaterne 1 - 10 ud af ca. 36.600.000 for hej. (0,10 sekunder) </td></tr></table>

Bruger #8913 @ 27.11.06 20:51

Ok hermed ny funktion:

Kode

Private Function GetSearchCount(Text As String) As String
Dim Pos1 As Long
Dim Pos2 As Long
Dim X1 As Integer

Pos1 = InStr(1, Text, ">Søgeresultaterne") + 1
Pos2 = Pos1
For X1 = 1 To 3
    Pos2 = InStr(Pos2, Text, "</b>") + 4
Next X1

GetSearchCount = Mid(Text, Pos1, Pos2 - Pos1)
GetSearchCount = Replace(GetSearchCount, "<b>", "")
GetSearchCount = Replace(GetSearchCount, "</b>", "")

End Function

Den kan du så kalde i din Søg, Frem, og Tilbage knap. F.eks. ser Command1_Click sådan ud:

Kode

Private Sub Command1_Click()
Dim Text As String

GetHTTPSource NewSearch(Text1.Text, 10), Text
ParseText Text
Label1.Caption = GetSearchCount(Text)

End Sub

Bruger #8719 @ 27.11.06 22:32

Jeg siger tak igen Søren..

men det virker ikke helt rigtigt når jeg gør det ihvertfald..

Jeg får noget i stil med det her, hvis jeg laver det om så jeg får det ind i en textbox i stedet..

<html><head><meta http-equiv="content-type" content="text/html; charset=UTF-8"><title>hej - Google Search</title><style><!--
div,td{color:#000}

og så mange mange flere linier....

Bruger #8913 @ 28.11.06 07:28

Hos mig returnere funktionen: "Søgeresultaterne 1 - 10 ud af ca. 35.900.000" så jeg ved ikke hvad du gør galt! Hvad er værdien af Pos1 og Pos2 når du når til linien "GetSearchCount = Mid(Text, Pos1, Pos2 - Pos1)" ?
Man kalder funktionen med alt søge teksten. Den indeholder bla. ">Søgeresultaterne 1 - 10 ud af ca. 36.600.000 for hej."
Funktionen leder efter ">Søgeresultaterne" og angiver i Pos1 på hvilken position denne tekst befinder sig. Så leder den efter den 3. forekomst af "".
Så burde man stå tilbage med: "Søgeresultaterne 1 - 10 ud af ca. 36.600.000".
Derefter restattes "" og "" med "" således at vi returnere: "Søgeresultaterne 1 - 10 ud af ca. 36.600.000".
Forstår du ikke hvad koden gør, og kan du heller ikke debugge din kode? Der er jo slet ingen error handling i koden, men jeg får dog samme resultat som dig hvis jeg søger på google efter ingenting, altså at Text1 = "". Det er jo lisom en betingelse at der i resultatet findes teksten ">Søgeresultaterne" ellers virker funktionen jo ikke. Du kan bygge funtionen om således at den ikke returnere noget hvis den ikke finder ">Søgeresultaterne".

Kode

Private Function GetSearchCount(Text As String) As String
Dim Pos1 As Long
Dim Pos2 As Long
Dim X1 As Integer

Pos1 = InStr(1, Text, ">Søgeresultaterne") + 1
If Pos1 > 1 Then
    Pos2 = Pos1
    For X1 = 1 To 3
        Pos2 = InStr(Pos2, Text, "</b>") + 4
    Next X1
    
    GetSearchCount = Mid(Text, Pos1, Pos2 - Pos1)
    GetSearchCount = Replace(GetSearchCount, "<b>", "")
    GetSearchCount = Replace(GetSearchCount, "</b>", "")
End If

End Function

<< < 1 2 3 > >>

Google søge resultater i listview

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler