Module
Contents
Index 🔎︎

# 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,, "This is the second line of text"

        Put #iNumber,, "This is the third line of text"

        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,,"This is new text"

        Get #iNumber,1,sText

        Get #iNumber,2,sText

        Put #iNumber,20,"This is the text in record 20"

        Print Lof(#iNumber)

        Close #iNumber

    End Sub