Textzeile aus Quellcode auslesen.

  • Hi ich habe ein problem nämlich weiß ich nicht wie ich genau die richtige stelle aus einem unbekannten Quellcode in eine Variable bekomme. Ich habe bis jetzt nur einen ansatzt.

    [autoit]

    #include <IE.au3>
    #include <File.au3>
    $oIE = _IECreate ("http://cluster1.worldofcrime.de/", 0, 1)
    $sHTML = _IEBodyReadHTML ($oIE)
    FileWrite("test.txt", $sHTML)

    [/autoit]


    Ich weiß jetzt leider nicht wie er dieses Auliest z.B. er sucht nach <form name=" und entnimmt dann den Text, der hinter diesem Text steht. Aber eben nur bis zur Stelle wo der Text mit " wieder geschlossen wird. (Damit er nicht die Ganze Zeile ausliest sondern nur diese Text spalte (z.B. <form name="Test"

    Ich hoffe mir kann da jmd. helfen falls er verstanden hat was ich meine ;)
    MFG

    Einmal editiert, zuletzt von Cornfl4kes (8. Juni 2008 um 01:08)

  • Ok danke jetzt muss ich nurnoch wissen wie ich herausfinden kann in welcher Zeile sich der Text befindet für FileReadLine

  • Achso jetzt weiß ich glaub ich was du meinst...
    Hab es ma soch versucht bekomme dann aber eine Fehler meldung

    [autoit]

    #include <IE.au3>
    #include <String.au3>

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

    $oIE = _IECreate ($link, 0, 1)
    $sHTML = _IEBodyReadHTML ($oIE)
    $text = _StringBetween($sHTML, '<form name="', '"')
    MsgBox(0, "", $text[0])

    [/autoit]
  • Es kommt immer Subscript used with non-Array variable. MsgBox(0, "", $text^ERROR

    Ich hoffe mir kann da mal wer helfen.

    MFG Cornfl4kes

  • Okey ein Array scheit es nicht zu sein.^^ aber wie bekomme ich den Ausgelesenen Quellcode zum Array?

  • Ich hab es jetzt halbweg hinbekommen. Allerdings gibt StrinBetween nur eine Zahl aus.

    Spoiler anzeigen
    [autoit]

    Dim $text
    $oIE = _IECreate ("$link", 0, 1)
    $sHTML = _IEBodyReadHTML ($oIE)
    FileWrite("test.txt", $sHTML)
    _FileReadToArray("test.txt", $text)
    $out = _StringBetween($text, '<form name="', '"')
    If IsArray($text) Then
    MsgBox(0, "Is Array", "JA")
    EndIf

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

    MsgBox(0, "", $text[0])

    [/autoit]

    Ausgegeben wird eine 73 dies ist aber nicht die Zeile in der <form name= steht.

  • Ah ok habs jetzt verstanden.... Danke

    Einmal editiert, zuletzt von Cornfl4kes (8. Juni 2008 um 01:08)