WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

Samples from Users
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

makeascii


;Winbatch - Make Ascii Chart

#definesubroutine startMSIE(url)
Browser = CreateObject("InternetExplorer.Application")
Browser.TheaterMode = @false
Browser.Resizable = @True
Browser.addressbar = @false
Browser.statusbar = @false
Browser.menubar = @false
Browser.toolbar = @false
Browser.visible = @false
browser.navigate(url)
WaitForPageLoad()
Browser.visible= @TRUE

RETURN(browser)


#endsubroutine

#DefineSubroutine WaitForPageLoad()  ; assume Browser
   While browser.busy || browser.readystate == 1
      TimeDelay(0.5)
   EndWhile
   While browser.Document.ReadyState != "complete"
      TimeDelay(0.5)
   EndWhile
   return
#EndSubroutine


BoxOpen("Please Wait","Building Web Page Ascii Chart")
cURL = StrCat(dirget(),"asc.htm")
n = @CRLF
c = StrCat("<html>",n,"<body>",n,"<center>",n,"<Table width=340 BORDER=2 CELLSPACING=2 CELLPADDING=2>",n,"<TR>",n)
x = "<TD ALIGN=center>&#0"
x1 = ";<P>&amp;#0"
x2 = ";</TD>"

j=0

For i = 0 to 255
   j = j+1
   v = i
   If v<10 Then v = StrCat("00",v)
   If ( v>=100 && v<100 ) Then v = StrCat("0",v)
   c = StrCat(c,x,v,x1,v,x2,n)
   If j mod 8 == 0
      c = StrCat(c,"</TR>",n)
      If i < 254 Then c = StrCat(c,"<TR>",n)
   Endif

Next

c = StrCat(c,"</TABLE>",n,"</body>",n,"</html>",n)

FilePut(cURL,c)
BoxShut()
br=0
br = startMSIE(cURL)

If br<>0 Then br=0

Exit
;///////////////////////////////////////////////////////////////

Article ID:   W16698
File Created: 2005:02:18:12:21:54
Last Updated: 2005:02:18:12:21:54