como escribir en un arhivo TXT seguido

[x64core]

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 

este es mi codigo:

Código (VB) [Seleccionar] Expandir

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


[BlackZeroX]

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!¡.

[Cicklow]

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.

[BlackZeroX]

de como escribir en una archivo de texto en la misma linea osea

[x64core]

buenas creo poder aver solucionado el problemas
black zero no t pude entender pana lo que me explicast
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

[BlackZeroX]

.

Código (vb) [Seleccionar] Expandir



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!¡.

[ignorantev1.1]

Código (vb) [Seleccionar] Expandir


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!