Ok, hier mein Script, es arbeitet ganz gut, hat aber zwei Mängel
1. beim ersten Export werden bei mir 65 statt 50 Datensätze exportiert, weil beim ersten mal die ersten 15 Zeile mitzählen
2. bei bestimmten ungünstigen Anzahlen wird der letze Datensatz 2x exportiert
Da ich die Daten aber schnell brauchte, habe ich zum Abschluss die Duplikate gelöscht
Hier das Script von AutoIt
Code: Alles auswählen
;-----------------------------------------------------------------------------------------
; Telefonbucheinträge aus Klicktel exportieren
;-----------------------------------------------------------------------------------------
msgbox(64,"Klicktel 1","Telefoneinträge exportieren, Start beim Aktivieren des Klicktelfensters")
Opt("WinTitleMatchMode", 2)
WinWaitActive("Adressanzeige","",10)
Dim $Zaehler
Dim $Anzahl =InputBox("Anzahl der Datensätze","Geben Sie die Anzahl der Datensätze ein",0)
Dim $Dateiname1 =InputBox("Dateiname","Geben Sie einen Dateinamen an: ", "Seelow")
Dim $Dateiname
$Anzahl=Int($Anzahl/50)+1
MsgBox(0,"Anzahl der Durchläufe",$Anzahl)
for $Zaehler=1 to $Anzahl
MouseClick("left",715,450,50) ; Pfeil runter ->50 Datensätze weiter
Send("{SHIFTDOWN}") ; Shifttaste runterdrücken
MouseClick("left",100,440) ; letzte Zeile markieren
Send("{SHIFTUP}") ; Shifttaste loslassen
Send("!a") ; Alt+a -> Menü: Adressen
Send("e") ; e -> Unterpunkt exportieren
MouseClick("left",322,355) ; Auswahl -> markierte Datensätze
Send("{ENTER}") ; Fenster bestätigen
$Dateiname=$Dateiname1 & String($Zaehler) ; Dateinamen bilden
Send("!n") ; Alt+n -> Fokus ins Dateiname-Textfeld
Send($Dateiname) ; Dateinamen eintragen
Send("{ENTER}") ; Eingabe bestätigen
Sleep(1500) ; Speichervorgang abwarten
Send("{ENTER}") ; zum nächsten Datensatz
Send("{DOWN}") ; eine Zeile runter
MouseClick("left",100,440) ; letzte Zeile markieren
Next
