Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: x64core en 6 Junio 2011, 02:07 am



Título: como escribir en un arhivo TXT seguido
Publicado por: x64core en 6 Junio 2011, 02:07 am
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:

Código
  1. Dim Str As String
  2.  
  3.  
  4.  
  5. Sub Escribir()
  6. Open App.Path & "\archivo.txt" For Append As #1
  7. Print #1, Str
  8. Str = ""
  9. Close #1
  10. End Sub
  11.  
  12. Private Sub Text1_Change()
  13. Str = Right(Text1.Text, 1)
  14. Escribir
  15. End Sub
  16.  


Título: Re: como escribir en un arhivo TXT seguido
Publicado por: BlackZeroX en 6 Junio 2011, 08:35 am
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!¡.


Título: Re: como escribir en un arhivo TXT seguido
Publicado por: Cicklow en 7 Junio 2011, 08:24 am
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.


Título: Re: como escribir en un arhivo TXT seguido
Publicado por: BlackZeroX en 7 Junio 2011, 18:49 pm

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



Título: Re: como escribir en un arhivo TXT seguido
Publicado por: x64core en 10 Junio 2011, 00:01 am
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 :)


Título: Re: como escribir en un arhivo TXT seguido
Publicado por: BlackZeroX en 10 Junio 2011, 01:21 am
.
Código
  1.  
  2. Private Sub Form_Load()
  3. Dim ff As Integer
  4. ff = FreeFile
  5. Open "c:\aaa.txt" For Binary As ff
  6.    Put ff, (LOF(ff) + 1), "Datos"
  7. Close ff
  8. End Sub
  9.  
  10.  

Dulces Lunas!¡.


Título: Re: como escribir en un arhivo TXT seguido
Publicado por: ignorantev1.1 en 10 Junio 2011, 21:10 pm
Código
  1. dim ff as long
  2. dim archivo as string, contenido as string
  3.  
  4. archivo="c:\eltxt.txt"
  5.  
  6. 'Asi sacas el contenido del archivo
  7. ff=freefile
  8. open archivo for binary as ff
  9. contenido=space$(lof(ff))
  10. get ff,,contenido
  11. close ff
  12.  
  13. 'Asi juntas el contenido mas la nueva informacion
  14. contenido = contenido & " " & nuevaInfo 'Un espacion para que no quede junto :D
  15.  
  16. 'Asi guardas la "nueva" informacion
  17. ff=freefile
  18. open archivo for binary as ff
  19. put ff,,contenido
  20. close ff
  21.  
  22.  

Salud!