Anatoliy,
You are a real peach. This works great.
I made a slight modification to your code and slid it into the validation program and validated 200 G/L numbers in seconds.
* MFKGetValid.prg
* Routine to access MFK validation url.
* From Universal Thread response
* 2/23/2006
DECLARE INTEGER URLDownloadToCacheFile IN urlmon;
INTEGER lpUnkcaller, STRING szURL, STRING @szFileName,;
INTEGER dwBufLength, INTEGER dwReserved, INTEGER pBSC
cFilename = RemoteToLocal("
http://...")
* open and parse cFilename
FUNCTION RemoteToLocal(cRequest)
LOCAL nResult, cTargetFile
cTargetFile = Repli(Chr(0), 250)
WAIT WINDOW NOWAIT "Downloading remote file..."
nResult = URLDownloadToCacheFile(0, cRequest, @cTargetFile,;
Len(cTargetFile), 0,0)
WAIT CLEAR
STRTRAN(cTargetFile, Chr(0), "")
** this is the change so I can parse the contents
mcreturn = ALLTRIM(FILETOSTR(ctargetfile))
***RETURN STRTRAN(cTargetFile, Chr(0), "")
RETURN mcreturn
Thanks again.
Pamela