quelltext nach schlüsselwort auslesen

1. offizieller Beitrag

    Ich will den quelltext meiner seite nach einem schlüsselwort auslesen

    Spoiler anzeigen

    <big><big>Win&nbsp;7 &nbsp; &nbsp;: INR Version
    1.3 <br>

    </big></big><big><big>Win XP : INR Version 1.2 <br>

    und das programm soll immer die Versionsnummern für XP/Vista+ auslesen
    wie mach ich das?

    viele grüße
    JuraX

    Hallo.
    Ich kann dir jetzt zwar keine große Hilfe anbieten, aber etwas kleines.
    Such mal im i.net nach dem COM-Object "winhttp.winhttprequest.5.1"
    Und vllt. kannst du auch rauskriegen, wie man den Text ab einer bestimmten Zeile ausliest.
    Kleiner Hinweis:
    Responsetext is der Quelltext ;)
    MfG. PrideRage

    Meine Projekte:
    ClipBoard Manager (beendet)
    Gutes ClipBoard Verwaltungs Programm mit nützlichen Funktionen.

    HTML Creator (beendet)
    Nützliches Tool um schnell ein eigenes HTML Dokument zu erstellen.

    so ich bin am verzweifeln

    [autoit]

    HttpSetUserAgent("firefox")
    InetGet("http://www.Jurax.square7.ch/INR/LiesMich.txt", @ScriptDir&"\liesmich.txt" )
    If @error Then
    If @OSLang = 0407 Then
    MsgBox( 0,"INR Updater","Keine Verbindung zur Seite. Bitte überprüfen Sie ihre Netzwerkverbindung und versuchen es erneut!" )
    Else
    MsgBox( 0,"INR Updater","Could not connect to site. Please check your connection and try again!" )
    EndIf
    Sleep(4000)
    Exit
    EndIf
    ; INR schliessen
    ProcessClose( "Localtuner.exe" )
    ProcessClose("Radiotuner.exe")
    Sleep(5000)
    ProcessClose( "Localtuner.exe" )
    ProcessClose("Radiotuner.exe")
    ProcessWaitClose( "Localtuner.exe" )
    ProcessWaitClose("Radiotuner.exe")
    $src=_INetGetSource('http://Jurax.square7.ch/INR/') ;INR versionen
    If @OSVersion = "WIN_XP" Then
    $result = _StringBetween($src, "</big></big><big><big>Win XP : INR Version",'<br><a href="formdown.php">Anfordern</a>')
    ElseIf @OSVersion = "WIN_Vista" Or "WIN_7" Then
    $result = _StringBetween($src, "<big><big>Win&nbsp;7 &nbsp; &nbsp;: INR Version","<br></big></big><big><big>Win XP : INR Version")
    EndIf
    if $result==0 Then
    $update_url = "1"
    Else ;Wenn Current Version gefunden wurde, dann vergleiche mit vorhandener Version
    MsgBox(0,"",$result)
    EndIf

    [/autoit]


    wie muss ich das schreiben ,dass es funktioniert?

    • Offizieller Beitrag

    So kannst Du das viel einfacher auslesen:

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    HttpSetUserAgent('firefox')
    $sIndex = BinaryToString(InetRead('http://jurax.square7.ch/INR/index.html'))
    If @error Then
    If @OSLang = 0407 Then
    MsgBox(0, "INR Updater", "Keine Verbindung zur Seite. Bitte überprüfen Sie ihre Netzwerkverbindung und versuchen es erneut!")
    Else
    MsgBox(0, "INR Updater", "Could not connect to site. Please check your connection and try again!")
    EndIf
    Sleep(4000)
    Exit
    EndIf
    $aVersion = StringRegExp($sIndex, 'INR Version\s+(\d+\.\d+)', 3)
    _ArrayDisplay($aVersion)

    [/autoit]