Amigos, tengo un error que me tiene de cabeza, tengo este codigo que crea un documento de texto:
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
Puedes usar esto:
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!
Cita de: MCKSys Argentina en 8 Julio 2014, 06:17 AM
Puedes usar esto:
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 :D
una ultima duda, como puedo hacer para que en el texto que cree se incluya el contenido de un textbox, utilicé este código:
Put #fnum, , "2+2 = " = "suma.Text" + vbCrLf
Put #fnum, , "2+3 = " = "suma.Text"
pero me genera el texto en blanco :/
Amigos aquí la solución por si le sirve a alguien :D
Put #fnum, , "2+2 = " + suma.Text + vbCrLf
saludos