UC知道VB 如何读取和写入指定行 （TXT）
来源：百度知道 编辑：UC知道 时间：2024/05/09 19:56:52
我的程序是检测当前目录有没有 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 中
我差不多好了，只是想知道有没有比我更好的方法~
大家叫个朋友啊~
我想问：
新建时：在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 中
我差不多好了，只是想知道有没有比我更好的方法~
大家叫个朋友啊~
1、vb对文本文件无法直接读取和写入指定行。
2、vb只能用line input #一行行读到要读的行。
3、要写入指定行，需要读入所有文本，然后修改指定行，然后重新保存所有文件内容。
很简单，相当于寻找文件一样。
首先在声明里添加
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
读取时：
o