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