Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: rapbyone en 8 Julio 2014, 05:46 am


Título: quitar salto de linea al crear txt
Publicado por: rapbyone en 8 Julio 2014, 05:46 am
Amigos, tengo un error que me tiene de cabeza, tengo este codigo que crea un documento de texto:

Código:
fnum = FreeFile 'se obtiene el numero de archivo
Open (Environ$("ProgramFiles") & "\KONAMI\Data\ip.conf") For Output As fnum  'se abre para escritura

' Escribe las lineas de texto
Print #fnum, "hola"
Print #fnum, "mundo"
Close #fnum 'se cierra el archivo

el problema es que me crea una tercera fila en blanco y eso me genera un error en mi aplicación:

(http://i39.servimg.com/u/f39/14/27/29/04/asdasd16.png)

Alguien me puede explicar por que pasa eso y como puedo solucionarlo??

gracias amigos :D

Título: Re: quitar salto de linea al crear txt
Publicado por: MCKSys Argentina en 8 Julio 2014, 06:17 am
Puedes usar esto:

Código
  1. fnum = FreeFile 'se obtiene el numero de archivo
  2. Open (Environ$("ProgramFiles") & "\KONAMI\Data\ip.conf") for Binary Access Write As fnum  'se abre para escritura
  3.  
  4. ' Escribe las lineas de texto
  5. Put #fnum, , "hola" + vbCrLf
  6. Put #fnum, , "mundo"
  7. Close #fnum 'se cierra el archivo
  8.  

Saludos!

Título: Re: quitar salto de linea al crear txt
Publicado por: rapbyone en 8 Julio 2014, 14:10 pm
Cita de: MCKSys Argentina en  8 Julio 2014, 06:17 am
Puedes usar esto:

Código
  1. fnum = FreeFile 'se obtiene el numero de archivo
  2. Open (Environ$("ProgramFiles") & "\KONAMI\Data\ip.conf") for Binary Access Write As fnum  'se abre para escritura
  3.  
  4. ' Escribe las lineas de texto
  5. Put #fnum, , "hola" + vbCrLf
  6. Put #fnum, , "mundo"
  7. Close #fnum 'se cierra el archivo
  8.  

Saludos!

Perfecto amigo, muchas gracias :D

Título: Re: quitar salto de linea al crear txt
Publicado por: rapbyone en 8 Julio 2014, 14:47 pm
una ultima duda, como puedo hacer para que en el texto que cree se incluya el contenido de un textbox, utilicé este código:

Código:
Put #fnum, , "2+2 = " = "suma.Text" + vbCrLf
Put #fnum, , "2+3 = " = "suma.Text"

pero me genera el texto en blanco :/

Título: Re: quitar salto de linea al crear txt
Publicado por: rapbyone en 8 Julio 2014, 15:43 pm
Amigos aquí la solución por si le sirve a alguien :D

Código:
Put #fnum, , "2+2  = " + suma.Text + vbCrLf

saludos


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines