Hallo AuoItler,
ich habe ein kleines Problem was das Auslesen von HTML Dateien betrifft.
Und zwar möchte ich für mich eine Liste erstellen die es mir ermöglicht "Firmen Namen + E-Mail Adressen" in eine Textdatei zu speichern. Das mit den Namen klappt alles super gut nur die E-Mail Adresse will nicht ausgelesen und gespeichert werden.
Den Vorab Code habe ich so gemacht, nur die E-Mail will nicht ausgelesen werden.
Quellcode sieht so aus:
<a href="http://www2.dasoertliche.de/?id=2244123438621226015924&recuid=V43QT6NUIEERU5OAKLB2U44PF2P65QLWZEOCKAI&action=58&pagePos=1&dar=1&kw=Grundst%fccksverwaltungen&form_name=detail&lastFormName=search_nat&ci=Hamburg&hitno=0&buab=40000058&backbuab=40000058&zvo_ok=1&zbuab=40000057%2c40000064%2c40000068%2c40000067%2c40000074%2c40000075%2c40000053%2c40000065%2c40000084&orderby=name&ttforderby=rel&buc=2244&verlNr=1126&page=78&context=11&arkey=90400058" class="preview" onclick="return logDetail('2244123438621', 'name', this)"><span class="">Boelter Immobilien GmbH Immobilien </span> <!-- Name -->
<a href="mailto:info@boelter-immo.de" onclick="logEmail('http://www2.dasoertliche.de/', '314_100907_1234_0122_20131012014332987_5164', '3014D4B84B832F72B535B6F56EC255D3', '0122', '112', '2244123438621', '400058', '1', '1', '6', 'Grundstücksverwaltungen');" class="topmail" title="E-Mail versenden">info@boelter-immo.de</a> <!-- E-Mail Adresse -->
Spoiler anzeigen
#include <IE.au3>
#include <Array.au3>
$i=1
$oIE = _IECreate("http://www2.dasoertliche.de/?context=11&form_name=search_nat&zbuab=40000057%2C40000064%2C40000068%2C40000067%2C40000074%2C40000075%2C40000053%2C40000065%2C40000084&buc=2244&action=56&recFrom="&$i&"&zvo_ok=1&radius=5&orderby=name&kw=Grundst%FCcksverwaltungen&page=78&buab=40000058&ttforderby=rel&ci=Hamburg", 0, 0)
$sHtml = _IEBodyReadHTML($oIE)
ClipPut($sHtml)
$ergebnis1 = StringRegExp($sHtml,' this)"><span class="">([^<]+)',3)
$ergebnis = StringRegExp($sHtml,'<a href="mailto:[^<]+)"',3)
_ArrayDisplay($ergebnis1,"Ergebnis_")
_ArrayDisplay($ergebnis,"Ergebnis")
For $i=1 to 19
FileWriteLine(@ScriptDir&"\ergebnis.txt",$ergebnis1[$i])
Next
For $p= 0 to 19
FileWriteLine(@ScriptDir&"\ergebnis1.txt",$ergebnis[$p])
next
Also das sind ca. 1140 Adressen kann aber immer nur 20 aufeinmal auslesen (wünschte würden mehr gehen :D)
Auch habe ich das problem wenn ich das _ArrayDisplay ausschalte gibt er mir nen Error aus, was ich auch nicht verstehe.
Hoffe Ihr könnt mir dort helfen oder wenigstens Anregungen geben wie ich das am besten hin bekomme.
EDIT 01:41h
Also nur mit der Zeile ändern hat es leider nix gebracht. in den Ersten Anläufen funzte es aber danach motzte das Script rum das das Array nicht existiert.