Для хранения переменных и значений использую коллекцию. Ключ - имя, Item - значение.
Так вот количество Item около 15 тыс. При сохранении этой коллекции в файл (между сеансами работы) - это страшные тормоза.
- Код: Выделить всё
Sub SaveVariables()
Dim i
Dim Key As String
Dim item
Dim TempString As String
i = 0
Set fso = New FileSystemObject
Set TxtStream = fso.OpenTextFile(VariableFilePatch, ForWriting, True)
For Each item In KeyCollection
i = i + 1
Key = KeyCollection.item(i)
TxtStream.WriteLine Key
TxtStream.WriteLine VariableCollection.item(Key)
DoEvents 'это из-за тормозов
Next
TxtStream.Close
End Sub
Хотя, когда загружаю (создаю) эту коллукцию из файла - все происходит в одно мгновенье:
- Код: Выделить всё
Sub LoadVariables()
Dim Key
Dim Value
Set fso = New FileSystemObject
Set TxtStream = fso.OpenTextFile(VariableFilePatch, ForReading, False)
Do While Not TxtStream.AtEndOfStream
Key = TxtStream.ReadLine
Value = TxtStream.ReadLine
KeyCollection.Add Key
VariableCollection.Add Value, Key
Loop
TxtStream.Close
End Sub
Нельзя ли УБЫСТРИТЬ???
pls, forgive lamerzzzzzz
