Autor: Wojtek

'Constant  Value  Description
'TristateUseDefault  -2  Opens the file using the system default.
'TristateTrue  -1  Opens the file as Unicode.
'TristateFalse   0  Opens the file as ASCII.
Dim fso, stream, str, re, name
name = "moa.html"
Const ForReading = 1, ForWriting = 2, TristateTrue = -1, TristateFalse = 0, TristateUseDefault = -2
Set fso = CreateObject("Scripting.FileSystemObject")

Set stream = fso.OpenTextFile(name , ForReading, False, TristateFalse)
str = stream.ReadAll()
stream.Close
Set stream = Nothing

myResult = "<table border=" & Chr(34) & "1" & Chr(34) & ">" & myResult & "</table>"

Dim strValue As String
          
strValue = Replace(strValue, Chr(13), "") 'enter
strValue = Replace(strValue, Chr(9), "") 'tab
strValue = Replace(strValue, Chr(10), "") 'newline
strValue = Replace(strValue, ":", "") 'colons
strValue = Trim(strValue) 'rtim