Estoy desarrollando un soft el cual para no crear archivos adicionales guarda unos datos al final del archivo.
Lo que hago para ello es:
'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?
Con :
Replace
y el codigo tendria que ser asi:
'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
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.
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.