vb删除txt内不为空的字符后面的空白区域，追加20分

来源：百度知道 编辑：UC知道 时间：2024/05/24 06:06:52
用vb读取txt文件后，发现后面有大片空白区域，将两个此类txt文件合并后，两段不为空数据中间有5-6行的空白怎末可以在读取的时候删除该空白区域，
我说的读取是指在合并之前，读取每一个文件的时候，都会去除空白区域。这个空白区域明显是在读取之前已经存在的，未处理之前，用鼠标还可以选中该区域的。。。

Private Sub Command1_Click()
Dim a As String
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Do While Not EOF(1)
Line Input #1, a
If trim(a) <> "" And a<>vbCrLf And a <>vbCr And a<>vbLf Then
Print #2,a & vbCrLf
End If
Loop
Close
End Sub
'如果需要读多个文件原理是一样的

hi me
Dim x(10000) as string
dim J as integer
Open "C:\1.txt" for input as #1
for i=0 to 10000
if not eof(1) then
input #1,x(i)
else
J=i
exit for
end if
next
Close #1
'以上是把1.txt读入到数组x(10000)中
Open "C:\1.txt" for output as #1
for i=0 to J
if len(x(i))>0 then print x(i)
next
Close #1
'以上是把数组x(10000)中非空的单元写入1.txt中形成没有空白区域的新文件。

后面那些空白是不是你的suff缓存做的不好设置太大了。
要不你在每段加上trim（段1）+trim（段2）。

读取到一个 vbcrlf 后,如果下一个还是 vbcrlf ,