Question

VB 如何读取和写入指定行 （TXT）

我的程序是检测当前目录有没有 1.txt，如果没有新建，有则自动跳过
我想问：
新建时：在1.txt第一行显示 “1”，第二行显示“2”……共四行~
读取时：text1.text 显示第二行的，text2.text 显示第四行的内容！
修改时：text3.text “覆盖”（不是在第二行后面加）的内容。（可以清除1.txt全部内容 )
打开程序，程序自动检测程序所在目录下有没有1.txt，如果有，进入Form2（有text1~3，Commad1~2）
自动让 text1.text 读入1.txt 的第一行，text2.text 读入1.txt 的第二行，text3.text 读入1.txt 的第三行
然后单击Command1是，将text1.text对应写入（覆盖原内容，而不是在原内容后增加）1.txt 中

我差不多好了，只是想知道有没有比我更好的方法~

大家叫个朋友啊~

Answer 1

很简单，相当于寻找文件一样。
首先在声明里添加
Public success%

Function FileExists%(fname$)
On Local Error Resume Next
Dim ff%
ff% = FreeFile
Open fname$ For Input As ff%
If Err Then
FileExists% = False
Else
FileExists% = True
End If
Close ff%

End Function

到这里已经基本完成了。
seccess% = FileExists%("D:\1.txt") '寻找D盘下有没有1.txt
If success% = True Then'如果有
XXXXXX ’指令
End If

If success% = True Then'如果没有
XXXXXX ’指令
End If

新建时：

open "D:\1.txt" for output as #1
print#1,"1" + vbcrlf + "2" + vbcrlf + "3" + vbcrlf +"4"
（vbcrlf是空行的意思）
close #1

读取时：

open "D:\1.txt" for input as #1
用len函数读取

修改，同新建。
清除的话可以当作先删除后建立。

Answer 2

1、vb对文本文件无法直接读取和写入指定行。
2、vb只能用line input #一行行读到要读的行。
3、要写入指定行，需要读入所有文本，然后修改指定行，然后重新保存所有文件内容。

Answer 3

请使用VB的open语句，另外还有FileSystemObject对象和ADODB.STREAM对象也可以读写文本文件。。。

Answer 4

不是很明白你说的意思.