hoa buenas compañeros bueno tngo una pequeña duda
de como escribir en una archivo de texto en la misma linea osea
tengo un Textbox en mi programa y necesito q cada vez q escriba un caracter abra un arhivo de texto y lo escriba en el archivo de texto!
pero es problema es q siempre q abro el archivo de texto me escribe en la siguiente linea porq utilizo print
nose si me podrian dar una idea amigos :P
este es mi codigo:
Dim Str As String
Sub Escribir()
Open App.Path & "\archivo.txt" For Append As #1
Print #1, Str
Str = ""
Close #1
End Sub
Private Sub Text1_Change()
Str = Right(Text1.Text, 1)
Escribir
End Sub
usa put....
put #Descriptor , Posición , Datos
El parámetro Posición no es necesario puedes dejarlo en blanco aun que podrías ponerle (lof(#Descriptor)+1) si no me equivoco.
Dulces Lunas!¡.
Tu problema es que estas usando Append, eso guarda el texto abajo del texto que ya hay en el file.
Si el archivo tiene: pepe, y vos le guardas cicklow, el file nuevo tendra pepecicklow
No uses append, usa otro metodo.
Cita de: Raul100 en 6 Junio 2011, 02:07 AM
de como escribir en una archivo de texto en la misma linea osea
buenas creo poder aver solucionado el problemas
black zero no t pude entender pana lo que me explicast :P
pero al menos dejo una solucion bueno mi idea es abrir el archivo txt y guardar la informacion en una variable y concatenarla con el nuevo caracter y luego escribir la cadena concatenada al archivo :)
.
Private Sub Form_Load()
Dim ff As Integer
ff = FreeFile
Open "c:\aaa.txt" For Binary As ff
Put ff, (LOF(ff) + 1), "Datos"
Close ff
End Sub
Dulces Lunas!¡.
dim ff as long
dim archivo as string, contenido as string
archivo="c:\eltxt.txt"
'Asi sacas el contenido del archivo
ff=freefile
open archivo for binary as ff
contenido=space$(lof(ff))
get ff,,contenido
close ff
'Asi juntas el contenido mas la nueva informacion
contenido = contenido & " " & nuevaInfo 'Un espacion para que no quede junto :D
'Asi guardas la "nueva" informacion
ff=freefile
open archivo for binary as ff
put ff,,contenido
close ff
Salud!