SAVE SINGLE FILE WEBPAGE

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   I took this code from someone on this site who created it to search google. I modified it for another site. I'm not an Accuterm or Basic programmer. I was wondering if it's possible to create an MHT file

*
EQU AM TO CHAR(254)
EQU ESC TO CHAR(27)
EQU STX TO CHAR(2)
EQU CR TO CHAR(13)
*
TCLREAD SNT
*
CONVERT CHAR(32) TO AM IN SNT
*
NUM.WORDS = DCOUNT(SNT,AM)
FOR X = 2 TO 6
IF X = 2 THEN
SRCH = SNT<X>
END ELSE
SRCH = SRCH:'+':SNT<X>
END
NEXT X
*
URL1 = 'http://www.searchbug.com/peoplefinder/quicksearch.aspx?TYPE=byname&FNAME=':SNT<2>
URL2 = '&MNAME=':SNT<3>
URL3 = '&LNAME=':SNT<4>
URL4 = '&STATE=':SNT<5>
URL5 = '&CITY=':SNT<6>
URL=URL1:URL2:URL3:URL4:URL5
*
CMD = ESC:STX:'<':URL:CR
PRINT CMD
*
STOP

** IS THIS POSSIBLE???

*SAVE URL STRINGS AS MHT FILE
DIM MESSAGE,CONF,STREAM
SET MESSAGE = CREATEOBJECT("CDO.MESSAGE")
SET CONF = CREATE("CDO.CONFIGURATION")
SET MESSAGE.CONFIGURATION = CONF
MESSAGE.CREATEMHTMLBODY URL
SET STREAM = MESSAGE.GETSTREAM()
DRIVE='C'
FILENAME=FNAME:SNT<2>:' ':SNT<3>:' ':SNT<5>:'.MHT'
FNAME=DRIVE:":\":FILENAME..
STREAM.SAVETOFILE FNAME

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
volkmaniac Members Profile Find Members Posts Newbie Joined: June 12 2008 Location: United States Status: Offline Points: 21	Post Options Post Reply Quote volkmaniac Report Post Thanks(0) Quote Reply Topic: SAVE SINGLE FILE WEBPAGE Posted: July 29 2008 at 9:33am
	I took this code from someone on this site who created it to search google. I modified it for another site. I'm not an Accuterm or Basic programmer. I was wondering if it's possible to create an MHT file * EQU AM TO CHAR(254) EQU ESC TO CHAR(27) EQU STX TO CHAR(2) EQU CR TO CHAR(13) * TCLREAD SNT * CONVERT CHAR(32) TO AM IN SNT * NUM.WORDS = DCOUNT(SNT,AM) FOR X = 2 TO 6 IF X = 2 THEN SRCH = SNT<X> END ELSE SRCH = SRCH:'+':SNT<X> END NEXT X * URL1 = 'http://www.searchbug.com/peoplefinder/quicksearch.aspx?TYPE=byname&FNAME=':SNT<2> URL2 = '&MNAME=':SNT<3> URL3 = '&LNAME=':SNT<4> URL4 = '&STATE=':SNT<5> URL5 = '&CITY=':SNT<6> URL=URL1:URL2:URL3:URL4:URL5 * CMD = ESC:STX:'<':URL:CR PRINT CMD * STOP ** IS THIS POSSIBLE??? *SAVE URL STRINGS AS MHT FILE DIM MESSAGE,CONF,STREAM SET MESSAGE = CREATEOBJECT("CDO.MESSAGE") SET CONF = CREATE("CDO.CONFIGURATION") SET MESSAGE.CONFIGURATION = CONF MESSAGE.CREATEMHTMLBODY URL SET STREAM = MESSAGE.GETSTREAM() DRIVE='C' FILENAME=FNAME:SNT<2>:' ':SNT<3>:' ':SNT<5>:'.MHT' FNAME=DRIVE:":\":FILENAME.. STREAM.SAVETOFILE FNAME
	Jim Volkman jamesvolkman@yahoo.com