IBM Lotus Symphony


Put 语句 [运行时]

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

另请参阅:Get 语句

语法:

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

参数:

FileNumber:定义要写入的文件的任何整型表达式。

Position:对于相对文件(随机访问文件),为要写入的记录号。

对于二进制文件(二进制访问),为要开始写入的文件中字节的位置。

Variable:要写入文件的变量的名称。

有关相对文件的备注:如果该变量的内容与 Open 语句的 Len 子句中指定的记录长度不匹配,那么新写入记录的末尾与下一条记录之间的间隔由正在写入的文件中的现有数据进行填充。

有关二进制文件的备注:将变量的内容写入指定位置,文件指针直接插入最后一个字节的后面。两条记录之间无间隔。

示例:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM Must be a variant type

Dim aFile As String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Random As #iNumber Len=32

Seek #iNumber,1 REM Position to start writing

Put #iNumber,, "This is the first line of text" REM Fill line with text

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


产品反馈 | 其他文档 | 商标