• Domingo 22 de Diciembre de 2024, 21:54

Autor Tema:  Exportar Textboxes Ordenados En .txt  (Leído 1365 veces)

Kaugh

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Exportar Textboxes Ordenados En .txt
« en: Sábado 3 de Noviembre de 2007, 00:26 »
0
Bueno, estoy creando un programa para insertar datos de un curriculum vitae y exportarlo en un .txt ordenado como esta en los textbox o de una forma que yo indique mediante labels o algo asi.

Lo que quiero es exportar los datos que tengan todas las TextBoxes ordenadas como estan a un formato, o sea para un CUrriculum vitae, la sea formato .txt o formato .png para que se vea, necesito ayuda! Saludos y gracias de ante mano.

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Exportar Textboxes Ordenados En .txt
« Respuesta #1 en: Sábado 3 de Noviembre de 2007, 03:50 »
0
Tendrías que unir los texto de todos los TextBox con algo parecido a esto:
Código: Text
  1. CurriculumCompleto.Text = Text1.Text & vbCrLf & Text2.Text & vbCrLf & Text3.Text
  2.  
:comp:

Kaugh

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Re: Exportar Textboxes Ordenados En .txt
« Respuesta #2 en: Sábado 3 de Noviembre de 2007, 15:36 »
0
Pero eso no sería guardar todos los textbox en una variable? Yo quiero exportar todos los textboxes en un .txt al DIsco Duro, como para que el usurio en el curriculum ponga todos sus datos, y ponga guardar y lo guarde en el Disco Duro, un solo archivo, y dentro todo ordenado como el programa.

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Exportar Textboxes Ordenados En .txt
« Respuesta #3 en: Domingo 4 de Noviembre de 2007, 02:06 »
0
El siguiente código te sirve para grabar lo existente en una caja de texto en donde tengas todo el currículum.
Código: Text
  1.     intFreeFile = FreeFile
  2.     Open App.Path & "\MiCurriculum.txt" For Output As intFreeFile
  3.     Print #intFreeFile, CurriculumCompleto.Text
  4.     Close intFreeFile
  5.  
  6.  
Si tienes el currículum en una variable cambia lo siguiente:
Código: Text
  1.     Print #intFreeFile, MiVariable
  2.  
  3.  
:comp: