怎样消除VB对文本文件查找替换后在文件尾多出的空行？

[ssq119]

下面是对一文本文件进行查找替换的模块：

Private Sub Tihuan(TfilePath As String, Oldstr As String, Newstr As String)
Dim k() As Byte
Open TfilePath For Binary As #1
ReDim k(FileLen(TfilePath) - 1) As Byte
Get #1, , k
k = Replace(StrConv(k, vbUnicode), Oldstr, Newstr) '无条件全部替换
Close #1

Open TfilePath For Output As #2
Print #2, k
Close #2
End Sub

'调用方法

Private Sub Command2_Click()

Command2.Enabled = False

Call Tihuan("c:\1.txt", "旧字符", "新字符") ‘ c:\1.txt 可以超过 5 mb以上

Command2.Enabled = True

但在使用中发现,每调用一次，就在文本文件的最后多一个空行 , 执行1000次就多1000个空行。怎样消除这些空行？

[zdingyun]

LZ，你的代码写文件后，就多出Chr(10)及Chr(13)
属于文件的换行符

[caofusheng]

Newstr中最后有回车换行，去掉后再替换。
这样试试。
k = Replace(StrConv(k, vbUnicode), Oldstr, left（Newstr,len(Newstr)-2）) '无条件全部替换

[zzyong00]

你的读写文件的方法很怪，既然只是要进行文本替换，为什么要用二进制读的方式，却又用文本写的方式，
建议你都用文本方式读写，应该可以消除你说的问题，至于为什么，你自己想想吧

[ssq119]

谢谢!
用此法:
k = Replace(StrConv(k, vbUnicode), Oldstr, left（Newstr,len(Newstr)-2）) '无条件全部替换
试过，无效。

我原来的代码运行后在所查找替换的文本文件的最后部分多了些空行，并不是在查找替换处多了空行。

[of123]

试试：

Open TfilePath For Output As #2
Put #2, k
Close #2

或

Open TfilePath For Output As #2
Print #2, k;
Close #2

[of123]

更正：
Open TfilePath For Output As #2
Put #2, 0, k
Close #2

[cike_1111]

那么说应该是 put 了!!

我只记得以前看过的一篇文章 说解决这个问题的 不能用 print ..要哪个记不太清楚..

[嗷嗷叫的老马]

。。。。。。。。。。。。

[zdingyun]

我试了下8楼代码可用。

[vbman2003]

你这个情况估计文本本身尾部有个回车符，所以替换文件后会不断增加，如下试试：

Private Sub Tihuan(TfilePath As String,Oldstr As String, Newstr As String) 
    Dim k() As Byte 
    Open TfilePath For Binary As #1 
        ReDim k(FileLen(TfilePath)-1) 
        Get #1, , k  
     Close   #1 
     
    k=Replace( mid(StrConv(k,vbUnicode),1,len(StrConv(k,vbUnicode))-1) _
            ,Oldstr,Newstr)   '无条件全部替换
    Open TfilePath For Output As #2 
        Print #2, k 
    Close #2 
End  Sub


'看你的代码完全是字符处理，所以可以这样：
Private Sub Tihuan(TfilePath As String,Oldstr As String, Newstr As String) 
    Dim s As string 
    Open TfilePath For Binary As #1 
        s=space(lof(#1))
        Get #1, , s  
    Close #1 
     
    s=Replace(mid(s,1,len(s)-1),Oldstr,Newstr)   '无条件全部替换
    
　　 Open TfilePath For Output As #2 
        Print #2, s 
    Close #2 
End  Sub

[zzyong00]

如都用文本方式读写，连替换都不能进行。
------------------
什么意思？为什么不能替换？

Private Sub Tihuan(TfilePath As String, Oldstr As String, Newstr As String)
Dim k     As String, s As String
Open TfilePath For Input As #1
Do While Not EOF(1)    ' 循环至文件尾。
    s = Input(1, #1)    ' 读入一个字符。
    k = k + s
Loop
k = Replace(k, Oldstr, Newstr)           '无条件全部替换
Close #1

Open TfilePath For Output As #2
Print #2, k;
Close #2
End Sub

[cike_1111]

Print 改为 write 试下!

好象print写入 的 后面自动加上点什么.. 而用另一个就不会有这样的情况 好象是 write吧 好象又是 put.. 不太记得了!

[zdingyun]

9楼，Print改为write，会在整个文件前后加上一对"" 。

[chenhui530]

print的改成二进制打开使用put

[ssq119]

楼上（17楼）的分析应该是对的，我试了下能行。

[ssq119]

楼上（17楼）的分析应该是对的，我试了下能行。

[ssq119]

但17楼的这句：
s=space(lof(#1))
应该为下面一句吧？
s = Space(LOF(1))

[zdingyun]

使用21楼代码，文件长度发生改变，每次较原来多出72字节。8楼代码和我在5楼贴出代码执行字节不增加。
但同意21楼意见；请及时结帖。不要凉了上面那么多热心人的心......

[vbman2003]

嗯，你说的对。可以再完善一下：

Private Sub Tihuan(TfilePath As String, Oldstr As String, Newstr As String)

    Dim s As String
    Dim h As Long
    
    h = FreeFile
    Open TfilePath For Binary As h
        s = Space(LOF(h) - 2)
        Get h, , s
    Close
     
    s = Replace(s, Oldstr, Newstr) '无条件全部替换
    
    h = FreeFile
    Open TfilePath For Output As h
        Print #h, s
    Close
    
End Sub

如果问题已经解决，请及时结帖。不要凉了上面那么多热心人的心......

[ssq119]

感谢各位！除帮我解决了问题外,还使我学到不少。