Where do I have to change to tell the macros to loop 200 times and not infinite?
Code: Select all
var a, timeOut, playStatus, macro;
var en = "\n";
a = 1;
while (a <= 1) {
macro = "CODE:";
macro += "TAB T=1" + "\n";
macro += "CLEAR" + "\n";
macro += "URL GOTO=http://www.idealista.com/alquiler-viviendas/barcelona/eixample/la-sagrada-familia/" + "\n";
macro += "TAG POS=1 TYPE=SPAN ATTR=CLASS:h1aux EXTRACT=TXT" + "\n";
macro += "TAG POS=1 TYPE=LI ATTR=ID:*&&CLASS:adv*" + "\n";
playStatus = iimPlay(macro)
if (playStatus >= 1) {
a++;
}
else {
iimDisplay("Website time out, reloading...");
a = 1;
}
};
var extracted = iimGetLastExtract();
var del1 = iimGetLastExtract().replace(": ","");
var del2 = del1.replace("anuncios","");
var totalPage = del2;
a = 1;
while (a <= totalPage) {
macro = "CODE:";
macro += "TAB T=1" + "\n";
macro += "TAG POS=1 TYPE=DIV ATTR=CLASS:advertiser-data<SP>txt-soft EXTRACT=TXT" + "\n";
var advertiserData = iimPlay(macro)
var data = iimGetLastExtract();
var searchParticular = /particular/i;
var ifParticular = searchParticular.test(data);
macro = "CODE:";
macro += "TAB T=1" + "\n";
macro += "SET !TIMEOUT_STEP 2" +en;
macro += "TAG POS=1 TYPE=DIV ATTR=CLASS:about-advertiser" + "\n";
var advert = iimPlay(macro)
if (ifParticular == true && advert <= 1) {
iimDisplay("The URL will be extracted. Saving to C:urls.csv")
macro = "CODE:";
macro += "TAB T=1" + "\n";
macro += "SET !EXTRACTADD {{!URLCURRENT}}" + "\n";
macro += "SAVEAS TYPE=EXTRACT FOLDER=C:\ FILE=urls.csv" + "\n";
playStatus = iimPlay(macro)
iimDisplay("Saving complete.")
macro = "CODE:";
macro += "TAB T=1" + "\n";
macro += "TAG POS=1 TYPE=SPAN ATTR=TXT:siguiente" + "\n";
iimPlay(macro)
a++;
}
else {
iimDisplay("The URL will not be Extracted. Next page...")
macro = "CODE:";
macro += "TAB T=1" + "\n";
macro += "TAG POS=1 TYPE=SPAN ATTR=TXT:siguiente" + "\n";
iimPlay(macro)
a++;
}
}