Hola foreroos !!
Como les va ?¿ Espero que bien ^^
Pongo este tema porque me surjio una dudita y espero que me sepan resolver.
Estoy haciendo un programa y el cual lee unos datos de un archivo de texto.
los datos se dividen en nombre y apellido y los separo con el signo ;
pero aora la duda es en algun campo quiero añadir por ejemplo telefono,ciudad pais,empresa y algunos otros,como puedo hacer para que me los lea sin tener q añadir yo el campo.
Os paso un pedazo de mi code para que me entendais mejor
dim strArray =Split (sdata, vbcrlf)
dim i as long
for i = 1 to ubound (strarray)
dim gente() as String
gente = split (strarray(i), ";")
nombre.add gente(0)
apellido.add gente(1)
next i
pues bien,si quiero que me muestre otro campo tengo que añadirlo yo asi
telefono.add gente(2)
pero lo que yo quiero es que automaticamente me añada los campos el solito,sin yo tener que añadirlos,ya que alomjr me da por meter 100 y no voy a escribir asta el 100 u.u
Nose si me explique bien,cualquier cosa me dicen.
Saludos Un Besito
Trata de dejar bien el codigo y dentro de las etiquetas Geshi para que se lea mejor.
Vos decis que tienes un texto que esta escrito asi:
Juan;Perez;098123456;
Maria;Fernandez;098654812;
No?
Bueno, vos lo lees separando primero por lineas y luego por ";"
Yo pienso que tendrias que hacerlo distinto primero que nada, escribir los datos asi:
Juan Perez 098123456
Maria Fernandez 098654812
Entonces despues vas leyendo linea por linea y separando por los espacios " " en cada linea.
Si no entiendes dime, pero si lo quieres hacer de tu forma, prueba metiendo un bucle dentro del que ya tienes para ir aumentando el valor de 1 hasta 100
Gracias por responderme.
Pues no me a quedado muy claro del todo :S
y como meto un bucle ?¿ y si en vez de 100 digamos que quiero poner 1000 o 100000 ?¿
asias
Bueno, intenta hacer de la forma que te digo entonces, poner los datos como te digo.
Cuando hagas eso, volvemos a lo de leer esos datos y busca como leer datos de un archivo de texto en vb6, linea por linea hasta que se termine el contenido, asi no tendras que saber si hay 1000 o 10000 datos.
Despues de eso para que lo armes te digo qe lo haria asi:
Hacer
Abrir archivo de texto desde codigo claro xD
Leer linea de archivo de texto
Dividir entre " " y poner los datos en textbox o donde ibas a poner
Hasta que no haya mas datos, es decir, hasta que sea el Fin del archivo
Prueba a ver si sale o dime si te equivocas, pero intenta un buen rato
HOLA!!!
Por lo que veo estas usando comboBoxes te recomiendo ahcer una matriz de controles para poder hacer dinamico esto que decis...
No entendi mucho de lo que necesitas, intenta redactarlo de forma diferente y te ayudamos ;). (bah yo por lo menos XD)
[Rustic Mode= Activated]
Cita de: $Edu$ en 11 Julio 2011, 20:00 PM
Hacer
Abrir archivo de texto desde codigo claro xD
Leer linea de archivo de texto
Dividir entre " " y poner los datos en textbox o donde ibas a poner
Hasta que no haya mas datos, es decir, hasta que sea el Fin del archivo
[/Rustic Mode]
Jajaja.
GRACIAS POR LEER!!!
Jajaja esque no es pseudocodigo, lo puse asi para que entienda que es lo que tiene que hacer siempre, como pensar. El pseudocodigo es lo que le sigue a eso xD
while not EOF(ff)
:rolleyes: :rolleyes:
buenas gente,aqui estoy de nuevo
He intentado lo de leer el archivo con los espacios,pero nada de nada.
No soluciona mi problema :S
Pero aunque sea pudiste hacer la parte de guardarlo? Con Print, busca como te dije como guardar y leer archivos de texto, y cuando hayas modificado lo de guardarlo como te dije avisanos y vemos como leerlo
el guardado lo ago manualmente,osea edito yo mi archivo y demas.
el problema viene al cargarlo,ya que no me carga el resto de parametros
Bueno mira, te dejo como hacerlo, pero la idea es que lo hagas vs, asique intenta mejorarlo a tu gusto y hacer lo de guardar tambien.
Private Sub Command1_Click()
Dim data As String ' variable que contendra la linea del texto
Dim datos() As String ' el array que contendra las palabras divididas por " "
Dim FF As Integer ' usamos esto siempre para
FF = FreeFile ' asegurarnos de abrir un archivo que no abrimos antes
Open "C:\data.txt" For Input As #FF ' abrimos el archivo
Do ' bucle para leer todas las lineas por si usaras mas textbox
' y en ese caso tendrias que crear una matriz de control para ir agregandole valor al Index del textbox
Line Input #FF, data ' obtenemos la linea y la guardamos
datos = Split(data, " ") ' creamos el array para sacar Nombre, Apellido y telefono, separados
Text1.Text = datos(0) ' guardamos el Nombre
Text2.Text = datos(1) ' guardamos el Apellido
Text3.Text = datos(2) ' guardamos el telefono
Loop While Not EOF(FF) ' el bucle sigue hasta que no sea el fin
' EOF = End Of File
Close #FF ' cerramos el archivo
End Sub
Si no entiendes algo decime
gracias por la respuesta.
El codigo es parecido a lo que ya tenia yo.
Y no me sirve u.u
Pero bueno no pasa nada,ya no os mareo mas.
Muchas gracias por todo :D
Te rindes facil xD, yo con lo que te deje, y el codigo si miras los comentarios entenderias como modificarlo pero bueno.. va en gusto dijo una vieja..