怎么实现TXT格式转HTML格式
要生成一个新的HTML文件，请高手指点！！！
[解决办法]
Dim fTxt As String
Dim fHtml As String
Dim s As String
fTxt = App.Path & "\test.txt "
fHtml = App.Path & "\test.html "
Open fTxt For Input As #1
Open fHtml For Output As #2
Print #2, " <html> <body> "
While Not EOF(1)
Line Input #1, s
Print #2, s & " </br> "
Wend
Print #2, " </body> </html> "
Reset
