IBM Lotus Symphony
|
打开数据通道。
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