quitar salto de linea al crear txt

[rapbyone]

Amigos, tengo un error que me tiene de cabeza, tengo este codigo que crea un documento de texto:

Código [Seleccionar] Expandir

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:



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

gracias amigos

[MCKSys Argentina]

Puedes usar esto:

Código (vb) [Seleccionar] Expandir


fnum = FreeFile 'se obtiene el numero de archivo
Open (Environ$("ProgramFiles") & "\KONAMI\Data\ip.conf") for Binary Access Write As fnum  'se abre para escritura

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


Saludos!

[rapbyone]

Puedes usar esto:

Código (vb) [Seleccionar] Expandir


fnum = FreeFile 'se obtiene el numero de archivo
Open (Environ$("ProgramFiles") & "\KONAMI\Data\ip.conf") for Binary Access Write As fnum  'se abre para escritura

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


Saludos!

Perfecto amigo, muchas gracias

[rapbyone]

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 [Seleccionar] Expandir

Put #fnum, , "2+2 = " = "suma.Text" + vbCrLf
Put #fnum, , "2+3 = " = "suma.Text"


pero me genera el texto en blanco :/

[rapbyone]

Amigos aquí la solución por si le sirve a alguien

Código [Seleccionar] Expandir

Put #fnum, , "2+2  = " + suma.Text + vbCrLf

saludos