分别问 文件读写操作+字符串操作 会表达得更好一文件读写: Dim TextLine Open "TESTFILE" For Input As #1 ' 打开文件。 Do While Not EOF(1) ' 循环至文件尾。 Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。 Debug.Print TextLine ' 在立即窗口中显示数据。 Loop Close #1 ' 关闭文件。 通常用 Write # 将 Input # 语句读出的数据写入文件。二,字符串操作: 了解几个函数,mid(),split()
题目: 有一个保存着学生成绩数据的文件:stu.dat,包含学号,姓名,性别,数学,英语等学生成绩的顺序记录,如何将需要补考的的学生数据输出到一个新的文件中???答: if 补考数据文件不存在 then 建立补考数据文件 end ifopen 补考数据文件 open 成绩数据文件while (readline 一行数据) if 需要补考 then writeline 补考数据 end if loop
题目:通过键盘输入数据,将包括学号,姓名,性别,数学,英语等学生成绩数据输入到一个顺序文件中(stu.dat) 然后从stu.dat中读入全部学生成绩数据。将需要补考的的学生数据输入到一个新的文件中???现在能懂吗?/
Dim TextLine
Open "TESTFILE" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Debug.Print TextLine ' 在立即窗口中显示数据。
Loop
Close #1 ' 关闭文件。
通常用 Write # 将 Input # 语句读出的数据写入文件。二,字符串操作:
了解几个函数,mid(),split()
有一个保存着学生成绩数据的文件:stu.dat,包含学号,姓名,性别,数学,英语等学生成绩的顺序记录,如何将需要补考的的学生数据输出到一个新的文件中???答:
if 补考数据文件不存在 then
建立补考数据文件
end ifopen 补考数据文件
open 成绩数据文件while (readline 一行数据)
if 需要补考 then
writeline 补考数据
end if
loop
close 补考数据文件
close 成绩数据文件