Помогите пожайлуста,необх-мо загрузить txt файл в MSFlexGrid

[alex77777]

здравствуйте!

Такая задача.
Необходимо загрузить txt файл в MSFlexGrid
Формат txt:
01/01/1991,111111,Текст1,Текст2.

Спасибо всем кто откликнется

[Odrick]

Надеюсь, это поможет:

Код: Выделить всё

Private Sub Command1_Click()
    Dim sData As String
    Dim sSplit() As String
    Dim nRow As Integer
    Dim nI As Integer
   
    Open "data.txt" For Input As #1
    nRow = 1
    Do While Not EOF(1)
        Line Input #1, sData
        sSplit = Split(sData, ",")
        MSFlexGrid1.AddItem Str(nRow)
        For nI = 0 To 3
            MSFlexGrid1.Row = nRow + 1
            MSFlexGrid1.Col = nI + 1
            MSFlexGrid1.Text = sSplit(nI)
        Next nI
        nRow = nRow + 1
    Loop
    Close #1
End Sub


Может что наглючил в синтаксисе, не знаю Но сам подход правильный

[alex77777]

Ошибка :
RunTime '30010'
Invalid Column Value

[Odrick]

В таблице должно быть 5 колонок - одна фиксированая для заголовка строк и 4 для твоих данных - 01/01/1991 111111 Текст1 Текст2. А если их нет, то создавай "на лету" кодом. Иначе действительно будет такая ошибка. Ты с кодом-то разобрался?

[alex77777]

В таблице должно быть 5 колонок - одна фиксированая
почему 5 колонок ??? Если их всего 4 !
Вот мой пример:
У меня txt файл сразу с ЭТИХ СТРОК НАЧИНАЕТСЯ:


01/01/1991,111111,Текст1,Текст2
01/01/1992,222222,Текст1,Текст2
01/01/1993,333333,Текст1,Текст2
и т.д.