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


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

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

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]
[/Rustic Mode]

Jajaja.

GRACIAS POR LEER!!!

while not EOF(ff)

 

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

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

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..