html5 - VBScript alternative/conversion? -


i have piece of code long time ago , trying integrate html5. it's written in vbscript, no longer supported, , want change understood modern browsers. part of hta file, in works fine in html5 except script. appreciated.

the code:

</style> <font color="#ff0000" size="+3"><marquee>marquee text here</marquee></font> <script language="vbscript"> public n, itimerid, mytitle, colnum, carset redim m(1,1) redim speccar(64) speccar(0)="&permil;"  speccar(1)="&fnof;"   : speccar(11)="&omega;"   : speccar(21)="&lambda;" : speccar(31)="&phi;" speccar(2)="&gamma;"  : speccar(12)="&alpha;"   : speccar(22)="&mu;"     : speccar(32)="&psi;" speccar(3)="&delta;"  : speccar(13)="&beta;"    : speccar(23)="&nu;"     : speccar(33)="&omega;" speccar(4)="&theta;"  : speccar(14)="&delta;"   : speccar(24)="&xi;"     : speccar(34)="&trade;" speccar(5)="&lambda;" : speccar(15)="&epsilon;" : speccar(25)="&pi;"     : speccar(35)="&larr;" speccar(6)="&xi;"     : speccar(16)="&zeta;"    : speccar(26)="&rho;"    : speccar(36)="&uarr;" speccar(7)="&pi;"     : speccar(17)="&eta;"     : speccar(27)="&sigmaf;" : speccar(37)="&rarr;" speccar(8)="&sigma;"  : speccar(19)="&iota;"    : speccar(29)="&tau;"    : speccar(39)="&harr;" speccar(10)="&psi;"   : speccar(20)="&kappa;"   : speccar(30)="&upsilon;": speccar(40)="&radic;" speccar(41)="&infin;" : speccar(46)="&there4;"  : speccar(51)="&ge;"     : speccar(56)="&clubs;" speccar(42)="&ang;"   : speccar(47)="&asymp;"   : speccar(52)="&oplus;"  : speccar(57)="&hearts;" speccar(43)="&cap;"   : speccar(48)="&ne;"      : speccar(53)="&perp;"   : speccar(58)="&diams;" speccar(44)="&cup;"   : speccar(49)="&equiv;"   : speccar(54)="&loz;"    : speccar(59)="&oelig;" speccar(45)="&int;"   : speccar(50)="&le;"      : speccar(55)="&spades;" : speccar(60)="&dagger;" speccar(61)="&dagger;": speccar(62)="&euro;"    : speccar(63)="&oelig;"  : speccar(64)="&scaron;"  sub window_onload()     n = 48     colnum = 100     carset = 1     redim m(colnum,1)     ' set random number first character      ' written on screen each column      ' (div). useful avoid     ' column start @ same place      i=1 colnum         randomize                                   '---this formula doesn't accept variables         m(i,0) = int(n*rnd)                         '--- m(i,0) contains number of character written         t = ""                                                     '--- fill column white space         j=1 n             t = t & "&nbsp;<br>"         next         m(i,1) = t                                  '--- m(i,1) contains html of column     next     itimerid = window.setinterval("progress", 300) end sub  sub progress     i=1 colnum         l = split(m(i,1), "<br>")                   '--- split each character in column         cpos = m(i,0)                               '--- position of character written on screen @ time                                                     '--- write random ascii or character array          randomize         if int(carset) = 1             l(cpos) = "<span style=""color:greenyellow"">" & chr( 32 + int(223*rnd) ) & "</span>"             carset = carset +0.25         elseif int(carset) = 2             l(cpos) = "<span style=""color:greenyellow"">" & speccar( int(64*rnd) )  & "</span>"             carset = 1         end if                                                     '--- scale down dark previous characters         y = -1         j = cpos-1 cpos-11 step -1             tempj = j             if j < 0                           '--- when start top, darken characters @ bottom                 j = ubound(l) +j +1             end if             y = y + 1             select case y                 case 0 color="lawngreen"                 case 1 color="lawngreen"                 case 2 color="limegreen"                 case 3 color="limegreen"                 case 4 color="forestgreen"                 case 5 color="forestgreen"                 case 6 color="green"                 case 7 color="green"                 case 8 color="darkgreen"                 case 9 color="darkgreen"                 case 10 color=""             end select             clj = l(j)             if instr(1, clj, "<span", 1) > 0   '--- isolate character span tag                 clj = left(clj, instrrev(clj, "<") - 1)                 clj = mid(clj, instr(clj, ">") + 1)             end if             if color <> ""                     '--- set span color style if necessary                 l(j) = "<span style=""color:" & color & """>" & clj & "</span>"             else                 l(j) = clj             end if             j = tempj         next         t = join(l, "<br>")         m(i,1) = t                                  '--- m(i,1) contains html of column         cpos = cpos +1         if cpos > ubound(l)             cpos = 0         end if         m(i,0) = cpos                               '--- m(i,0) contains number of character written         id("col" & i).innerhtml = t                 '--- show result column on screen     next end sub  sub exitmatrix     window.clearinterval(itimerid)                  '---you must clear intervals before leaving     window.close end sub  function id(o)     set id = document.getelementbyid(o) end function </script>


Comments

Post a Comment

Popular posts from this blog

android - InAppBilling registering BroadcastReceiver in AndroidManifest -

i'm implementing inapp billing in android app. works well, however, i'm trying decouple broadcast receiver activity manifest. suggestion in android's trivialdrive sample: // important: dynamically register broadcast messages updated purchases. // register receiver here instead of <receiver> in manifest // because call getpurchases() @ startup, therefore can ignore // broadcasts sent while app isn't running. // note: registering listener in activity bad idea, done here // because sample. regardless, receiver must registered after // iabhelper setup, before first call getpurchases(). currently there's class extends broadcastreceiver : public class iabbroadcastreceiver extends broadcastreceiver { /** * intent action receiver should filter for. */ public static final string action = "com.android.vending.billing.purchases_updated"; private final iabbroadcastlistener mlistener; public iabbroadcastreceiver(iabbroadcastlistener listener) { m...
Read more

python Tkinter Capturing keyboard events save as one single string -

is possible store keyboard events 1 string? code below stores 1 char , prints it. card reader or bar code reader, contains collection of character/ string not 1 character @ time. goal save char pressed text variable. from tkinter import * root = tk() def key(event): text= event.char text+= event.char print ("pressed", text) def callback(event): frame.focus_set() print ("clicked at", event.x, event.y) frame = frame(root, width=100, height=100) frame.bind("<key>", key) frame.bind("<button-1>", callback) frame.pack() root.mainloop() currently, creating text variable , everytime key() function gets called, , text stores last character typed. you can define text module level variable , , use module level text inside key function - text = '' def key(event): global text text+= event.char print("pressed", text)
Read more

sql server - Why does Linq-to-SQL add unnecessary COUNT()? -

here tables: create table customer ( cid int primary key, name varchar(32) ) create table ord ( oid int primary key, cid int foreign key references customer, address varchar(20) ) here's linq-to-sql statement: var aaa = c in db.customer select new { c, o = c.ord.tolist() }; and here's inexplicable query generated linq-to-sql: select [t0].[cid] [cid], [t0].[name] [name], [t1].[oid] [oid], [t1].[cid] [cid2], [t1].[address] [address], (select count(*) [dbo].[ord] [t2] [t2].[cid] = [t0].[cid]) [value] [dbo].[customer] [t0] left outer join [dbo].[ord] [t1] on [t1].[cid] = [t0].[cid] order [t0].[cid], [t1].[oid] i want understand how rid of count(*) part. it's entirely uncalled for! linq needs count(*) in order determine number of entries returned o = c.ord.tolist() .
Read more