ErosOlmi
18-03-2007, 10:21
Imagine you have to download multiple pages from internet. Some files, some pages, some FTP ...
Here an example you can amend as you prefer.
Create a text file with the following lines and name it "Sites.txt".
It will contain the list of the downloads you need to perform. Just an example:
http://www.thinbasic.com/
http://www.codingmonkeys.com
ftp://ftp.suse.com/pub/projects/tcl/README
And this is the thinBasic script
Uses "File" '---Load File module needed for File_Load function
Uses "iNet" '---Load iNet module needed for iNet_UrlDownload function
'---Loads all file lines
DIM Sites AS STRING = File_Load(App_SourcePath & "Sites.txt")
'---Determine the number of lines
DIM nLines AS LONG = PARSECOUNT(Sites, $CRLF)
'---This function will parse the input string for $CRLF delimiters
' filling and dimensioning sLines array
DIM sLines() AS STRING
PARSE Sites, sLines, $CRLF
'---Now scan the array in order to find whatever string
' If string is found, corresponding line will be appended
' to output buffer
DIM Count AS LONG
DIM Ret AS LONG
FOR Count = 1 TO nLines
Ret = INET_URLDownLoad(sLines(Count), APP_SOURCEPATH + "FileOut" & Count & ".txt")
IF Ret <> %TRUE THEN
msgbox(0, "Error code for line " & Count & ": " + Ret)
END IF
NEXT
'---End
MSGBOX 0, "End of the script"
Here an example you can amend as you prefer.
Create a text file with the following lines and name it "Sites.txt".
It will contain the list of the downloads you need to perform. Just an example:
http://www.thinbasic.com/
http://www.codingmonkeys.com
ftp://ftp.suse.com/pub/projects/tcl/README
And this is the thinBasic script
Uses "File" '---Load File module needed for File_Load function
Uses "iNet" '---Load iNet module needed for iNet_UrlDownload function
'---Loads all file lines
DIM Sites AS STRING = File_Load(App_SourcePath & "Sites.txt")
'---Determine the number of lines
DIM nLines AS LONG = PARSECOUNT(Sites, $CRLF)
'---This function will parse the input string for $CRLF delimiters
' filling and dimensioning sLines array
DIM sLines() AS STRING
PARSE Sites, sLines, $CRLF
'---Now scan the array in order to find whatever string
' If string is found, corresponding line will be appended
' to output buffer
DIM Count AS LONG
DIM Ret AS LONG
FOR Count = 1 TO nLines
Ret = INET_URLDownLoad(sLines(Count), APP_SOURCEPATH + "FileOut" & Count & ".txt")
IF Ret <> %TRUE THEN
msgbox(0, "Error code for line " & Count & ": " + Ret)
END IF
NEXT
'---End
MSGBOX 0, "End of the script"