用vb如果实现txt格式转成html文件

最好生成新的HTML文件

解决方案 »

  1.   

    一个例子:Option ExplicitPrivate Sub TXT2HTML(ByVal sTXT As String, ByVal sHTML As String)
        Dim iFileTXT As Long, iFileHTML As Long, sLine As String
        On Error Resume Next
        iFileHTML = FreeFile()
        Open sHTML For Output As #iFileHTML
        If Err.Number = 0 Then
            iFileTXT = FreeFile()
            Open sTXT For Input As #iFileTXT
            If Err.Number = 0 Then
                Print #iFileHTML, "<HTML><BODY>"
                Print #iFileHTML, "</BODY></HTML>"
                Do While Not EOF(iFileTXT)
                    Line Input #iFileTXT, sLine
                    Print #iFileHTML, "<P>" & sLine & "</P>"
                Loop
                Close #iFileTXT
            End If
            Close #iFileHTML
        End If
        On Error GoTo 0
    End SubPrivate Sub Form_Load()
        TXT2HTML "C:\1.txt", "C:\1.HTML"
        End
    End Sub
      

  2.   

    想用 CommonDialog控件输入数据，上面指定固定文件夹相对灵活性不够，HTML语法不太熟悉，如何实现换行，字体选择，和网页背景颜色选择，还请大家指导。