NicSoft писал(а):В текстовом виде можно, но хотелось бы наподобие *.ini (с быстрой записью в разделы).
Но я не о том. Есть еще метод. Если у тебя данных не очень много, и большая их часть - числа, то можно сохранять их в двоичном виде в виде структур.
Если интересно, могу прислать пример.
Option Explicit
Const FILE_NAME = "какой-то файл.dat"
Sub Main()
'==lngCount - Количество сохраняемых значений
Dim lngCount As Long
lngCount = 255 'Например...
'==btVal - массив чисел. Числа могут быть любого типа,
'==но обязательно одного и того-же.
Dim btVal() As Single 'Например тип - Single
ReDim btVal(lngCount - 1)
'==Здесь просто запишем значения в порядке убывания
Dim I As Long
'==Значения в массиве btVal - от 255 до 1
For I = 0 To 254
btVal(I) = 255 - I
Next
'=======================
'======Сохранение=======
'=======================
Open FILE_NAME For Binary Access Write As 1
Put #1, , lngCount
'==т.к. размер переменной типа Long - 4 байта...
Put #1, 4, btVal
Close #1
'=======================
'=======Загрузка========
'=======================
Open FILE_NAME For Binary Access Read As 1
Get #1, , lngCount
ReDim btVal(lngCount - 1)
Get #1, 4, btVal
Close #1
'==Остановись и проверь массив!
'==(через Watch)
Stop
End Sub
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 4