'' This example demonstrates how the Input statement can be used to parse and
'' retrieve data from a file.
''此示例演示如何使用输入语句从文件中分析和检索数据。 Sub doinput( ByRef file As String )
Dim As Integer i
Dim As Double f
Dim As String s
Open file For Input As #1
Input #1, s
Print s
Input #1, i, f, s
Print i, f, s
Close #1
End Sub
'' Create a test data file...
Open "test.dat" For OutPut As #1
Print #1, "abc def"
Print #1, 1234, 5678.901, "xyz zzz"
Close #1
'' Read it in
doinput "test.dat"
Sleep
|