USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Open File For Binary As 1 -> Como Usar???
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 12/01/2005 09:46 hs            
Olá, galera
Alguem tem algum material, tipo artigos ou exemplos, que ensine a utilizar o método Open pra lidar com arquivos???
Mais expecificamente estou interessado nos metodos para lidar com arquivos binarios...
Estou tendo algumas dificuldades com isso...
 
Agradeço qualquer ajuda


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

   
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
ENUNCIADA !
Postada em 12/01/2005 09:56 hs         

help do VB:


Open Statement
     

Enables input/output (I/O) to a file.

Syntax

Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]

The Open statement syntax has these parts:

Part Description
pathname Required. String expression that specifies a file name — may include directory or folder, and drive.
mode Required. Keyword specifying the file mode: Append, Binary, Input, Output, or Random. If unspecified, the file is opened for Random access.
access Optional. Keyword specifying the operations permitted on the open file: Read, Write, or Read Write.
lock Optional. Keyword specifying the operations restricted on the open file by other processes: Shared, Lock Read, Lock Write, and Lock Read Write.
filenumber Required. A valid file number in the range 1 to 511, inclusive. Use the FreeFile function to obtain the next available file number.
reclength Optional. Number less than or equal to 32,767 (bytes). For files opened for random access, this value is the record length. For sequential files, this value is the number of characters buffered.


Remarks

You must open a file before any I/O operation can be performed on it. Open allocates a buffer for I/O to the file and determines the mode of access to use with the buffer.

If the file specified by pathname doesn't exist, it is created when a file is opened for Append, Binary, Output, or Random modes.

If the file is already opened by another process and the specified type of access is not allowed, the Open operation fails and an error occurs.

The Len clause is ignored if mode is Binary.

Important   In Binary, Input, and Random modes, you can open a file using a different file number without Min closing the file. In Append and Output modes, you must close a file before opening it with a different file number.

 

*********
Open Statement Example
This example illustrates various uses of the Open statement to enable input and output to a file.

The following code opens the file TESTFILE in sequential-input mode.

Open "TESTFILE" For Input As #1
' Close before reopening in another mode.
Close #1

This example opens the file in Binary mode for writing operations only.

Open "TESTFILE" For Binary Access Write As #1
' Close before reopening in another mode.
Close #1

The following example opens the file in Random mode. The file contains records of the user-defined type Record.

Type Record   ' Define user-defined type.
   ID As Integer
   Name As String * 20
End Type

Dim MyRecord As Record   ' Declare variable.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
' Close before reopening in another mode.
Close #1

This code example opens the file for sequential output; any process can read or write to file.

Open "TESTFILE" For Output Shared As #1
' Close before reopening in another mode.
Close #1

This code example opens the file in Binary mode for reading; other processes can't read file.

Open "TESTFILE" For Binary Access Read Lock Read As #1

 

 

 
   
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
Postada em 12/01/2005 10:18 hs            
Martini, nao ajudou muito...
 
O que eu preciso é saber como alterar o arquivo aberto como Binary...
Inserir, Localizar e Excluir sequencias de Bytes do arquivo...
 
Alguém pode me dizer como???
     
Romero
VILHENA
RO - BRASIL
Postada em 12/01/2005 12:43 hs            

O código a seguir abre o arquivo ARQUIVODETESTE no modo de entrada seqüencial.

Open "ARQUIVODETESTE" For Input As #1

' Fecha antes de reabrir em outro modo.

Close #1

 

Este exemplo abre o arquivo no modo Binário somente para gravar operações.

Open "ARQUIVODETESTE" For Binary Access Write As #1

' Fecha antes de reabrir em outro modo.

Close #1

 

O exemplo a seguir abre o arquivo no modo Aleatório. O arquivo contém registros do tipo Record definido pelo usuário.

Type Record ' Define o tipo definido pelo usuário.

   ID As Integer

   Name As String * 20

End Type

 

Dim MeuRegistro As Record  ' Declara a variável.

Open "ARQUIVODETESTE" For Random As #1 Len = Len(MeuRegistro)

' Fecha antes de reabrir em outro modo.

Close #1

 

Este exemplo de código abre o arquivo para saída seqüencial; todo processo pode ler ou gravar no arquivo.

Open "ARQUIVODETESTE" For Output Shared As #1

' Fecha antes de reabrir em outro modo.

Close #1

 

Este exemplo de código abre o arquivo no modo Binário para leitura; outros processos não conseguem ler o arquivo.

Open "ARQUIVODETESTE" For Binary Access Read Lock Read As #1

 

Espero que ajude...rs....

Ps. Postei uma apostila muito boa sobre Defeinições e exemplos de funções dia 11-01-05, de uma alhoda assim que liberarem a apostila.

 

     
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 12/01/2005 14:03 hs            

Galera, Mais uma pergunta:

