'' 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