Geoavila, si estas leyendo esto habras visto mi problema, lo de cargar un txt separado por coma en varias columnas de un flexgrid. Vi un ejemplo tuyo en las faqs, que es mas o menos lo mismo nada mas que te decia en varios msgbox las distintas partes de un texto separadas por coma. Lo modifique para que me lea un txt, y me quedo asi:
Dim Separo() As String
'por Geovanny G. Avila
'geoavila.com
'Por favor no remover esta área por respeto al autor.
Private Sub Command1_Click()
On Error GoTo error
Directory$ = "c:\a.txt"
Dim MyString As String
On Error GoTo error
Open Directory$ For Input As #1
While Not EOF(1)
Input #1, MyString$
DoEvents
SepararCadenas MyString$, ","
Wend
Close #1
Exit Sub
error: MsgBox (error)
End Sub
Function SepararCadenas(Str As String, Caracter As String)
Dim Sep As Integer
Dim I As Integer
' variable para contar las cadenasDim E As Long
' variable para presentar una a una las cadenas
Dim ContStr As Long
' para saber cuantos caracteres tiene la cadena
Dim Separo() As String
' para mostrar almacenar las cadenas en cada array 'seamos las cadenas en 0 como número inicial
Sep = 0
'contamos los caracteres
CountStr = Len(Str)
'Contamos cuantas cadenas hay
For E = 1 To CountStr
Otxt = Mid(Str, E, 1)
If Otxt = "," Then
' si es el separador sumar una cadena más
Sep = Sep + 1
End If
Next E
'Separmos las cadenas.
Separo = Split(Str, ",")
' El split nos sirve para serparar cadenas en las cuales
' metemos en nuestro array
For I = 0 To Sep
' que cuente cuantas cadenas hay
MSFlexGrid1.AddItem Separo(I)
'que muestre cadena por cadenaNext I
' listo
End Function
bueno, medio largo....
pero asi me agrega las partes separadas por coma en filas distintas, yo lo que quiero es que las filas del txt me las agregue en filas distintas en el flexgrid, pero como cada fila esta separada por comas, quiero que cada parte me la ponga en columnas distintas...si no mira el primer post mio que esta mejor explicado...
Bueno a ver si me podes ayudar. Desde ya muchas y perdon por la molestia. Saludos