vb open系列语句用法详解哪位大侠帮我详细的说一下就是跟open语句有联系的 input output append write line这一系列的语句用法一,如何打开,如何写入,如何读取,如何覆盖,不覆盖写入,请说的详细点啊,

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/06 00:38:46
vb open系列语句用法详解哪位大侠帮我详细的说一下就是跟open语句有联系的 input output append write line这一系列的语句用法一,如何打开,如何写入,如何读取,如何覆盖,不覆盖写入,请说的详细点啊,

vb open系列语句用法详解哪位大侠帮我详细的说一下就是跟open语句有联系的 input output append write line这一系列的语句用法一,如何打开,如何写入,如何读取,如何覆盖,不覆盖写入,请说的详细点啊,
vb open系列语句用法详解
哪位大侠帮我详细的说一下就是跟open语句有联系的 input output append write line这一系列的语句用法一,如何打开,如何写入,如何读取,如何覆盖,不覆盖写入,请说的详细点啊,就剩下这15分了今天,全给你了!

vb open系列语句用法详解哪位大侠帮我详细的说一下就是跟open语句有联系的 input output append write line这一系列的语句用法一,如何打开,如何写入,如何读取,如何覆盖,不覆盖写入,请说的详细点啊,
VB读写文件要用到以下语句:
1、Open语句打开文件.
2、读文件使用Line Input、Input #,(以上为文本方式)和Get(以上为二进制方式).
3、写文件使用Print #、Write(以上为文本方式)和Put(以上为二进制方式).
4、Close语句关闭文件
5、二进制方式下移动文件位置使用Seek语句.
所有这些语句在VB的帮助中都有详细说明和例子.
文本文件的示例:
Open "TESTFILE" For Output As #1 \' 打开输出文件.
Print #1,"This is a test" \' 将文本数据写入文件.
Print #1,\' 将空白行写入文件.
Print #1,"Zone 1"; Tab ; "Zone 2" \' 数据写入两个区(print zones).
Print #1,"Hello" ; " " ; "World" \' 以空格隔开两个字符串.
Print #1,Spc(5) ; "5 leading spaces " \' 在字符串之前写入五个空格.
Print #1,Tab(10) ; "Hello" \' 将数据写在第十列.
\' 赋值 Boolean、Date、Null 及 Error 等.
Dim MyBool,MyDate,MyNull,MyError
MyBool = False :MyDate = #February 12,1969# :MyNull = Null
MyError = CVErr(32767)
\' True、False、Null 及 Error 会根据系统的地区设置自动转换格式.
\' 日期将以标准的短式日期的格式显示.
Print #1,MyBool ; " is a Boolean value"
Print #1,MyDate ; " is a date"
Print #1,MyNull ; " is a null value"
Print #1,MyError ; " is an error value"
Close #1 \' 关闭文件.
读文件示例
使用 Line Input # 语句从顺序文件中读入一行数据,并将该行数据赋予一个变量.本示例假设 TESTFILE 文件内含数行文本数据.
Dim TextLine
Open "TESTFILE" For Input As #1 \' 打开文件.
Do While Not EOF(1) \' 循环至文件尾.
Line Input #1,TextLine \' 读入一行数据并将其赋予某变量.
Debug.Print TextLine \' 在调试窗口中显示数据.
Loop
Close #1 \' 关闭文件.