Hola, la otra vez Geoavila me paso un ejemplo de las faqs para cargar un txt separado por comas en un msflexgrid en varias columnas. Aca tengo este ejemplo que tambien usa split, pero esta un poco cambiado ya que ese ejemplo me cargaba varias columnas que era lo que yo queria, pero si tenia un txt sin comas, un numero abajo del otro, no me lo cargaba, es decir me hacia lo mas complicado pero si quiero hacer lo mas facil, cargar un archivo en una sola columna, no me sale. Este codigo sí me carga un archivo en una sola columna o en todas las columnas que haya en el txt. Pero el problema es que antes de cargarlo, tengo que agregar la cantidad de filas o columnas que tenga el txt en el msflexgrid. Si no, me dice que el subindice esta afuera del intervalo...Este problema no me pasaba en el ejemplo de las faqs, pero como les dije, ahi si o si el txt tenia que tener varias columnas... como puedo hacer para que las columnas y/o filas que hagan falta me las agregue solo?
Private Sub Command1_Click()
On Error GoTo error 'ABRIMOS EL ARCHIVO
Directory$ = "c:\a.txt"
Dim MyString As String
On Error GoTo error
Open Directory$ For Input As #1
While Not EOF(1)
Line Input #1, MyString$
DoEvents
Dim V As Variant 'SEPARAMOS LAS COMAS
V = Split(MyString$, ",")
For i = 0 To UBound(V)
MSFlexGrid1.TextMatrix(j, i) = V(i)
Next
j = j + 1
Wend 'CERRAMOS EL ARCHIVO
Close #1
Exit Sub
error: MsgBox Err.Description, vbExclamation, "Error"
End Sub
