Problem: Textfilter -> aus gespeichertem HTML!

  • OFFEN:
    wie kann ich die Ergbnisse aus der Texdatei filtern und als msgbox z.B. die URL von den Suchergebnise(URLs) von Seite 20 anzeigen lassen ?


    REST GELÖST:
    Hallo,

    ich würde gerne ein kleienes Google-Suchtool schreiben, das mit in meiner datein dann die ergebnisse speichert und per Msgbox anzeigt.

    Bislang hab ich nur:

    [autoit]

    $suchstring = "hier den suchstring"
    $seite = 10

    [/autoit][autoit][/autoit][autoit]

    $Form1 = GUICreate("Google Suche v0.1", 396, 294)
    $Label1 = GUICtrlCreateLabel("Google Suchstring", 8, 16, 229, 17)
    $Input1 = GUICtrlCreateInput($suchstring, 8, 40, 121, 21)
    $Label3 = GUICtrlCreateLabel("Ergebnisse von Seite", 8, 72, 122, 17)
    $Input3 = GUICtrlCreateInput($seite, 8, 96, 121, 21)
    $Button1 = GUICtrlCreateButton("starten", 152, 248, 100, 25, 0)
    ;$Button2 = GUICtrlCreateButton("Exit", 312, 256, 75, 25, 0)
    GUISetState(@SW_SHOW)

    [/autoit][autoit][/autoit][autoit]

    inetget("http://www.google.de/search?q="&($suchstring)&"=hp6&start="&($seite)&"&sa=N", "C:\test.txt")
    GUICtrlRead( $suchstring)

    [/autoit]

    Probleme:
    Wie warte ich am einfachsten auf einen Mausklick (starten/exit) !?
    Wie kann ich auch Suchstrings wie -> "Haus am See" +"günstiger Preis" <- übergeben lassen !??
    wie kann ich die Ergbnisse aus der Texdatei filtern und als msgbox z.B. die URL von den Suchergebnise(URLs) von Seite 20 anzeigen lassen ?

    ich hoffe das ist nicht zu viel auf einmal ?

    Einmal editiert, zuletzt von WhiteLion (30. April 2009 um 19:49)

  • [autoit]

    While 1
    Switch Msg
    Case $StartButton
    MsgBox (1, "", "Skript wurde gestartet")
    EndSwitch
    WEnd

    [/autoit]

    Hiermit gehts ^^

  • bei mir nicht!

    ich habe jetzt folgendes, was immernoch nicht geht:

    [autoit]

    #include <string.au3>
    #include <array.au3>
    #include <IE.au3>

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    $suchstring = "hier den suchstring"
    $seite = 10

    [/autoit][autoit][/autoit][autoit]

    $Form1 = GUICreate("Google Suche v0.1", 396, 294)
    $Label1 = GUICtrlCreateLabel("Google Suchstring", 8, 16, 229, 17)
    $Input1 = GUICtrlCreateInput($suchstring, 8, 40, 121, 21)
    $Label3 = GUICtrlCreateLabel("Ergebnisse von Seite", 8, 72, 122, 17)
    $Input3 = GUICtrlCreateInput($seite, 8, 96, 121, 21)
    $Button1 = GUICtrlCreateButton("starten", 52, 248, 100, 25, 0)
    $Button2 = GUICtrlCreateButton("Exit", 312, 248, 75, 25, 0)
    GUISetState(@SW_SHOW)

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    While 1
    Switch
    ;Case Exit($Button2)
    Case $Button1
    MsgBox (1, "", "Skript wurde gestartet")
    Call("suchen")
    EndSwitch
    WEnd

    [/autoit][autoit][/autoit][autoit]

    Func suchen()
    GUICtrlRead($suchstring)
    inetget("http://www.google.de/search?q="&($suchstring)&"=hp6&start="&($seite)&"&sa=N", "C:\test.txt")
    EndFunc

    [/autoit]
  • alles klar, danke ... hat geklappt:

    okey, nächstes problem:
    Bei der suche wird momentan leider nur der anfangs eingegebene text übernommen, nicht aber meine eingabe und ich hab keine ahung warum !?
    Weiterhin Wie kann ich auch Suchstrings wie -> "Haus am See" +"günstiger Preis" <- übergeben lassen !?? Dazu hab ich folgendes beispiel gefunden:
    GELÖST!!

    [autoit]


    ; eingegebenen Begriff bei Ebay suchen
    Func _Suche()
    $suchtext = GUICtrlRead($suchtext_id)
    $suchtext = StringReplace($suchtext," ","+")
    $suchtext = StringReplace($suchtext,"Ä","%C4",0,1)
    $suchtext = StringReplace($suchtext,"ä","%E4",0,1)
    $suchtext = StringReplace($suchtext,"Ö","%D6",0,1)
    $suchtext = StringReplace($suchtext,"ö","%F6",0,1)
    $suchtext = StringReplace($suchtext,"Ü","%DC",0,1)
    $suchtext = StringReplace($suchtext,"ü","%FC",0,1)
    $suchtext = StringReplace($suchtext,"ß","%DF",0,1)
    ShellExecute ("http://search.ebay.de/search/search.dll?from=R40&_trksid=m37&satitle=" & $suchtext & "&category0=")
    GUICtrlSetData($suchtext_id,"")
    EndFunc

    [/autoit]

    ich frage mich ob das mein problem die suche auch mit beliebigen suchstrings durchzuführen beheben würde ?

    LG jens


    ___________________________________

    NOCH OFFEN:
    wie kann ich die Ergbnisse aus der Texdatei filtern und als msgbox z.B. die URL von den Suchergebnise(URLs) von Seite 20 anzeigen lassen ?

    2 Mal editiert, zuletzt von WhiteLion (30. April 2009 um 19:46)