Code Samples - SAVE SINGLE FILE WEBPAGE

SAVE SINGLE FILE WEBPAGE

Printed From: Rocket Software
Category: AccuTerm Knowledge Base (read only)
Forum Name: Code Samples
Forum Description: Share your code samples and discuss the bundled sample programs
URL: https://forum.asent.com/forum_posts.asp?TID=1351
Printed Date: March 26 2026 at 8:51pm
Software Version: Web Wiz Forums 12.03 - http://www.webwizforums.com

Topic: SAVE SINGLE FILE WEBPAGE

Posted By: volkmaniac
Subject: SAVE SINGLE FILE WEBPAGE
Date 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