Question

vb如何去掉TXT文件中某行文本

假如a.txt文件是这样的
frist
second
aa
bb
现在我要用VB让他变成
first
aa
bb
怎么做？

Answer 1

Option Explicit

Private Sub Form_Load()

    Dim s As String, i As Long, a As Long

    a = 2    '你要去掉的行数

    Open "d:\a.txt" For Input As #1

    Open "d:\b.txt" For Output As #2

    Do While Not EOF(1)

        i = i + 1

        Input #1, s

        If i <> a Then

            Print #2, s

        End If

    Loop

    Close

End Sub

Answer 2

删除的标准是什么，难道只删第二行？开两个文件，一读一写，根据条件，把要的写进另一文件即可。

Answer 3

符串，然后将该字符串中3个以上的换行替换成2个，再保存，就实现了只空一行。

如果不要空行，就将该字符串中2个以上的换行替换成1个，就可以了。程序中少写一个vbCrLf就可以了。

Private Sub Command1_Click()
Dim S As String, FileName As String
FileName = "d:\test.txt"

Open FileName For Binary As #1
S = Space(LOF(1))
Get #1, , S
Close #1

Do While InStr(1, S, vbCrLf & vbCrLf & vbCrLf) > 0
S = Replace(S, vbCrLf & vbCrLf & vbCrLf, vbCrLf & vbCrLf)
Loop

Open FileName For Output As #1
Print #1, S
Close #1
End Sub

Answer 4

你可以重新设置a.txt=first&vbcrlf&aa&vbcrlf&bb
其中vbcrlf是回车换行的意思