你将text中的回车换成<br>就可以了
sHtml = Replace(sText, Char(13) & Chr(10), "<br>")

解决方案 »

  1.   

    对不起我是要把HTML转为TEXT啊!
      

  2.   

    http://www.applevb.com/sourcecode/html2txt2.00.zip
      

  3.   

    你可以试试 split函数
    split( s, "<br>") 会返回一个变体字符串数组,数组的每个元素就是一行文本!
      

  4.   

    那你就反过来阿,你将html中的<br>换成回车换行就可以了
    先得到html的代码(用richTextbox 打开就可以了)
    strText= Replace(strHtml, "<br>",Char(13) & Chr(10))
      

  5.   

    哦,谢谢各位的帮助,html2txt2.00.zip的却不错,但是如果知道他是如何实现这个功能就最好了,有谁知道他的代码?谢谢
      

  6.   

    不是我贪心,只不过我只会用LINE INPUT方法边打开边转换,对于已经打开的HTML进行转换就不会了!还请指教