by Luis Mariscal (11 Submissions)
Category: Internet/HTML
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 20th December 2004
Date Added: Mon 8th February 2021
Rating:
(1 Votes)
html2js : How to convert a html to javascript
Set file = fconn.OpenTextFile("c:\pagina.html", 1, False)
Do While Not file.atEndOfStream
linea = file.readline
pagi2 = pagi2 & "document.write('" & linea & "');" & vbCrLf
Loop
Set file = Nothing
Set fconn = Nothing
' save the javascript
open "c:\pagina.js" for output as #1
print #1, pagi2
close #1