VBA 读取/写入文本文件[Access软件网]

放入s1变量中 Loop Close #1 4、LOC 函数 语法：LOC(filenumber) 成果：返回一个 Long。

Print #1， s1 '读入一行， (有文字中有不在引号中的， 示例： Dim MyChar Open "f:\test.txt" For Input As #1 Do While Not EOF(1) ' 循环至文件尾，若省略 filenumberlist，即添加内容到文件末尾打开， Append：以追加方法， 7、Input 函数 语法：Input(number，则会将一个空白行打印到文件中。

#1) ' 读入一个字符， Tab(n) 用来将插入点定位在某一绝对列号上， varname 成果：从已打开的顺序文件中读出一行并将它分派给 String 变量，则将封锁 Open 语句打开的所有勾当文件， 假如省略 outputlist，Input 函数只用于以 Input 或 Binary 方法打开的文件， #1) ' 读入一个字符到变量中，在已打开的文件中指定当前读/写位置，则在下一行打印下一个字符， MyLocation = Loc(1) ' 取恰当前位置， Dim MyLocation，它包括以 Input 或 Binary 方法打开的文件中的字符， Print #1，Input 函数返回它所读出的所有字符，使用分号将插入点定位在上一个显示字符之后， varlist 成果：从已打开的顺序文件中读出数据并将数据指定给变量，它包括 Boolean 值 True。

Output：以写入方法打开， Binary：以二进制方法打开，Write # 语句会在项目和用来标志字符串的引号之间插入逗号，使用 Write # 语句可以确保将各个单独的数据域正确离开开，空白和分号等效，为了能够用 Input # 语句将文件的数据正确读入到变量中，当要将数据写入文件时， 2、Close 语句 语法：Close [filenumberlist] filenumberlist 参数为一个或多个文件号， [#]filenumber)，假如省略 charpos， 说明：凡是用 Print # 与 Line Input # 语句共同使用。

会被认为是离开符） 说明：凡是用 Write # 将 Input # 语句读出的数据写入文件。

Open "F:\test.txt" For Output As #1 ' 打开输出文件。

Line Input # 语句一次只从文件中读出一个字符。

Open "c:\a.txt" For Input As #1 ‘以读入方法打开c:\a.txt Do While Not EOF(1) '未达到结尾 Line Input #1， expression 要打印的数值表达式或字符串表达式，用 Tab(n) 将插入点定位在某一绝对的列号上， 3、EOF 函数 语法：EOF(filenumber) 成果：返回一个 Integer， "This is a test" ' 将文本数据写入文件。

表白已经达到为 Random 或顺序 Input 打开的文件的结尾，范畴在 1 到 511 之间，包罗逗号、回车符、空白列、换行符、引号和前导空格等， MyLine Open "TESTFILE" For Binary As #1 ' 打开刚建设的文件，个中number 指定要返回的字符个数， ' 将空白行写入文件。

Spc(5); "5 leading spaces " ' 在字符串之前写入五个空格。

在将数据写入文件时，n 是列号，用无参数的 Tab 将插入点定位在下一个打印区的起始处， Print #1， 5、Input # 语句 语法：Input #filenumber。

Print #1， "Hello"; " "; "World" ' 以空格离隔两个字符串，那么，多个表达式之间可用空白、分号或逗号离隔。

在用 Append、Binary、Output、或 Random 方法打开文件时， Do While MyLocation LOF(1) ' 循环至文件尾。

Print #1。

Print #1， 成果:返回 String， 说明：打开文件后， 1、Open 语句 打开方法有 Input：以读取方法打开， Tab(10); "Hello" ' 将数据写在第十列。

必需在使用完后封锁文件，这里， 说明：凡是用 Print # 或 Put 将 Input 函数读出的数据写入文件，而不会被附加到字符串上， "Zone 1"; Tab; "Zone 2" ' 数据写入两个区（print zones）， [outputlist] outputlist 参数的设置如下： [{Spc(n) | Tab[(n)]}] [expression] [charpos] Spc(n) 用来在输出数据中插入空白字符， Debug.Print MyChar ' 显示到当即窗口。

' 在当即窗口中显示， charpos 指定下一个字符的插入点， 与 Print # 语句差异， Open pathname For mode As [#]filenumber Open "c:\a.txt" For Output As #1 filenumber 是一个有效的文件号，而 n 指的是要插入的空白字符数，假如未指定方法， 假如 pathname 指定的文件不存在，要使用 Write # 语句而不使用 Print # 语句， Loop Close #1 8、Write # 语句 语法：Write #filenumber，直到遇到回车符 (Chr(13)) 或回车–换行符 (Chr(13) + Chr(10)) 为止。

9、Print # 语句 语法：Print #filenumber， MyChar = Input(1， 与 Input # 语句差异。

并在 filenumber 之后加上一个逗号，使用无参数的 Tab 将插入点定位在下一个打印区的起始位置， 6、Line Input # 语句 语法：Line Input #filenumber， [outputlist] 成果：将数据写入顺序文件，可以成立这一文件， Access软件网官方交换QQ群 (群号:163466567) access源码网店 ，回车–换行符将被跳过， Random：以随机方法打开，。

则以 Random 方法打开文件。

Debug.Print MyLine : Tab : MyLocation Loop Close #1 ' 封锁文件， MyLine = MyLine Input(1。