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 # ステートメント

用語集