• Viernes 24 de Mayo de 2024, 21:53

Autor Tema:  Leer De Archivo  (Leído 1750 veces)

solcito

  • Miembro MUY activo
  • ***
  • Mensajes: 143
    • Ver Perfil
Leer De Archivo
« en: Miércoles 12 de Enero de 2005, 22:06 »
0
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:
Everything that has a beginning has an end.....

Jose Arriagada

  • Miembro MUY activo
  • ***
  • Mensajes: 373
    • Ver Perfil
Re: Leer De Archivo
« Respuesta #1 en: Miércoles 12 de Enero de 2005, 22:16 »
0
Cuando leas usa INPUT

INPUT #1, Caracter

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Leer De Archivo
« Respuesta #2 en: Jueves 13 de Enero de 2005, 09:25 »
0
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

  • Miembro MUY activo
  • ***
  • Mensajes: 323
    • Ver Perfil
    • http://www.geocities.com/icotext/spanish/
Re: Leer De Archivo
« Respuesta #3 en: Jueves 13 de Enero de 2005, 18:25 »
0
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
Icotext Evolution v0.5 para los amantes del ASCII Art
http]

solcito

  • Miembro MUY activo
  • ***
  • Mensajes: 143
    • Ver Perfil
Re: Leer De Archivo
« Respuesta #4 en: Jueves 13 de Enero de 2005, 19:26 »
0
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:
Everything that has a beginning has an end.....

Cyclop

  • Miembro MUY activo
  • ***
  • Mensajes: 323
    • Ver Perfil
    • http://www.geocities.com/icotext/spanish/
Re: Leer De Archivo
« Respuesta #5 en: Viernes 14 de Enero de 2005, 01:10 »
0
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
Icotext Evolution v0.5 para los amantes del ASCII Art
http]