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 sub6.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 返回目录