Anónimo
Pregunta sobre visual y bloc de notas
Hola estoy introduciendo ciertos datos de mi listbox a un archivo mediante este código:
'Añade en lista text4
List1.AddItem (Text4.Text)
'Guarda en archivo text4
Open "c:\datos.txt" For Append As 1
Write #1, Text4.Text
Close #1
Esto me lo introduce todo en una sola columna. El problema es que determinados datos quiero que me aparezcan en otra columna junto a esta y no se exactamente como introducir el salto de columna en el bloc de notas por medio de códigos de visual basic.
Muchas gracias por vuestro tiempo
'Añade en lista text4
List1.AddItem (Text4.Text)
'Guarda en archivo text4
Open "c:\datos.txt" For Append As 1
Write #1, Text4.Text
Close #1
Esto me lo introduce todo en una sola columna. El problema es que determinados datos quiero que me aparezcan en otra columna junto a esta y no se exactamente como introducir el salto de columna en el bloc de notas por medio de códigos de visual basic.
Muchas gracias por vuestro tiempo
1 respuesta
Respuesta de vorkosigan
1
Prueba con las secuencias de escape:
chr$(10) = FF
chr$(13) = CR
chr$(9) = TAB
Con el tabulador puedes crear "columnas", es decir filas con elementos separados una cantidad fija de caracteres.
chr$(10) = FF
chr$(13) = CR
chr$(9) = TAB
Con el tabulador puedes crear "columnas", es decir filas con elementos separados una cantidad fija de caracteres.
Disculpa pero no se encajar los códigos que me distes con mis códigos.Te importaría explicármelo mejor. Muchas gracias (Al introducir estos códigos en la secuencia que escribir me da error)
OK. Supongamos que en TextBox3 tienes nombres de persona y que en TextBox4 tienes sus teléfonos. Para imprimirlos en la misma línea y en diferentes columnas haríamos:
Write #1, TextBox3. Text & chr$(9) & TextBox4.Text
(Tengo una duda acerca de si chr$(9) es TAb o es el código 11. Pruébalo y si no funciona, lo investigaré)
Write #1, TextBox3. Text & chr$(9) & TextBox4.Text
(Tengo una duda acerca de si chr$(9) es TAb o es el código 11. Pruébalo y si no funciona, lo investigaré)
Me dice que hay un error 424 en el tiempo de ejecución.Se requiere un objeto.
He probado con 9 y con 11 y nada.
He probado con 9 y con 11 y nada.
Prueba con esto:
Write #1, TextBox4.Text; Chr$(9); "hello, kitty"
Crea 2 columnas, tabuladas, con el valor de textbox4 y el literal "hello, kitty"
Write #1, TextBox4.Text; Chr$(9); "hello, kitty"
Crea 2 columnas, tabuladas, con el valor de textbox4 y el literal "hello, kitty"