ABAKUS

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