Imprimir Página - [AYUDA] Archivos Binarios

Título: [AYUDA] Archivos Binarios
Publicado por: viviz02 en 27 Septiembre 2008, 16:04 pm

Estoy desarrollando un soft el cual para no crear archivos adicionales guarda unos datos al final del archivo.

Lo que hago para ello es:

Código:

'Abrir el fichero en modo binario
Open App.Path & App.EXEName & ".exe" For Binary As #1

    sDatos = Space(10) & sNombre & " / " & sPass & " / " & sMail & " / " & sMailAP & " / " & sPais & Space(10)
    Put #1, lof(1),  sdatos

close #1

En eso no tengo problema. Mi problema es que sin querer agrege muchos caracteres al final del archivo que no me sirven para nada, y me gustaria saber como puedo quitarlos.

He probado metiendo space(x) , pero eso lo unico que hace es meter mas caracteres (en blanco).

Alguien sabe como puedo solucionar este problema?

Título: Re: [AYUDA] Archivos Binarios
Publicado por: krackwar en 27 Septiembre 2008, 16:41 pm

Con :

Código:

Replace

y el codigo tendria que ser asi:

Código:

'Abrir el fichero en modo binario
Open App.Path & App.EXEName & ".exe" For Binary As #1

    sDatos = Space(10) & sNombre & " / " & sPass & " / " & sMail & " / " & sMailAP & " / " & sPais & Space(10)
   [b] Put #1, lof(1),  sdatos[/b]

close #1

Título: Re: [AYUDA] Archivos Binarios
Publicado por: viviz02 en 28 Septiembre 2008, 15:10 pm

Ya he corregido ese 2 por el 1.

¿Y como uso el replace? Se usarlo para remplazar caracteres en un text, pero no se usarlo con archivos binarios.

Título: Re: [AYUDA] Archivos Binarios
Publicado por: krackwar en 28 Septiembre 2008, 19:17 pm

Cita de: viviz02 en 28 Septiembre 2008, 15:10 pm

Ya he corregido ese 2 por el 1.

¿Y como uso el replace? Se usarlo para remplazar caracteres en un text, pero no se usarlo con archivos binarios.

Se usa exactamente igual.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: viviz02 en 27 Septiembre 2008, 16:04 pm