IBM Lotus Symphony
|
Abre um canal de dados.
Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]
FileName: Nome e caminho do arquivo que você deseja abrir. Se você tentar ler um arquivo que não existe (Access = Read), aparecerá uma mensagem de erro. Se tentar escrever em um arquivo que não existe (Access = Write), será criado um novo arquivo.
Mode: Palavra-chave que especifica o modo de arquivo. Valores válidos : Append (incluir em arquivo sequencial), Binary (os dados podem ser acessados por bytes usando Get e Put), Input (abre o canal de dados para leitura), Output (abre o canal de dados para composição) e Random (edita arquivos relativos).
IOMode: Palavra-chave que define o tipo de acesso. Valores válidos: Read (somente leitura), Write (somente composição), Read Write (ambos).
Protected: Palavra-chave que define o status de segurança de um arquivo após a abertura. Valores válidos: Shared (o arquivo pode ser aberto por outros aplicativos), Lock Read (o arquivo está protegido contra leitura), Lock Write (o arquivo está protegido contra composição), Lock Read Write (nega acesso ao arquivo).
FileNumber: Qualquer expressão de números inteiros de 0 a 511 para indicar o número de um canal de dados livre. É possível, então, passar comandos por meio do canal de dados para acessar o arquivo. O número do arquivo deve ser determinado pela função FreeFile imediatamente antes da instrução Open.
DatasetLength: Para arquivos de acesso aleatório, defina o comprimento dos registros.
![]() |
É possível modificar apenas o conteúdo de um arquivo que foi aberto com a instrução Open. Se você tentar abrir um arquivo que já está aberto, aparecerá uma mensagem de erro. |
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, "Esta é outra linha de texto"
Fechar #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
Fechar #iNumber
Msgbox sMsg
End Sub