dkFlyer

Visual Basic Script

Note that VBScript is currently Microsoft Internet Explorer, Only.

For an example of a VBScript, click here, here or here.

This is the VBScript for 'htmlascv.htm' (Building an ASCII Chart):
(01)<SCRIPT LANGUAGE="VBScript">
(02)<!--
(03)dim font1
(04)dim cCount
(05)font1 = "Symbol"
(06)Document.Write "<CENTER><TABLE BORDER=4 WIDTH=90%><TR>"
(07)Document.Write "<TD ALIGN=CENTER>Char</TD>"
(08)Document.Write "<TD ALIGN=CENTER>Normal</TD>"
(09)Document.Write "<TD ALIGN=CENTER>" + font1 + "</TD>"
(10)Document.Write "</TR>"
(11)Document.Write "<TR>"
(12)Document.Write "<TD ALIGN=CENTER>#32</TD>"
(13)Document.Write "<TD ALIGN=CENTER>(Space)</TD>"
(14)Document.Write "<TD ALIGN=CENTER>(Space)</TD>"
(15)Document.Write "</TR>"
(16)For cCount = 33 to 254
(17)  Document.Write "<TR>"
(18)  Document.Write "<TD ALIGN=CENTER>#" & cCount & "</TD>"
(19)  Document.Write "<TD ALIGN=CENTER>&#" & cCount & "</TD>"
(20)  Document.Write "<TD ALIGN=CENTER><FONT FACE=" & chr(34) & font1 & chr(34) & ">&#" & cCount & "</FONT></TD>"
(21)  Document.Write "</TR>"
(22)Next
(23)Document.Write "<TR>"
(24)Document.Write "<TD ALIGN=CENTER>#" & cCount & "</TD>"
(25)Document.Write "<TD ALIGN=CENTER>&#" & cCount & "</TD>"
(26)Document.Write "<TD ALIGN=CENTER></TD>"
(27)Document.Write "</TR>"
(28)Document.Write "</TABLE></CENTER>"
(29)-->
(30)</SCRIPT>
(01)<-- Start VBScript
(02)<-- Hide VBScript
(03)<-- Dimension 'Symbol'
(04)<-- Dimension counter
(05)<-- Set the var 'Symbol'
(06)<-- Write the Table Open
(07)<-- Write 'Char'
(08)<-- Write 'Normal'
(09)<-- Write the var 'Symbol'
(10)<-- Close the Row
(11)<-- Open a Row
(12)<-- Write the # for Space
(13)<-- Write the String 'Space'
(14)<-- Write the String 'Space'
(15)<-- Close the Row
(16)<-- Start a 'for' Loop
(17)<-- Open a Row
(18)<-- Write the # for 'cCount'
(19)<-- Write the Normal Char for 'cCount'
(20)<-- Write the Symbol Char for 'cCount'
(21)<-- Close the Row
(22)<-- Increment 'cCount'
(23)<-- Open a Row
(24)<-- Write the # 256
(25)<-- Write the Normal Char for 256
(26)<-- Skip the Symbol Char for 256
(27)<-- Close the Row
(28)<-- Close the Table
(29)<-- Close Hide
(30)<-- Exit VBScript
You can view this here.
Notice that the VBScript is in the Middle of the Web Page.

View the Microsoft VBScript Tutorial here.

Back to the Table of Contents


Author: Dennis Kennedy
Copyright © 1998 dkFlyer
If you have any questions, email me.

Hosted by www.Geocities.ws

1