Dim fname As String

Dim customer As String, addr As String, city As String

fname = "data.dat"

fileNum% = Freefile()

Open fname for Output As fileNum%

Write #fileNum%, {John Roe

and family}, "25 Main Street", "Springfield, IL"

Write #fileNum%, "Mary Johnson", {Fifth Floor

55 Cambridge Parkway}, "Cambridge, MA"

Close

fileNum% = FreeFile()

Open fname For Input As fileNum%

For i% = 1 to 2

    Input #fileNum%, customer, addr, city

    Print customer

    Print addr

    Print city

    Print ""

Next i%

'Output:

'  Outputs two groups, each consisting of three String values,

'  with some Strings on multiple lines:

'  John Roe' customer, line 1

'       and family' customer, line 2

'  25 Main Street' addr

'  Springfield, IL' city

'  Mary Johnson' customer

'  Fifth Floor' addr, line 1

'  55 Cambridge Parkway' addr, line 2

'  Cambridge, MA' city

Close fileNum%

関連項目

Input # ステートメント

用語集