VB读写文件.doc

用VB的OPEN 方法 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 \ 关闭文件。如何用VB读取导入的文本文件中某些位置的数据？例如以下格式的文本文件R,27,46416,16908331968,6582511408,475,7502369,RMODIF,27,13,,,,RMODIF,27,21,475,750,RMODIF,27,7, ,,,,, ,RMODIF,27,16,,,,RMODIF,27,23,,,RMODIF,27,19,,,RMODIF,27,25,22800,23616,,,4.62584671498271E-08,,RMODIF,27,31,,,,,,,RMODIF,27,37,,,,,,,RMODIF,27,43,,,,,,,RMODIF,27,49,,,,, , ,RMODIF,27,55, , Private Sub Command1_Click() ? ? Dim a() As String ? ? Dim i As Integer ? ? a() = Split(RMODIF,27,21,475,750,, ,) ? ? For i = 0 To UBound(a) ? ?? ???Debug.Print a(i) Next iEnd Sub