#VBA#Private Sub CommandButton1_Click()Dim Str As StringDim textFiles As StringClose #1'关闭已经打开的文件textFiles = ThisWorkbook.Path & "\txt\lineinput.txt"'设置文件以及路径Open textFiles For Input As #1'打开文件Do While Not EOF(1)'循环遍历文件行,如果不是尾行就循环Line Input #1, Str'...
Line Input #:取出完整的一行 搭配使用到的两个函数: EOF(文件编号) 返回文本文件结尾。 LOF(文件编号) 判断文本文件的长度。 一、Input读取方式 Input 函数只用于以 Input 或 Binary 方式打开的文件,返回它所读出的所有字符,包括逗号、回车符、空白列、换行符、引号和前导空格等。 例1:读取a.txt,返回每个字符...
Line Input #语句一次从文件中读取一个字符,直到遇到回车符 (Chr(13) ) 或回车回车换行 (Chr(13) +Chr(10) ) 序列。 回车-换行序列将被跳过,而不是附加到字符串后面。 示例 此示例使用Line Input #语句从顺序文件中读取行并将其分配给变量。 此示例假定TESTFILE是包含几行示例数据的文本文件。
此外,还可以使用Line Input语句,每次读取一整行。假设文件b.txt中有4行古诗,下面用Line Input读取内容。代码分析:本例直接把读取到的每行打印到立即窗口,因此可以使用Do循环,利用EOF函数来判断是否读到文件尾部,如果到了尾部,就结束循环。上述程序的运行结果如图1-15所示。
说明:通常用 Line Input # 或 Input 读出 Print # 在文件中写入的数据。 示例: Open "F:\test.txt" For Output As #1 ' 打开输出文件。 Print #1, "This is a test" ' 将文本数据写入文件。 Print #1, ' 将空白行写入文件。 Print #1, "Zone 1"; Tab; "Zone 2" ' 数据写入两个区(print zon...
说明:通常用 Line Input # 或 Input 读出 Print # 在文件中写入的数据。 示例: Open "F:\test.txt" For Output As #1 ' 打开输出文件。 Print #1, "This is a test" ' 将文本数据写入文件。 Print #1, ' 将空白行写入文件。 Print #1, "Zone 1"; Tab; "Zone 2" ' 数据写入两个区(print zon...
Line Input #1, s1 '读入一行,放入s1变量中 Loop Close #1 4、LOC 函数 语法:LOC(filenumber) 功能:返回一个 Long,在已打开的文件中指定当前读/写位置。 Dim MyLocation, MyLine Open "TESTFILE" For Binary As #1 ' 打开刚创建的文件。 Do While MyLocation < LOF(1) ' 循环至文件尾。
亲，这个语句应该是包含在一个循环中。举例如下：Open"a" For Input As #1 DoWhile Not EOF(1)Line Input #1, s ...Loop
Line Input #1, s1 '读入一行,放入s1变量中 Loop Close #1 4、LOC 函数 语法:LOC(filenumber) 功能:返回一个 Long,在已打开的文件中指定当前读/写位置。 Dim MyLocation, MyLine Open "TESTFILE" For Binary As #1 ' 打开刚创建的文件。 Do While MyLocation < LOF(1) ' 循环至文件尾。
本示例使用 Input # 语句将文件内的数据读入两个变量中。本示例假设 TESTFILE文件内含数行以 Write # 语句写入的数据;也就是说,每一行数据中的字符串部分都是用双引号括起来,而与数字用逗号隔开,例如,("Hello", 234)。 Dim MyString, MyNumber