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

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/20 06:42:12
vb open系列语句用法详解哪位大侠帮我详细的说一下就是跟open语句有联系的 input output append write line这一系列的语句用法一,如何打开,如何写入,如何读取,如何覆盖,不覆盖写入,请说的详细点啊,
xV[OG+ YP( m$"aTńUbu|IK )1-wicĬ/.OWIJ3|2- OlZk9|*YojyHf%fh`9V^ߌvOMZkH8hшX|Aw!DPm!%%U^mlxl/Xᙍ(fnY9MlU|b%򒯧ӡ/1l erHĶ8\XG'Jr(2(Tw$x+B̺}/#2a|PwrM5!S#Ȟ&K_('K.O\416e'!bJ$nDO큪 /_o)H@ڌ1qqr qivF'b"z#9':;@ߵ=dsCX)5..\ ,ZF +6恎z;2}86Q-Ԉ_ TI㺳v>=n? AD G\ˆb>FGk']^/JvnMXWtbV%? 0,\KEU5Ni!uFrb4czYi +5|E}*J(-\Ә].dږ!/yj#H;=جX;x9qD5?\4  }QUIH(6 vF£Yw?X\BJ!`F}jXQe:fܿ{C\Jg ۞$~{.hB$UwKY ʞx:y|TVHiė̅wS4<.泹W@ ]L:AS> /|jTqA;\m΁ ;)-pyAd?Z$h&؁A*ׯug)U.R&*6똞{yٺgqK>JAc1_cdҫ| 9Hzr?sc-#㣝.z\.Zs[JNpg>6Wu+ pA{+vX>B:yZWVqoL/u31M ~=8]

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 \' 关闭文件.