Работа с .txt

[Riter]

Есть текстовый файл с информацией имеющий вид базы.
Столбцы разделены табуляцией. Как можно это вывести в MSFlexGrid? У меня все в одном столбце получается.

[gaidar]

Запость сюда код, мы посмотрим.

А вообще - элементарно - по разделителю бьешь строки и сохраняешь в массивы в виде таблицы

array1(0) array2(0) ...
array1(1) array2(1) ...
...
array1(n) array2(n) ...

И в цикле в Grid забиваешь значения.

[Konst_One]

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

Private Sub Form_Load()
Dim s As String
With Me.MSFlexGrid1
    .Redraw = False
    .Clear
    .Cols = 3
    .Rows = 0
    s = "one" & vbTab & "two" & vbTab & "three"
    .AddItem s
    s = "1" & vbTab & "2" & vbTab & "3"
    .AddItem s
    s = "1" & vbTab & "2" & vbTab & "3"
    .AddItem s
    .FixedCols = 0
    .FixedRows = 1
    .Redraw = True
End With
End Sub


Вроде бы должно получаться.

[alibek]

В цикле долго.
Что-то у меня смутные воспоминания, что в этом гриде есть свойство, чтобы все содержимое представить в виде строки, разделитель полей табуляция, разделитель строк новая строка. И это свойство можно и читать, и записывать.

[Cyrax]

ну примерно так...

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

  Dim sFileName As String ' имя файла
  Dim sRow As String ' строка-буфер
 
  sFileName = "path-to-file"
  MSFlexGrid1.Cols = 3 ' устанавливаем количество колонок в гриде
  Open sFileName For Input As #1 ' открываем для чтения
 
  Do Until EOF(1) ' цикл до конца файла
    Line Input #1, sRow ' читаем построчно из файла
   
    MSFlexGrid1.AddItem sRow ' добавляем в грид
  Loop

да пока пример набирал... тут уже напостили
ладно, видимо больше никто не в курсе: при добавлении записей в MSFlexGrig (и в MSHFlexGrid) можно использовать знак табуляции (vbTab or Chr$(9)) для разделения на колонки

[Riter]

спасибо за помощь