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

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

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

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

很简单，相当于寻找文件一样。
首先在声明里添加
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函数读取
修改，同新建。
清除的话可以当作先删除后建立。