VB读写文件

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

 

追加文件示例

Open   "A.txt"   For   append   As   #1   

      Print   #1,"303   (吴志坤)是个大笨蛋！，居然不知道append是追加。"   

      Print   #1,"从QBASIC时代就有这个语句了。"   

      Print   #1,"Output是从头写，Input是读，Append是追加。"   

      Print   #1,"Print   #文件号，是写文件。"   

      Print   #1,"Line   Input   #文件号，是成行读文件。"   

      Print   #1,"你地明白否？"   

  Close   #1