Чтение файла в массив (таблицу)

[Niko]

Добрый день.
У меня есть текстовый файл в котором содержатся данные вида:
---
name1 100 100
name2 150 100
name3 50 200
...
name9000 300 100
---
Мне нужно загрузить эти данные в массив.

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

type bbb
  nam as string
  x as double
  y as double
end type

dim BaseT() as bbb

и отобразить их в таблице (FlexGrid)

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


Open PathFile For Input As 1
Do Until EOF(1)
    k = k + 1
    Line Input #1, sLine
    sMass = Split(sLine, " ")
    ReDim Preserve BaseT(k)
    BaseT(k).sName = sMass(0)
    BaseT(k).X = Val(sMass(1))
    BaseT(k).Y = Val(sMass(2))
    grdFlex.additem replace(sline," ",vbtab)
Loop

---
все работает но очень долго (около 10-и сек), к примеру в RitchTextBox этот файл загружается "мгновенно".
Подскажите как убыстрить этот процесс.

[skiperski]

Ещёбы! Использовать в цикле ReDim Preserve. Так быстро не будет по любому. А по поводу заполнения массива идея такая: раз всё равно заполняется FlexGrid, то может и уже распарсенные значения брать прямо из него? Зачем двойную работу делать? И посмотри в его настройках, может он позволяет использовать другой символ для разделения полей, тогда сможешь избавиться от Replace().

[pronto]

Узким местом является построчное чтение файла. Если длина файла в пределах нескольких мегабайт, то можно смело грузить его целиком в строковую переменную и работать с ней. Правда, алгоритм немного усложнится... Еще можно преобразовать файл в двоичный со структурой:
32 байта - имя
4 байта - x
4 байта - y
и т. д.
тогда считывание в файл можно сделать одной строкой и происходить это будет максимально быстро!

примерно так:

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

Type bbb
  nam As String * 32
  x As Single
  y As Single
End Type

dim BaseT() as bbb

fn = freefile
Open PathFile For Binary As #fn
redim BaseT(8999)
GET #fn, 1, BaseT() 'считывание
Close #fn

[Niko]

пробовал отдельно заполнять массив и после этого таблицу таким образом:

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

For i = 1 To UBound(BaseT)
    .Rows = i + 1
    .Row = i
    .Col = 0
    .Text = BaseT(i).sName
    .Col = 1
    .Text = BaseT(i).X
    .Col = 2
    .Text = BaseT(i).Y
Next i

массив заполняется примерно 5 сек и таблица около 5-и сек.

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

For i = 1 To UBound(BaseT1)
    .AddItem BaseT1(i)
Next i

так быстрее но не сильно. BaseT1 содержит строки с замененными пробелами на vbTab

[Niko]

to pronto разделителем в строке является пробел и длина названия, X и Y может быть разной.

[Andrey Fedorov]

Узким местом является построчное чтение файла.

В данном случае не это, а использование нагружаемого контрола типа FlexGrid - добавление идет долго именно в него. Выход - использовать нормальный Grid, а не из поставки VB. Обсуждалось сотни раз, в том числе и на тему какой...

[pronto]

2 Niko. При такой организации данных нет необходимости в разделител(е, ях). Длина имени может изменяться от 0 символов до 32. Переменная Single может хранить значения в диапазоне от -3.4x10^38 до -1.4x10^-45 для отрицательных величин и от +1.4x10^-45 до +3.4x10^38 для положительных величин...

З.Ы. Ну и неплохо бы прислушаться к Andrey Fedorov

[Niko]

файл не мой, а грид такой т.к. хочется выделять отдельные ячейки цветом.

[pronto]

после считывания файла в массив

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

Open NewFilePath For Binary As #fn
Put #fn, 1, BaseT() 'сохранить в двоичном виде
Close #fn

Потом обращаешься моим первым кодом к этому файлу.

[Niko]

но если он уже в массиве, зачем создавать новый файл и считывать его в тот-же массив?

[pronto]

Тебе нужно чтобы он (массив) грузился-заполнялся быстро? Если файл обновляется нечасто, то разницу почувствуешь при последующих обращениях к нему (двоичному).

[Niko]

так если я его (массив) уже заполнил мне не нужно обращаться к файлу, все данные есть в массиве.
осталось эти данные загрузить в таблицу (быстро).
сам массив так-же заполнять надо быстро (как в твоем коде) только из файла в его исходном формате.
переписывать исходный файл нет смысла т.к. данные считываются из него 1 раз и файл не нужен.

[pronto]

Ладно, я хотел как лучше, но если не надо, тогда вот:

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

fn = FreeFile
Open FilePath$ For Binary As #fn
flen = LOF(fn)
Content = Space(flen)
Get #fn, 1, Content
Close #fn

ReDim BaseT(ad)
For i = 1 To flen
   s = Mid$(Content, i, 1)
   q = Asc(s)
   
   Select Case q
      Case 33 To 255 'символы имени и координат
         ts = ts & s
      Case 32 'разделитель - пробел
         v = v + 1
         If v = 1 Then
            BaseT(ad).name = ts
         Else
            BaseT(ad).x = Val(ts)

            v = 0
         End If
         ts = ""
      Case 13 'разделитель строк
         BaseT(ad).y = Val(ts)
         ts = ""
         i = i + 1
         ad = ad + 1
         ReDim Preserve BaseT(ad)
   End Select
Next

'For i = 0 To ad
'   Debug.Print BaseT(i).name, BaseT(i).x, BaseT(i).y
'Next

[Niko]

спасибо. работает довольно быстро

[pronto]

Пожалуйста!

[Andrey Fedorov]

А еще этот файл можно открыть как Recordset...
На тему как текстовый файл открыть как Recordset - в конференции уже было...