SALUDOS AMIGOS ALGUIEN SABE SI SE PUEDEN OMITIR LAS COMAS Y QUE EN VEZ DE ESTAS SE GUARDE CON SEPARADORES DE TIPO PIPE "|"? ESTO CUANDO GUARDAMOS LOS ARCHIVOS DE TEXTO EN MODO APPEND.
DE ANTEMANO LES AGRADEZCO SU AYUDA..
SALU2
comas... :huh: :-X
m imagino q quieres decir comillas "", estaras utilizando Write prueba a usar Print
Para lo de guardarlo con | :
print #1 archivo , texto &"|"
Salu2
HOLA MAN SALUDOS, LA VERDAD QUE SI ME FUNCIONO,
Y SI ERA EL WRITE, LO CAMBIE A PRINT Y AÑADI EL PIPE
COMO LO INDICASTE, GRACIAS, PROBLEMA RESUELTO
TE LO AGRADEZCO.
SALU2.
Hola otra vez la cosas es que si me funciono lo del Texto"|" pero lo malo es que los pone muy separado cada texto, mas o menos como de 10 espacios, como podria solucionar eso?
Gracias de antemano ;D
Buenas.
Espacios ¿? de donde estas sacando el texto a guardar y que codigo usas?
Bien, pongamos que guardas el contenido de un string y queres a lo ultimo de cada string guardada poner un marcador del tipo "|", imagino que no son espacios sino salos de linea lo que decis, ya que abris el archvio de texto y guardas en la linea siguiente desde la ultima escrita. Ok.
Lo que tenes que hacer es abrir el archivo completo y empezar a escribir desde el ultimo caracter contenido en el archivo no a partir de la primer linea libre, el codigo es facil, mira un poco por el foro o google.com como tratar archivo de texto plano con VB.
Espero que te ayude.
Saludos.
Hola hotmail_pop3, pues ya arregle el problema de los espacios entres los string, pero otra duda que me sale es como hacer que el input lea el campo pero sin el marcador "|" ya que cuando hago un input me lo pone todos los string en un textbox.
Espero no molestarlos con esta duda y muchas gracias de antemano, porque me an ayudado mucho.
aqui dejo el codigo donde estoy probando el codigo que me an dado.
Dim a As String
Dim b As String
Dim c As String
Private Sub cmdaceptar_Click()
Open "\libre.txt" For Append As #1
a = Text1.Text
b = Text2.Text
c = Text3.Text
Print #1, a; "|"; b; "|"; c;
Close #1
End Sub
Private Sub cmdLeer_Click()
Open "\libre.txt" For Input As #1
Input #1, a, b, c
Text1.Text = a
Text2.Text = b
Text3.Text = c
Close #1
End Sub
Open "\libre.txt" For Input As #1
Line Input #1, cadena
separa = Split(cadena, "|") ' esto separa el texto y los mete en un array, el | es el dlimitador
Text1.Text = separa(0)
Text2.Text = separa(1)
Text3.Text = separa(2)
Close #1
Suerte ;)