elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  como escribir en un arhivo TXT seguido
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: como escribir en un arhivo TXT seguido  (Leído 3,990 veces)
x64core


Desconectado Desconectado

Mensajes: 1.908


Ver Perfil
como escribir en un arhivo TXT seguido
« 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.  


En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: como escribir en un arhivo TXT seguido
« Respuesta #1 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!¡.


En línea

The Dark Shadow is my passion.
Cicklow


Desconectado Desconectado

Mensajes: 604


-=Cicklow SOFT®=-


Ver Perfil WWW
Re: como escribir en un arhivo TXT seguido
« Respuesta #2 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.
En línea

www.cicklow.com . Solo Soy Un Ciego que Ve El Sonido Del Silencio
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: como escribir en un arhivo TXT seguido
« Respuesta #3 en: 7 Junio 2011, 18:49 pm »


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

En línea

The Dark Shadow is my passion.
x64core


Desconectado Desconectado

Mensajes: 1.908


Ver Perfil
Re: como escribir en un arhivo TXT seguido
« Respuesta #4 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 :)
En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: como escribir en un arhivo TXT seguido
« Respuesta #5 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!¡.
« Última modificación: 10 Junio 2011, 01:23 am por BlackZeroX▓▓▒▒░░ » En línea

The Dark Shadow is my passion.
ignorantev1.1


Desconectado Desconectado

Mensajes: 617


/\ Así acabo cuando quiero programar...


Ver Perfil WWW
Re: como escribir en un arhivo TXT seguido
« Respuesta #6 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!
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Leer arhivo plano (.TXT)
Programación Visual Basic
Poyson 0 1,569 Último mensaje 17 Octubre 2005, 17:48 pm
por Poyson
¿Como saber si un determinado arhivo existe?
Programación Visual Basic
TheGhost(Z) 7 3,074 Último mensaje 1 Abril 2006, 17:30 pm
por NYlOn
Ejecuta arhivo mhtml ó html
Programación Visual Basic
CsarGR 2 1,460 Último mensaje 25 Abril 2007, 16:32 pm
por einfluss
Como Buscar en un arhivo XML?
Programación Visual Basic
Lainuxxx 2 1,706 Último mensaje 6 Junio 2008, 16:36 pm
por Lainuxxx
AYUDA! manipulación de arhivo.
Programación C/C++
cv0023 2 1,811 Último mensaje 3 Noviembre 2015, 20:22 pm
por cv0023
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines