Programación General > Visual Basic 6.0 e inferiores

 Leer De Archivo

(1/2) > >>

solcito:
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 ---      path = DirList.path + "\" + "prueba"    Open path + ".txt" For Binary As 1    'crea el archivo .txt        For z = 1 To Len(txtSave)        caracter = Mid(txtSave.Text, z, 1)  'lo saco        Put #1, , EnDeCryptSingle(Asc(caracter))    'lo pongo    Next z  
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:

Jose Arriagada:
Cuando leas usa INPUT

INPUT #1, Caracter

Brroz:
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.

Cyclop:
Seria mejor asi


--- Código: Text ---    'Grabar datos   Open "datos.dat" For Binary As #1       sclave$ = ""   For z = 1 To Len(txtSave)       caracter = Mid(txtSave.Text, z, 1)        sclave$ = scalve$ + EnDeCryptSingle(Asc(caracter))    Next    Put #1, , sclave$   Close #1    ' Leer datos   Open "datos.dat" For Binary As #1       sclave$ = Space(255)   Get #1, , sclave$   Close #1  
Suerte

solcito:
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:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente