UC知道vb 删除记事本最后空行
来源：百度知道 编辑：UC知道 时间：2024/05/16 14:53:31
我写了一个程序部分代码如下
Open "d:\配置文件.ini" For Input As #1 '替换部分
Dim a$, b$, i%
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, a ' 读入一行数据并将其赋予a变量。
b = b & a & vbCrLf
Loop
Close #1
b = Replace(b, peizhi, sanceng) '替换语句
Open "d:\配置文件.ini" For Output As #1 '写入数据
Print #1, b
Close #1
每隔一段时间就写一次文件 。但是每次写过 文本文件最后就会多出2行空行 这样时间长了就积累了许多空行出来，请问怎么解决这个问题啊。
让他不要在文本末尾出现空行。
只要删除最后的空行，不要把最后一行前面的 vbCrLf 删了啊。
Open "d:\配置文件.ini" For Input As #1 '替换部分
Dim a$, b$, i%
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, a ' 读入一行数据并将其赋予a变量。
b = b & a & vbCrLf
Loop
Close #1
b = Replace(b, peizhi, sanceng) '替换语句
Open "d:\配置文件.ini" For Output As #1 '写入数据
Print #1, b
Close #1
每隔一段时间就写一次文件 。但是每次写过 文本文件最后就会多出2行空行 这样时间长了就积累了许多空行出来，请问怎么解决这个问题啊。
让他不要在文本末尾出现空行。
只要删除最后的空行，不要把最后一行前面的 vbCrLf 删了啊。
Open "d:\配置文件.ini" For Input As #1 '替换部分
Dim a$, b$, i%
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, a ' 读入一行数据并将其赋予a变量。
b = b & a & vbCrLf
Loop
Close #1
b = Replace(b, peizhi, sanceng) '替换语句
Open "d:\配置文件.ini" For Output As #1 '写入数据
Print #1, b; '这里加一分号 ; 就可以了
Close #1
再次打开文件，用二进制
dim arr() as byte
open "d:\配置文件.ini" for binary as #1
l=lof(1)
redim arr(l)
get #1, ,arr()
colse #1
Kill ("D:\配置文件.ini")
open "d:\配置文件.ini" for binary as #2
for i=1 to l-4 '两个回车占4个字节
put #1, ,arr(i)
next
colse #2