Put

---

Putステートメント

構文

Put [#]filenumber,[recnumber],varname

filenmberには、任意のファイル番号を指定します。

recnumberは省略可能です。書き込みを開始するレコード番号やバイト位置を指定します。

varnameには、書き込むデータを格納している変数の名前を指定します。

解説

変数の内容をディスク上のファイルに書き込みます。

Putステートメントでオブジェクトを書き込むことはできません。

サンプル

次の例は、ユーザーが入力した名前をファイルに書き込み、入力完了後入力された名前を表示します。

Sub Sample()
    Dim YourName As String * 20, i As Integer, tmp As String
    Open "C:\UserName.dat" For Random As #1 Len = Len(YourName)
    YourName = InputBox("氏名を入力してください")
    Do While YourName <> String(20, " ")
        Put #1, , YourName
        YourName = InputBox("氏名を入力してください")
    Loop
    If Loc(1) = 0 Then
        MsgBox "登録された名前はありません"
    Else
        For i = 1 To Loc(1)
            Get #1, i, YourName
            tmp = tmp & YourName & vbCrLf
        Next i
        MsgBox tmp
    End If
    Close #1
End Sub