Question

VB 按行提取TXT提取后删除

一行行提取TXT里面的内容 被提取后的行删除
[如TXT里面是]------------
1
2
3
[完成后TXT里面是]--------
2
3

Answer 1

open "test.txt" for input as #1
do while not eof（1）
line input #1,temp 'temp 就是每一行内容
x=x+1
if x<>1 then '按照if条件来判断是否要保留行内容
str1=str1 & temp & vbcrlf
end if
loop
close #1
msgbox str1

Answer 2

Private Sub Form_Click()
dim a()
Open "path" For Input As #1
Do Until EOF(1)
n = n + 1
Loop
End If
Close #1
ReDim a(n)
Open "path" For Input As #1
For i = 1 To n
Line Input #1, a(i)
Next i
End If
Close #1
List1.AddItem a(1)
For i = 1 To n - 1
a(i) = a(i + 1)
Next i
Open "path" For Output As #1
If n > 1 Then
For i = 1 To n - 1
Print #1, a(i)
Next i
Else
Print #1,
End If
Close #1
End Sub

Answer 3

只有重写txt文件，没有能自动删除txt每行内容的语句。
重写txt文件不用说了吧- -