62顺序文件读写一读顺序文件 返回目录 例62用Inpu语句读出并显示t1xt文件的内容 Private Sub Form Click Dim sl As String, S2 As String, S3 As String Open"tI. txt" For Input As #1 Do While Not eof(l) Input #1. sl. s2. S3 与.Form1 Print sl. s2. s3 0001 0003 860 Loop 96 Close End Sub
6.2 顺序文件读写－读顺序文件 [例6.2] 用Input语句读出并显示t1.txt文件的内容 Private Sub Form_Click() Dim s1 As String, s2 As String, s3 As String Open "t1.txt" For Input As #1 Do While Not EOF(1) Input #1, s1, s2, s3 Print s1, s2, s3 Loop Close End Sub 返回目录
62顺序文件读写一写顺序文件 返回目录 写顺序文件:打开→写入→关闭 1.打开/创建顺序文件 Open pathname For Output As #filenumber Len=buffersize >功能:向文件中写入数据 Open pathname For Append As #filenumber Len=buffersize >功能:在文件尾追加记录 若文件不存在,系统将先创建再打开 2.写顺序文件 Print #filenumber, loutputlist Write #filenumber, outputlist 与 Print#不同的是, Write#可在数据项之间自动插入逗号
6.2 顺序文件读写－写顺序文件 写顺序文件：打开→写入→关闭 1. 打开/创建顺序文件 Open pathname For Output As #filenumber [Len=buffersize] ➢ 功能：向文件中写入数据 Open pathname For Append As #filenumber [Len=buffersize] ➢ 功能：在文件尾追加记录 若文件不存在，系统将先创建再打开 2. 写顺序文件 Print #filenumber, [outputlist] Write #filenumber, [outputlist] 与Print #不同的是，Write #可在数据项之间自动插入逗号 返回目录
62顺序文件读写一读顺序文件 返回目录 例63先创建C: temp. txt,然后读出并显示该文件内容 Private Sub Form Click Dim sl As String, S2 As String, s3 As String Open"c: temp. txt"For Append As #1 Write#1," Ding Xiao",25,"男"'写入以逗号隔开的数据 Write #1, "Wang Xiao", 23, "'1 Close Open"c: temp. txt" For Input As #1 Do While Not eof(d) Input #l, sl, S2, $3 Print sI 3 Loop End sub
6.2 顺序文件读写－读顺序文件 [例6.3] 先创建C:\temp.txt，然后读出并显示该文件内容 Private Sub Form_Click() Dim s1 As String, s2 As String, s3 As String Open "c:\temp.txt" For Append As #1 Write #1, "Ding Xiao", 25, "男" '写入以逗号隔开的数据 Write #1, "Wang Xiao", 23, "女" Close Open "c:\temp.txt" For Input As #1 Do While Not EOF(1) Input #1, s1, s2, s3 Print s1, s2, s3 Loop End Sub 返回目录