IBM Lotus Symphony


Open 语句 [运行时]

打开数据通道。

语法:

Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]

参数:

FileName:要打开的文件的名称和路径。当您尝试读取一个不存在的文件时(Access = Read),会出现一条错误消息。当您尝试写入一个不存在的文件时(Access = Write),会创建一个新文件。

Mode:指定文件方式的关键字。有效值:Append(追加至顺序文件)、Binary(可以通过使用 Get 和 Put 的字节访问的数据)、Input(打开数据通道以便读取)、Output(打开数据通道以便写入)和 Random(编辑相对文件)。

IOMode:定义访问类型的关键字。有效值:Read(只读)、Write(只写)和 Read Write(可读可写)。

Protected:定义文件打开后安全状态的关键字。有效值:Shared(文件可以由其他应用程序打开)、Lock Read(保护文件不被读取),Lock Write(保护文件不被写入)和 Lock Read Write(拒绝文件访问)。

FileNumber:从 0 到 511 的任何整型表达式,用于指示空闲数据通道的编号。您可以通过数据通道传送命令来访问文件。文件号必须直接由 Open 语句之前的 FreeFile 函数确定。

DatasetLength:对于随机访问文件,设置记录的长度。

备注图标 只可以修改使用 Open 语句打开的文件的内容。如果您尝试打开一个已打开的文件,那么会显示一条错误消息。

示例:

Sub ExampleWorkWithAFile

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

Dim sMsg as String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Output As #iNumber

Print #iNumber, "This is a line of text"

Print #iNumber, "This is another line of text"

Close #iNumber

iNumber = Freefile

Open aFile For Input As iNumber

While not eof(iNumber)

Line Input #iNumber, sLine

If sLine <>"" then

sMsg = sMsg & sLine & chr(13)

end if

wend

Close #iNumber

Msgbox sMsg

End Sub


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