IBM Lotus Symphony


Instrução Open [Tempo de Execução]

Abre um canal de dados.

Sintaxe:

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

Parâmetros:

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.

Ícone de Nota É 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.

Exemplo:

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


Feedback do Produto | Documentação Adicional | Marcas Registradas