E quanto aos metodos de escrita e leitura???

Como usar Get e Put??? quais sao os parametros???

Existem outros métodos (para binary) alem desses???



Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

   
Romero
VILHENA
RO - BRASIL
Postada em 12/01/2005 16:03 hs            
Segue abaixo:
 

Exemplo da instrução Put

 

Este exemplo utiliza a instrução Put para gravar dados em um arquivo. Cinco registros do tipo Record definido pelo usuário são gravados no arquivo.

Type Record ' Define o tipo definido pelo usuário.

   ID As Integer

   Name As String * 20

End Type

 

Dim MeuRegistro As Record, NúmeroDoRegistro   ' Declara as variáveis.

' Abre o arquivo para acesso aleatório.

Open "ARQUIVODETESTE" For Random As #1 Len = Len(MeuRegistro)

For NúmeroDoRegistro = 1 To 5     ' Faz o loop 5 vezes.

   MeuRegistro.ID = NúmeroDoRegistro    ' Define o código.

   MeuRegistro.Name = "Meu Nome" & NúmeroDoRegistro ' Cria uma seqüência de caracteres.

   Put #1, NúmeroDoRegistro, MeuRegistro      ' Grava o registro no arquivo.

Next NúmeroDoRegistro

Close #1    ' Fecha o arquivo
 

Exemplo da instrução Print #

Este exemplo utiliza a instrução Print # para gravar dados em um arquivo.

Open "ARQUIVODETESTE" For Output As #1  ' Abre o arquivo para saída.

Print #1, "Isto é um teste" ' Imprime o texto para o arquivo.

Print #1,   ' Imprime a linha no arquivo.

Print #1, "Zona 1"; Tab ; "Zona 2" ' Imprime em duas zonas de impressão.

Print #1, "Alô" ; " " ; "Mundo"   ' Seqüências de caracteres separadas por espaço.

Print #1, Spc(5) ; "5 espaços à esquerda "    ' Imprime cinco espaços à esquerda.

Print #1, Tab(10) ; "Alô"  ' Imprime a palavra na coluna 10.

 

' Atribui valores Boolean, Date, Null e Error.

Dim MeuBool, MinhaData, MeuNulo, MeuErro

MeuBool = False : MinhaData = #Fevereiro 12, 1969# : MeuNulo = Null

MeuErro = CVErr(32767)

' True, False, Null e Error são traduzidos utilizando-se as configurações de localidade do seu

' sistema. As literais de data são gravadas utilizando-se a data abreviada padrão.

Print #1, MeuBool ; " é um valor Booleano"

Print #1, MinhaData ; " é uma data"

Print #1, MeuNulo ; " é um valor nulo"

Print #1, MeuErro ; " é um valor de erro"

Close #1 ' Fecha o arquivo.

 

Exemplo da instrução Write #

 Este exemplo utiliza a instrução Write # para gravar dados brutos em um arquivo seqüencial.

Open "ARQUIVODETESTE" For Output As #1  ' Abre o arquivo para saída.

Write #1, "Alô Mundo", 234 ' Grava os dados delimitados por vírgula.

Write #1,   ' Grava linha em branco.

 

Dim MeuBool, MinhaData, MeuNulo, MeuErro

' Atribui os valores Boolean, Date, Null e Error.

MeuBool = False : MinhaData = #Fevereiro 12, 1969# : MeuNulo = Null

MeuErro = CVErr(32767)

' Os dados Booleanos são gravados como #TRUE# ou #FALSE#. As literais de data são

' gravadas em formato de data universal; por exemplo, #1994-07-13#

 'representa 13 de julho de 1994. Os dados nulos são gravados como #NULL#.

' Os dados Error são gravados como #ERROR errorcode#.

Write #1, MeuBool ; " é um valor Booleano"

Write #1, MinhaData ; " é uma data"

Write #1, MeuNulo ; " é um valor nulo"

Write #1, MeuErro ; " é um valor de erro"

Close #1 ' Fecha o arquivo.

 

Exemplo da instrução Get

 Este exemplo utiliza a instrução Get para ler dados de um arquivo para uma variável. Este exemplo pressupõe que ARQUIVODETESTE seja um arquivo que contenha cinco registros do tipo Record definido pelo usuário.

Type Record ' Define o tipo definido pelo usuário.

   ID As Integer

   Name As String * 20

End Type

 

Dim MeuRegistro As Record, Posição ' Declara as variáveis.

' Abre o arquivo de exemplo para acesso aleatório.

Open "ARQUIVODETESTE" For Random As #1 Len = Len(MeuRegistro)

' Lê o arquivo de exemplo utilizando a instrução Get.

Posição = 3 ' Define o número do registro.

Get #1, Posição, MeuRegistro ' Lê o terceiro registro.

Close #1 ' Fecha o arquivo.

 

Espero que ajude...rsEmoções...

     
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página