[AYUDA] Archivos Binarios

[viviz02]

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 [Seleccionar] Expandir

'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?

[krackwar]

Con :

Código [Seleccionar] Expandir

Replace

y el codigo tendria que ser asi:

Código [Seleccionar] Expandir


'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

[viviz02]

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.

[krackwar]

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.