Hello Ladies and Gentlemen,
i bought a phone book cd, called Das Telefonbuch, which includes the Yellow Pages.
I want to Export some Adresses and phone Numbers.
I need all 15108 data-sets, but i can only export 75 data-sets.
Well that would take a long time.
Therefore i hoped to find a script.
And i found one, but i don't really know how to use it, and if i follow the instructions i've read, it doesn't work.
Here the script:
WinWaitActive("Gelbe Seiten Deutschland")
Dim $runden
Dim $anzahl
Dim $n
$anzahl = 15108 ; Anzahl der Datensaetze
$n = 0 ;Nummer der Startdatei
$runden = $anzahl / 75 + $anzahl / 15000
For $i = $runden To 1 Step -1
WinWaitActive("Gelbe Seiten Deutschland")
Send("+{DOWN 75}")
sleep(100)
ControlClick("Gelbe Seiten Deutschland", "", "[iD:2070]") ;Export Button
WinWaitActive("Export")
ControlSend("Export", "", "[CLASS:SysListView32; INSTANCE:1]", "{DOWN 14}") ;Auswahl auf CSV
ControlClick("Export", "", "[iD:5100]") ; Export Speichern Button
$n = $n + 1
WinWaitActive("Textdatei speichern")
ControlSend("Textdatei speichern", "", "[CLASS:Edit; INSTANCE:1]", $n) ;Dateinamen eingeben
ControlSend("Textdatei speichern", "", "[CLASS:Edit; INSTANCE:1]", "!s") ;Dateinamen eingeben
WinWaitActive("Gelbe Seiten Deutschland")
Sleep(90)
ControlSend("Gelbe Seiten Deutschland", "", "[CLASS:wxWindowClassNR; INSTANCE:2]", "{DOWN}") ;Suchergebnisse
Sleep(90)
ControlFocus("Gelbe Seiten Deutschland", "", "[CLASS:wxWindowClassNR; INSTANCE:2]") ; Focus auf Suchergebnisse
Sleep(50)
Next
I hope you can help me with my problem.
Best regards,
soturiy
