学习VB.NET时,你可能会遇到VB.NET追加文件问题,这里将介绍VB.NET追加文件 问题的解决方法,在这里拿出来和大家分享一下。
#T#VB读写文件要用到以下语句:
1、Open语句打开文件。
2、读文件使用LineInput、Input#,(以上为文本方式)和Get(以上为二进制方式)。
3、写文件使用Print#、Write(以上为文本方式)和Put(以上为二进制方式)。
4、Close语句关闭文件
5、二进制方式下移动文件位置使用Seek语句。
所有这些语句在VB的帮助中都有详细说明和例子。
文本文件的示例:
- Open"TESTFILE"ForOutputAs#1'打开输出文件。
- Print#1,"Thisisatest"'将文本数据写入文件。
- Print#1,'将空白行写入文件。
- Print#1,"Zone1";Tab;"Zone2"'数据写入两个区(printzones)。
- Print#1,"Hello";"";"World"'以空格隔开两个字符串。
- Print#1,Spc(5);"5leadingspaces"'在字符串之前写入五个空格。
- Print#1,Tab(10);"Hello"'将数据写在第十列。
- '赋值Boolean、Date、Null及Error等。
- DimMyBool,MyDate,MyNull,MyError
- MyBool=False:MyDate=#February12,1969#:MyNull=Null
- MyError=CVErr(32767)
- 'True、False、Null及Error会根据系统的地区设置自动转换格式。
- '日期将以标准的短式日期的格式显示。
- Print#1,MyBool;"isaBooleanvalue"
- Print#1,MyDate;"isadate"
- Print#1,MyNull;"isanullvalue"
- Print#1,MyError;"isanerrorvalue"
- Close#1'关闭文件。
读文件示例
使用LineInput#语句从顺序文件中读入一行数据,并将该行数据赋予一个变量。本示例假设TESTFILE文件内含数行文本数据。
- DimTextLine
- Open"TESTFILE"ForInputAs#1'打开文件。
- DoWhileNotEOF(1)'循环至文件尾。
- LineInput#1,TextLine'读入一行数据并将其赋予某变量。
- Debug.PrintTextLine'在调试窗口中显示数据。
- Loop
- Close#1'关闭文件。
VB.NET追加文件示例
- Open"A.txt"ForappendAs#1
- Print#1,"303(吴志坤)是个大笨蛋!,居然不知道append是追加。"
- Print#1,"从QBASIC时代就有这个语句了。"
- Print#1,"Output是从头写,Input是读,Append是追加。"
- Print#1,"Print#文件号,是写文件。"
- Print#1,"LineInput#文件号,是成行读文件。"
- Print#1,"你地明白否?"
- Close#1