hallo hier ist dann mal mein erstes script was gut einfacher oder besser
Spoiler anzeigen
;;;;;;;; das script ist für http://www.clever-tanken.de
; anpassen möglich einfach bei http://www.clever-tanken.de post leitzahl eingeben tankestelle aussuchen
;den link einfach bei iecreate einsetzen
;läuft unter win 7 und xp 32bit versionen
;autor : sillyboy
#include <string.au3>
#include <file.au3>
#include <Array.au3>
#include <Constants.au3>
#include <IE.au3>
;
#RequireAdmin
Dim $aRecords, $aArray, $FileList[1]
SplashTextOn("", "arbeite", "100", "50", "-1", "-1", $DLG_NOTITLE + $DLG_NOTONTOP, "Courier New", "12", "400")
$oIE = _IECreate("http://www.clever-tanken.de/showtank_payed.asp?Tankstelle=ARAL+Neustadter+Str%2E+137+Sonneberg&secureid=13143&typ=Diesel&ort=965", 0, 0)
$oTable = _IETableGetCollection($oIE)
$oTable = _IETableGetCollection($oIE, 14)
$aTableData = _IETableWriteToArray($oTable)
;_ArrayDisplay($aTableData )
$file = FileOpen(@ScriptDir & "\test.txt", 1)
; Prüfen, ob Datei im Schreibmodus geöffnet ist
If $file = -1 Then
MsgBox(0, "Fehler", "Die Datei test.txt konnte nicht geöffnet werden.")
Exit
EndIf
;_ArrayUnique($aArray[, $iDimension = 1[, $iBase = 0[, $iCase = 0[, $vDelim = "|"]]]])
$PREISEINSTEINELLUBG = _ArrayUnique($aTableData, 4, 0, 0, "|")
$preis = _ArrayToString($PREISEINSTEINELLUBG)
$preisA = StringTrimLeft($preis, 2)
$preisAB = StringTrimRight($preisA, 1)
;MsgBox(0, "String ohne die 1 rechten Zeichen:", $preisAB)
$DIESLEINSTEINELLUBG = _ArrayUnique($aTableData, 5, 0, 0, "|")
$diesel = _ArrayToString($DIESLEINSTEINELLUBG)
$dieselA = StringTrimLeft($diesel, 2)
$dieselAB = StringReplace($dieselA, "|", "")
;,MsgBox(0, "String ohne die 1 rechten Zeichen:", $dieselAB)
$SUPEREINSTEINELLUBG = _ArrayUnique($aTableData, 6, 0, 0, "|")
$SUPER = _ArrayToString($SUPEREINSTEINELLUBG)
$SUPERA = StringTrimLeft($SUPER, 2)
$SUPERAB = StringReplace($SUPERA, "|", "")
$SUPERE10INSTEINELLUBG = _ArrayUnique($aTableData, 7, 0, 0, "|")
$SUPERE10 = _ArrayToString($SUPERE10INSTEINELLUBG)
$SUPERE10A = StringTrimLeft($SUPERE10, 2)
$SUPERE10AB = StringReplace($SUPERE10A, "|", "")
$SUPERPLUS = _ArrayUnique($aTableData, 8, 0, 0, "|")
$SUPERPL = _ArrayToString($SUPERPLUS)
$SUPERPLUSA = StringTrimLeft($SUPERPL, 2)
$SUPERPLUSAB = StringReplace($SUPERPLUSA, "|", "")
;;;;;;;;;;;;;;;;;;;;;ausgabe,,,,,,,,,,,,,,
FileWrite($file, $preisAB & @CRLF & $dieselAB & @CRLF & $SUPERAB & @CRLF & $SUPERE10AB & @CRLF & $SUPERPLUSAB)
$FileList = FileRead(@ScriptDir & "\test.txt")
MsgBox(0, "Tankstelle=ARAL+Neustadter+Str", $FileList)
;;;;;;;;lösche datei
FileDelete(@ScriptDir & "\test.txt")
