VFB_演示如何使用输入语句从文件中分析和检索数据

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