[amibroker] Re: Script for downloading from different servers

["fgornati" <francogornati@xxxxxx>]

Thank you very much, Michael. I'm confident it will solve this really annoying problem.

Thanks again,

Franco

--- In amibroker@xxxxxxxxxxxxxxx, "Michael.S.G." <OzFalcon@xxxx> wrote:
>
> fgornati,
> 
> You can retrieve web pages directly from the script (JScript). You don't 
> need to use urlget program.
> 
> Here is a script that retieves data from a different location, But Im 
> sure you can modify it to suite your needs.
> Just copy & past the following to a textfile and rename as 
> "whatever.js". Be sure to have the .js extension.
> You must also have windows scripting host installed (But I presume you 
> already have this installed).
> 
> /*
> ** AmiBroker/Win32 script.
> **
> ** File:    ASCII-MktData-Get.js
> ** Updated:    October, 11th, 2005
> ** Purpose:    Download MarketData from ASCII-Data.com
> ** Language:    JavaScript (Windows Scripting Host)
> ** Author:    Michael.S.G aka OzFalconAB@xxxx
> */ Version =    "1.04";
>  
> /* Main Script Body Start */
> WScript.Echo( "ASCII-MktData-Get V" + Version + " Started" );
> try
> {
> /* Common Global Variables /*
> /* Input URL Location */
> url = "http://www.ascii-data.com/stocktable1.csv";;
> /* Data Storage Dir */
> StoreDIR = "StoreRAW/";
> /* Output Data filename */
> OutFile1 = "stocktable";
> OutFile2 = ".csv";
> OutFile = StoreDIR+OutFile1+OutFile2;
> ArcFile = StoreDIR+OutFile1+"_"+BuildDate()+OutFile2;
> 
> /* Core Global Variables */
> var xmlHttpObj, Temp;
> var fso, fwrite, fread, rline;
> var ForReading = 1;
> var ForWriting = 2;
> var ForAppending = 8;
> var HTMLData;
> 
> /* Create file system object */
> fso = new ActiveXObject( "Scripting.FileSystemObject" );
> 
> /* Create xmlHTTP Object */
> xmlHttpObj = new ActiveXObject("microsoft.xmlhttp");
> 
> /* Create Folder if needed */
> if(!fso.FolderExists(StoreDIR)) Temp = fso.CreateFolder(StoreDIR);
> 
> /* Core Script Function Start */
> 
> HTMLData = getHTML(url);
> SaveFile(HTMLData,OutFile); // Save copy for Processing
> SaveFile(HTMLData,ArcFile); // Save copy for Archiving
> 
> /* Core Script Function End */
> }
> catch (e) { WScript.echo( "An Error has occured and operation can not be 
> completed."); }
> finally
>  { WScript.Echo( "ASCII-MktData-Get Ending." ); }
> /* Main Script Body End */
> 
> /* Declared Functions */
> function BuildDate()
> {
>     /* Local Variables */
>     var d,fyear,fmonth,fday;
>     var s = "";
> 
>     d = new Date();
>     fyear = d.getYear() ;
>     fmonth = (d.getMonth() + 1) ;
>     fday = d.getDate() ;
>     if (fday < 10) fday = "0" + fday;
>     if (fmonth < 10) fmonth = "0" + fmonth;
>     s = fyear+""+fmonth+""+fday; //Force s to be a string.
>     return s;
> }
> 
> function getHTML(urlGET)
> {
>     /* Local Variables */    
>     var html = "NoData";
>     var status, statustxt;
> 
>     try
>     {
>     xmlHttpObj.open("GET",urlGET,false);
>     xmlHttpObj.send();
>     status = parseInt(xmlHttpObj.status);
>     statustxt = String(xmlHttpObj.statustext);
>     if (status == 200) {html = String(xmlHttpObj.responsetext);}
>     else
>     { WScript.Echo ("Problem retrieving:\n" + urlGET + "\nSystem 
> reports: " + statustxt);
>     throw e; }
>     }
>     catch (e)
>     {
>     WScript.Echo( "System Failed to Access URL" );
>     throw e; // exit, connection attempt failed.
>     } 
>     return html;
> }
> 
> function SaveFile(FileData,FileOUT)
> {
> try {fwrite = fso.OpenTextFile( FileOUT, ForWriting, true);}
> catch(e) {WScript.echo( "There is a problem opening " + FileOUT + " For 
> Writing."); throw e;}
> 
> try {fwrite.Write( FileData );}
> catch(e) {WScript.echo( "There is a problem Writing " + FileOUT ); throw e;}
> finally {fwrite.close();}
> }
>





------------------------ Yahoo! Groups Sponsor --------------------~--> 
Try Online Currency Trading with GFT. Free 50K Demo. Trade 
24 Hours. Commission-Free. 
http://us.click.yahoo.com/RvFikB/9M2KAA/U1CZAA/GHeqlB/TM
--------------------------------------------------------------------~-> 

Please note that this group is for discussion between users only.

To get support from AmiBroker please send an e-mail directly to 
SUPPORT {at} amibroker.com

For other support material please check also:
http://www.amibroker.com/support.html

 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/amibroker/

<*> To unsubscribe from this group, send an email to:
    amibroker-unsubscribe@xxxxxxxxxxxxxxx

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/