vb open系列语句用法详解哪位大侠帮我详细的说一下就是跟open语句有联系的 input output append write line这一系列的语句用法一,如何打开,如何写入,如何读取,如何覆盖,不覆盖写入,请说的详细点啊,
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 11:36:05
![vb open系列语句用法详解哪位大侠帮我详细的说一下就是跟open语句有联系的 input output append write line这一系列的语句用法一,如何打开,如何写入,如何读取,如何覆盖,不覆盖写入,请说的详细点啊,](/uploads/image/z/10617393-57-3.jpg?t=vb+open%E7%B3%BB%E5%88%97%E8%AF%AD%E5%8F%A5%E7%94%A8%E6%B3%95%E8%AF%A6%E8%A7%A3%E5%93%AA%E4%BD%8D%E5%A4%A7%E4%BE%A0%E5%B8%AE%E6%88%91%E8%AF%A6%E7%BB%86%E7%9A%84%E8%AF%B4%E4%B8%80%E4%B8%8B%E5%B0%B1%E6%98%AF%E8%B7%9Fopen%E8%AF%AD%E5%8F%A5%E6%9C%89%E8%81%94%E7%B3%BB%E7%9A%84+input+output+append+write+line%E8%BF%99%E4%B8%80%E7%B3%BB%E5%88%97%E7%9A%84%E8%AF%AD%E5%8F%A5%E7%94%A8%E6%B3%95%E4%B8%80%2C%E5%A6%82%E4%BD%95%E6%89%93%E5%BC%80%2C%E5%A6%82%E4%BD%95%E5%86%99%E5%85%A5%2C%E5%A6%82%E4%BD%95%E8%AF%BB%E5%8F%96%2C%E5%A6%82%E4%BD%95%E8%A6%86%E7%9B%96%2C%E4%B8%8D%E8%A6%86%E7%9B%96%E5%86%99%E5%85%A5%2C%E8%AF%B7%E8%AF%B4%E7%9A%84%E8%AF%A6%E7%BB%86%E7%82%B9%E5%95%8A%2C)
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 \' 关闭文件.