SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: solcito en Miércoles 12 de Enero de 2005, 22:06

Título: Leer De Archivo
Publicado por: solcito en Miércoles 12 de Enero de 2005, 22:06

Hola gente de nuevo yo!! como estan? espero que mejor que yo ( estoy insolada  :(  ) pero bueno....

Estoy guardando una palabra encriptada en un archivo que creo desde mi programa :

Código: Text

1.  
2.  
3.     path = DirList.path + "\" + "prueba"
4.     Open path + ".txt" For Binary As 1    'crea el archivo .txt
5.    
6.     For z = 1 To Len(txtSave)
7.         caracter = Mid(txtSave.Text, z, 1)  'lo saco
8.         Put #1, , EnDeCryptSingle(Asc(caracter))    'lo pongo
9.     Next z
10.  
11.  

lo que quiero hacer y no puedo es leer luego esa palabra encriptada desde el archivo, probe con Get y nada, no lo lee, no se como pueod hacer para leer toda la palabra desde el archivo, antes de que pregunten el archivo esta abierto, y deberia leer toda la palabra, osea hasta que sea fin de archivo.

Les agradeceria que me contesten porq es Urgente, desde ya Muchas Gracias !!!! :hola:

Título: Re: Leer De Archivo
Publicado por: Jose Arriagada en Miércoles 12 de Enero de 2005, 22:16

Cuando leas usa INPUT

INPUT #1, Caracter

Título: Re: Leer De Archivo
Publicado por: Brroz en Jueves 13 de Enero de 2005, 09:25

Hola.

Get debe servir perfectamente para leer el archivo. Utiliza una variable de tipo byte para obtener los datos leídos. Si quieres leer más de un byte en cada 'Get' utiliza una matriz también de tipo byte dimensionada según el número de bytes que quieres leer en cada Get.

Chau.

Título: Re: Leer De Archivo
Publicado por: Cyclop en Jueves 13 de Enero de 2005, 18:25

Seria mejor asi

Código: Text

1.  
2.    'Grabar datos
3.    Open "datos.dat" For Binary As #1    
4.    sclave$ = ""
5.    For z = 1 To Len(txtSave)
6.        caracter = Mid(txtSave.Text, z, 1)
7.        sclave$ = scalve$ + EnDeCryptSingle(Asc(caracter))
8.    Next
9.    Put #1, , sclave$
10.    Close #1
11.  
12.    ' Leer datos
13.    Open "datos.dat" For Binary As #1    
14.    sclave$ = Space(255)
15.    Get #1, , sclave$
16.    Close #1
17.  
18.  

Suerte

Título: Re: Leer De Archivo
Publicado por: solcito en Jueves 13 de Enero de 2005, 19:26

Cyclop disculpa mi ignorancia pero porq sclave$ con el $ al final, lo eh visto en varios lados y no se que significa, soy novata en esto, perdonen las preguntas tontas.  :unsure:

Saludos


Y gracias por responderme siempre  :hola:

Título: Re: Leer De Archivo
Publicado por: Cyclop en Viernes 14 de Enero de 2005, 01:10

Te indica que la variable es del tipo string, y sirve para que cuando grabes un dato en un archivo binario, no incluya la referencia.


Salu2