Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: NsTeam en Abril 15, 2011, 02:43:45 am

Título: [Solucionado] Abrir y Guardar contenido de textbox
Publicado por: NsTeam en Abril 15, 2011, 02:43:45 am
Hola amigos

andube creando una aplicacion y me tope con esta parte de guardar los contenidos de lo textos en un archivo, para luego poder abrirlo y cada contenido se habra segun corresponda

puedo lograr guardar el contenido de un textbox en un bloc de notas y a la vez puedo abrirlo, pero la duda que tengo es:
Como puedo guardar el contenido de text1 y text2 en un solo archivo y a la vez poder abrirlo  y cada contenido regrese a su textbox

Gracias por su ayuda :)
Título: Re:Abrir y Guardar contenido de textbox
Publicado por: raul338 en Abril 15, 2011, 10:03:14 am
Ahi varias formas, asi como grabas para un archivo de texto, puedes grabar ambos datos separados por un caracter o varios y despues separarlos con Split y ponerlo cada uno en su textBox

Otra cosa que puedes usar es Archivos INI que te facilitaran mucho :P

lee esto 159 - Leer y grabar datos en un archivo INI (http://www.recursosvisualbasic.com.ar/htm/listado-api/159-leer-grabar-archivo-ini.htm)
Título: Re:Abrir y Guardar contenido de textbox
Publicado por: NsTeam en Abril 15, 2011, 03:04:13 pm
Gracias Raul

me ayudo bastante...

S2

Logre guardar el contenido del textbox

Código: [Seleccionar]
Call Grabar_Ini(Path_Archivo_Ini, "Introduccion", Text1.Text)
y a la vez tambien puedo abrirlo

Código: [Seleccionar]
Text1.Text = Leer_Ini(Path_Archivo_Ini, "Introduccion", "")
El problema es que el text1 tiene la propiedad multiline en True, y al momento de leer el archivo.ini  solo logra leer la primera linea

Contenido del textbox al guardar

Código: [Seleccionar]
11111
22222
33333

y al leerlo en el mismo textbox con la propiedad multiline en true solo me lee

Código: [Seleccionar]
11111
Alguna ayuda por favor...

Gracias
Título: Re:Abrir y Guardar contenido de textbox
Publicado por: raul338 en Abril 15, 2011, 05:50:40 pm
Tienes que reemplazar.
para guardar
Replace$(Text1.Text, vbCrLf, Chr(1) & Chr(1))

y para volver a la normalidad

Replace$(Text1.Text, Chr(1) & Chr(1), vbCrLf)

Chr(1) & Chr(1) es el "separador" , puedes poner lo que quieras :P
Título: Re:Abrir y Guardar contenido de textbox
Publicado por: NsTeam en Abril 15, 2011, 06:24:52 pm
Gracias raul
me olvide de esa nota...

S2