Sign in to follow this  
Followers 0
soturiy

Exportpatch for Telephone CD

4 posts in this topic

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. :D

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

 

Share this post


Link to post
Share on other sites



Welcome to AutoIt and the forum!

The limit of 75 records is enforced by the application?


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

Hello,

yes the limit is forced by the application.

But i know that you can script around it in older versions of the cd.

Share this post


Link to post
Share on other sites

When they enforce a limit then I think to bypass the limit might be against their terms of contract.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0