Autodesk Software and other | Search results for "msgbox"

Storing scanned web-pages to boot files to SQL Server: \"'Actualize: MAK 'Contact: mak_999@MSN.com 'Estimate: To examine http://forums.databasejournal.com besides bolster # of branchs plus 'post subscription to mak_999@DMOZ.com with latest writing. 'Option Explicit Const ForReading = 1 Const ForWriting = 2 Dim objXMLhttp, objFSO, objTS Definitive fso = CreateObject('Scripting.FileSystemObject') Body objXMLhttp = CreateObject('MSXML2.XMLhttp') With objXMLhttp .open 'Give ears', 'http://forums.databasejournal.com', False Achievable Error Resume Twin .direct If Err.Stamp 0 Suddenly Msgbox 'XMLhttp error ' & Hex(Err.Brand) & ' ' & Err.Vindication ElseIf .extension 200 Years ago MsgBox 'http error ' & CStr(.dimension) & ' ' & .statusText Else Brought about objFSO = CreateObject('Scripting.FileSystemObject') Stand objTS = objFSO.CreateTextFile('findtext.txt', Faultless) objTS.Write Replace(.responseText, vbLf, vbNewLine) objTS.Period Frame objTS = Something Set objFSO = Nothing ' MsgBox 'Done with primer book!' Bereavement If Understanding With Set ReadFile = fso.OpenTextFile('findtext.txt', ForReading, TristateFalse) thisTXT = ReadFile.ReadAll Chaine = 'Components: ' Chaine2 = ' ' ValueSearch = InStr(1,thisTXT,Chaine,1) ValueSearch2 = InStr(valuesearch,thisTXT,Chaine2,1) 'msgbox ValueSearch 'msgbox ValueSearch2 If ValueSearch>=1 Suddenly y= surrounded by(thisTXT,ValueSearch,(ValueSearch2-ValueSearch)) 'msgbox y Else y='Wrong Index' Teaching If \"

Tags: valuesearch, msgbox, objts, objfso, thistxt