Question

vb 读取txt指定内容并写到另一个txt

文本中内容
1 122
2 212
3 43
4 903
5 33
。。。
100 106
用vb把txt文件中第一列数字为 2,5,8,11 。。。所有行内容保存到另一个txt文件里面应该怎么编程？

Answer 1

Private Sub Command1_Click()
Open App.Path & "\1.txt" For Input As #1
Open App.Path & "\2.txt" For Output As #2'如果要追加，将Output修改为Append
Do While Not EOF(1)
Line Input #1, s
If Val(s) Mod 3 = 2 Then Print #2, s
Loop
Close #1
Close #2
End Sub

Answer 2

open "?1.txt" for input as #1
open "?2.txt" for append as #2
do while not eof(1)
line input #1,txt
select case left(txt,1)
case 2,5,8,11 。。。
write #2,txt '这个写出来的结果有双引号，可以换用print
loop
close
大体就是这么滴

Answer 3

Private Sub Command1_Click()
Open "a.txt" For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Close #1
MsgBox "完成文件保存！"
End Sub