llenar Msflexgrid con un archivo txt

[clavijo83]

Hola a todos.
me gustaria saber como agregar datos a un msflexgrid desde un archivo de texto, la verdad pude hacer el proceso inverso enviar los datos del flexgrid a un archivo txt, pero no se como llenar la grilla con el archivo y la verdad estoy en un apuro me gustaria que me ayudaran en lo que puedan.

gracias por su atencion

[seba123neo]

Hola, no es muy dificil, es lo mismo pero al reves...vas recorriendo el archivo en vez de la grilla y vas llenado la grilla en vez del archivo de texto...

saludos.

[ValentinoMolinari]

pon tu codigo y vemos como lo logramos
saludos

[Avellaneda]

Hola, una forma sencilla sería cargar el txt en un recordset y con éste rellenar el Grid con el método Clip GetString:

Código Visual Basic:

Dim rs As New ADODB.Recordset
With rs
    .ActiveConnection = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
            "DBQ=" & App.Path & ";DefaultDir=" & App.Path & ";"
    .CursorType = adOpenStatic
    .CursorLocation = adUseClient
    .Open "Select * from [Archivo.txt]"
End With
Dim i As Integer
With MSFlexGrid1
    .Rows = 2
    .Cols = rs.Fields.Count
    For i = 0 To .Cols - 1
        [COLOR="Green"]' encabezado de columna del Grid[/COLOR]
        .TextMatrix(0, i) = rs.Fields(i).Name
    Next i
    .Rows = rs.RecordCount + 1
    .Row = 1
    .Col = 0
    .RowSel = .Rows - 1
    .ColSel = .Cols - 1
    .Clip = rs.GetString(, rs.RecordCount)
    .Row = 1
End With
 

Notas:
- Tiene que estar activada una referencia a ADO
- Los delimitadores de campos del archivo tienen que ser punto y coma ";"
- Si el archivo no tiene encabezado, se lo tienes que poner a mano: TextMatrix(0, 0) = "Col 1", TextMatrix(0,1) = "Col 2" ...
- El archivo (Archivo.txt) está en el mismo directorio de la aplicación, si no es así lo debes indicar en el parámetro DefaultDir (DefaultDir = "c:\miRuta")

Saludos

[clavijo83]

ok ya pude, gracias por la ayuda