Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » como hago para Importar o leer archivo .txt MSFlexGrid

Visual Basic - como hago para Importar o leer archivo .txt MSFlexGrid

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil
Val: 12
Ha aumentado su posición en 4 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

como hago para Importar o leer archivo .txt MSFlexGrid

Publicado por Marcos Andres (5 intervenciones) el 20/06/2019 06:29:56
Amigos necesito de su ayuda, si alguien me puede orientar en subir archivo o leer un archivo txt. en un MSFlexGrid para cargarlo despues a la base de datos.

Adjunto archivo txt.
Gracias Marcos Nuñez
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de gilman
Val: 594
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

como hago para Importar o leer archivo .txt MSFlexGrid

Publicado por gilman (359 intervenciones) el 20/06/2019 09:08:24
por lo que parece se trata de un fichero con campos de longitud fija, para poder leerlo sería necesario conocer la longitud de los campos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

como hago para Importar o leer archivo .txt MSFlexGrid

Publicado por Antoni Masana (558 intervenciones) el 20/06/2019 13:51:58
Te pongo un pequeño ejemplo suponiendo que los campos son de longitud de 10 caracteres

1
2
3
4
5
6
7
8
9
10
11
12
Open "Archivo.txt" For input as #1

While Not Eof(1)
    Line input #1, Registro

    Campo(1) = mid$(Registro,  1, 10)
    Campo(2) = mid$(Registro, 11, 10)
    Campo(3) = mid$(Registro, 21, 10)
    Campo(4) = mid$(Registro, 31, 10)
    ...
    ' ---&--- Aqui guardas los datos donde necesitees

    ....
Wend
Close #1

Hay otras formas de hacerlo y seguro que mejor. Pero esta es una de ellas, ni la mejor ni la peor.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 12
Ha aumentado su posición en 4 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

como hago para Importar o leer archivo .txt MSFlexGrid

Publicado por Marcos Andres (5 intervenciones) el 20/06/2019 21:02:10
Muchas gracias por su tiempo.Estimado Antoni, lo voy hacer y le cuento como me va.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar