Update of /cvsroot/win32forth/win32forth/apps/Internet
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv14491
Added Files:
iRipper.f
Log Message:
Jos: iRipper enables you to copy files from the internet to your local PC using a script.
--- NEW FILE: iRipper.f ---
anew iRipper.f \ Copies files from the internet.
INTERNAL WinLibrary URLMON.DLL EXTERNAL PREVIOUS
string: CollectFile$ s" 20070613.htm" CollectFile$ place
: $CreateFile ( Filename$ - fid )
count r/w create-file abort" Can't create file" ;
: CreateCollectFile ( - )
CollectFile$ $createFile close-file abort" close error" ;
: UrlDownloadToFile ( z"url" - )
CollectFile$ count drop swap 0 0 2swap 0 call URLDownloadToFile drop ;
create site$ LMAXCOUNTED allot
create long$ LMAXCOUNTED allot
: .long$ ( - ) cr long$ lcount 100 min type ;
\ Rip will copy the specified file from the internet to the current
\ directory using the same name.
: rip ( name-file cnt -)
2dup
current-dir$ count CollectFile$ place s" \" CollectFile$ +place
CollectFile$ +place CreateCollectFile
site$ lcount long$ lplace
long$ +lplace
long$ +LNULL .long$
long$ lcount drop UrlDownloadToFile
;
\ SetSite: To target the internetsite. It must end with a "/" !
: SetSite ( adr count - ) site$ lplace ;
\s Disable this line to run the demo.
\ It will copy Forth Dimensions from http://www.forth.org/fd/contents.html
\ That might take some time
s" http://www.forth.org/fd/" SetSite
\ chdir F:\Development\FORTH\4th_dimensions \ Sets the target directory on the local PC
cr cr .date space .time
s" FD-V01N1.pdf" rip
s" FD-V01N2.pdf" rip
s" FD-V01N3.pdf" rip
s" FD-V01N4.pdf" rip
s" FD-V01N5.pdf" rip
s" FD-V01N6.pdf" rip
s" FD-V02N1.pdf" rip
s" FD-V02N2.pdf" rip
s" FD-V02N3.pdf" rip
s" FD-V02N4.pdf" rip
s" FD-V02N5.pdf" rip
s" FD-V02N6.pdf" rip
s" FD-V03N1.pdf" rip
s" FD-V03N2.pdf" rip
s" FD-V03N3.pdf" rip
s" FD-V03N4.pdf" rip
s" FD-V03N5.pdf" rip
s" FD-V03N6.pdf" rip
s" FD-V04N1.pdf" rip
s" FD-V04N2.pdf" rip
s" FD-V04N3.pdf" rip
s" FD-V04N4.pdf" rip
s" FD-V04N5.pdf" rip
s" FD-V04N6.pdf" rip
s" FD-V05N1.pdf" rip
s" FD-V05N2.pdf" rip
s" FD-V05N3.pdf" rip
s" FD-V05N4.pdf" rip
s" FD-V05N5.pdf" rip
s" FD-V05N6.pdf" rip
s" FD-V06N1.pdf" rip
s" FD-V06N2.pdf" rip
s" FD-V06N3.pdf" rip
s" FD-V06N4.pdf" rip
s" FD-V06N5.pdf" rip
s" FD-V06N6.pdf" rip
s" FD-V07N1.pdf" rip
s" FD-V07N2.pdf" rip
s" FD-V07N3.pdf" rip
s" FD-V07N4.pdf" rip
s" FD-V07N5.pdf" rip
s" FD-V07N6.pdf" rip
s" FD-V08N1.pdf" rip
s" FD-V08N2.pdf" rip
s" FD-V08N3.pdf" rip
s" FD-V08N4.pdf" rip
s" FD-V08N5.pdf" rip
s" FD-V08N6.pdf" rip
s" FD-V09N1.pdf" rip
s" FD-V09N2.pdf" rip
s" FD-V09N3.pdf" rip
s" FD-V09N4.pdf" rip
s" FD-V09N5.pdf" rip
s" FD-V09N6.pdf" rip
s" FD-V10N1.pdf" rip
s" FD-V10N2.pdf" rip
s" FD-V10N3.pdf" rip
s" FD-V10N4.pdf" rip
s" FD-V10N5.pdf" rip
s" FD-V10N6.pdf" rip
s" FD-V11N1.pdf" rip
s" FD-V11N2.pdf" rip
s" FD-V11N3.pdf" rip
s" FD-V11N4.pdf" rip
s" FD-V11N5.pdf" rip
s" FD-V11N6.pdf" rip
s" FD-V12N1.pdf" rip
s" FD-V12N2.pdf" rip
s" FD-V12N3.pdf" rip
s" FD-V12N4.pdf" rip
s" FD-V12N5.pdf" rip
s" FD-V12N6.pdf" rip
s" FD-V13N1.pdf" rip
s" FD-V13N2.pdf" rip
s" FD-V13N3.pdf" rip
s" FD-V13N4.pdf" rip
s" FD-V13N5.pdf" rip
s" FD-V13N6.pdf" rip
s" FD-V14N1.pdf" rip
s" FD-V14N2.pdf" rip
s" FD-V14N3.pdf" rip
s" FD-V14N4.pdf" rip
s" FD-V14N5.pdf" rip
s" FD-V14N6.pdf" rip
s" FD-V15N1.pdf" rip
s" FD-V15N2.pdf" rip
s" FD-V15N3.pdf" rip
s" FD-V15N4.pdf" rip
s" FD-V15N5.pdf" rip
s" FD-V15N6.pdf" rip
s" FD-V16N1.pdf" rip
s" FD-V16N2.pdf" rip
s" FD-V16N3.pdf" rip
s" FD-V16N4.pdf" rip
s" FD-V16N5.pdf" rip
s" FD-V16N6.pdf" rip
s" FD-V17N1.pdf" rip
s" FD-V17N2.pdf" rip
s" FD-V17N3.pdf" rip
s" FD-V17N4.pdf" rip
s" FD-V17N5.pdf" rip
s" FD-V17N6.pdf" rip
s" FD-V18N1.pdf" rip
s" FD-V18N2.pdf" rip
s" FD-V18N3.pdf" rip
s" FD-V18N4.pdf" rip
s" FD-V18N5.pdf" rip
s" FD-V18N6.pdf" rip
s" FD-V19N1.pdf" rip
s" FD-V19N2.pdf" rip
s" FD-V19N3.pdf" rip
s" FD-V19N4.pdf" rip
s" FD-V19N5.pdf" rip
s" FD-V19N6.pdf" rip
s" FD-V20N1.pdf" rip
s" FD-V20N2.pdf" rip
s" FD-V20N3.pdf" rip
s" FD-V20N4.pdf" rip
s" FD-V20N5.pdf" rip
s" FD-V20N6.pdf" rip
s" FD-V20N1,2.pdf" rip
\s Note: The coding of the demo could be better.
|
