目录
索引 🔎︎

# Put 语句

将记录写入相对文件，或者将字节序列写入二进制文件。

另请参阅: Get 语句

## 语法:

    Put [#] FileNumber As Integer, [position], Variable

## 参数:

「FileNumber」: 任意整数表达式，用于定义要向其中写入数据的文件。

「Position」:对于相对文件 (随意访问文件)，是要写入的记录的数量。

对于二进制文件 (Binary 访问)，是文件中开始写入字节的位置。

「Variable」:要写入到文件中的变量的名称。

相关文件的批注: 如果变量的内容与「Open」语句中的「Len」子句里面指定数据的长度不匹配的话，那么介于新写入的数据的末尾和下一条记录之间的空间，将会用你正在写入的文件中的现有数据进行填充。

二进制文件的批注: 将变量内容写入指定的位置，并将文件指针直接插入到最后一个字节后。记录之间不需要留有空间。

## 示例:

    Sub ExampleRandomAccess
    Dim iNumber As Integer
    Dim sText As Variant ' 必须是变量类型
    Dim aFile As String
        aFile = "c:\data.txt"
        iNumber = Freefile
        Open aFile For Random As #iNumber Len=32
        Seek #iNumber,1 ' 开始写入的位置
        Put #iNumber,, "这是第一行文字" ' 用文字填充行
        Put #iNumber,, "这是第二行文字"
        Put #iNumber,, "这是第三行文字"
        Seek #iNumber,2
        Get #iNumber,,sText
        Print sText
        Close #iNumber
        iNumber = Freefile
        Open aFile For Random As #iNumber Len=32
        Get #iNumber,2,sText
        Put #iNumber,,"新文字"
        Get #iNumber,1,sText
        Get #iNumber,2,sText
        Put #iNumber,20,"这是第 20 条记录中的文字"
        Print Lof(#iNumber)
        Close #iNumber
    End Sub