－－》如何将空行用字符"<P>"替换？

Question

有一文本文件，内容如下：2003年5月帐目支出4万元，经调查是
由于大楼日常开销所用。2003年4月帐目支出8万元，现已查明
为每季度办公开销所用。2003年3月帐目支出15万元，经审核为
本月购置设备挪用。2003年.......现要编写程序，要使该文本文件内容显示如下内容：2003年5月帐目支出4万元，经调查是
由于大楼日常开销所用。
<P>
2003年4月帐目支出8万元，现已查明
为每季度办公开销所用。
<P>
2003年3月帐目支出15万元，经审核为
本月购置设备挪用。
<P>
2003年...
<P>
....
即：如何将空行用字符"<P>"替换？

Answer 1

dim inputstr as string,outputstr as string
open "c:\1.txt" for input as #1
     line input #1,inputstr
     if trim(inputstr)="" then
        outputstr=outputstr & vbcrlf & "<br>"
     else
        if trim(outputstr)="" then
           outputstr=inputstr
        else
           outputstr=outputstr & vbcrlf & inputstr
        end if
     end if
close #1msgbox outputstr

Answer 2

错了，忘了写循环了 @_@dim inputstr as string,outputstr as string
open "c:\1.txt" for input as #1
     do while not eof(1)
        line input #1,inputstr
        if trim(inputstr)="" then
           outputstr=outputstr & vbcrlf & "<br>"
        else
           if trim(outputstr)="" then
              outputstr=inputstr
           else
              outputstr=outputstr & vbcrlf & inputstr
           end if
        end if
     loop
close #1msgbox outputstr

Answer 3

replace(string,vbcrlf,"<p>")用<p>代替vbcrlf

Answer 4

2003年5月帐目支出4万元，经调查是(换行)
由于大楼日常开销所用。（换行）
（空行）
2003年4月帐目支出8万元，现已查明（换行）
为每季度办公开销所用。（换行）原始数据是这样的，用replace(string,vbcrlf,"<p>")后不是转换成这样啦：2003年5月帐目支出4万元，经调查是<p>
由于大楼日常开销所用。<p>
<p>
2003年4月帐目支出8万元，现已查明<p>
为每季度办公开销所用。<p>这样就不对了，我要的结果是：2003年5月帐目支出4万元，经调查是
由于大楼日常开销所用。
<P>
2003年4月帐目支出8万元，现已查明
为每季度办公开销所用。
<P>

Answer 5

replace(string,vbcrlf,"<p>") 
up

Answer 6

replace(string,vbcrlf & vbcrlf,vbcrlf & "<p>" & vbCrLf)
我帮你试了一下，好像可以。 你自己试试。