VB中关于随机文件的读取

来源：百度知道 编辑：UC知道 时间：2024/09/28 13:29:10
例如我要读取txt文本内容如下
abcdefg，，，
1234567，，，
..
..
把如上内容显示到text文本框遇到分隔符要换行
请大家指点，标明注释，
..
..
必须用随机读取

使用LineInput方式读取：
open "C:\我的.txt"for input as #1
do while not eof(1)
LineIput#1.text1.text
loop
close #1

Open" " for Input as #1 '打开目录文件，" "内为文件的目录和名称（带扩展名.txt）,并命名为1
Text1.Text=Input(LOF(1),1) ‘把文件1的全部内容，按照原来的格式写入text控件
close #1 '读入结束，关闭文件1