Задача по оптимизации:

[zHackLeX]

Дано: массив (ОГРОМНЫЙ)
R() As Byte
Одномерный.
RichTextBox1 aka Editor
Нужно:

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


Sub ReloadArray
    For i = 1 to UBound(R)
    tmp$ = tmp$ & Chr$(R(i))
    Next
    Editor.TextRTF = tmp$
End Sub


Можно ли ускорить процесс загрузки?
А то приходится иногда перекачивать файлы по полтора мега - все виснет минут на 15...
Пробовал CopyMemory - бесполезно...

[Amed]

Ищи проект (hCore, кажется) - быстрая работа с RichTextBox.

[Amed]

Вот оно.
Поможет, надеюсь?

[Mikle]

zHackLeX
А если так:

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

Sub ReloadArray
    tmp$=space$(UBound(R))
    For i = 1 to UBound(R)
        mid$(tmp$,i,1) = Chr$(R(i))
    Next i
    Editor.TextRTF = tmp$
End Sub


[Ruslan Demidow]

zHackLeX
Перед циклом вычисли размер массива и положи значение в переменную.
А саму переменную используй в массиве.

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


Dim arrMax As Long
Dim i As Long

arrMax=Ubound(R)

For i=1 to arrMax
'... ну и так далее



Иначе, если использовать в For вычисление размера массива Ubound() - при каждой итерации переменной i - происходит вычисление размера массива, вместо простого сравнения i с arrMax (но этот метод проявляет себя с хорошей стороны только именно на больших массивах). Ну например, если в массиве хранится около 5000-10000 сообщений и т.п.

[GSerg]

Границы цикла вычисляются один раз, поэтому можно использовать любые выражения в качестве оных.

[kif]

Ты файлы в байтовый массив грузишь с винта или получаешь откуда-то?

если с винта, то можно так:

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

RichTextBox1.LoadFile MyFile

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

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

Public Function ArrayToString(SourceArray() As Byte) As String
  ArrayToString = StrConv(CStr(SourceArray), vbUnicode)
End Function

Public Function StringToArray(SourceString As String) As Byte()
  StringToArray = StrConv(SourceString, vbFromUnicode)
End Function

работает быстро.

[Ruslan Demidow]

Границы цикла вычисляются один раз, поэтому можно использовать любые выражения в качестве оных.

Т.е. если я сделаю так

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


Private R() As Long

Option Explicit


Private Sub Command1_Click()
    ReDim R(10)
    Dim i As Long
    For i = 1 To UBound(R)
        'где-то внутри цикла
        ReDim Preserve R(UBound(R) + 1)
        Debug.Print "Прошли " & i & "-й элемент массива"
    Next i
    Debug.Print "Новый размер массива= " & UBound(R)
End Sub


То цикл у меня закончится на старой границе массива? На той которая указана в объявлении цикла?

Только что проверил - точно, не пересчитывает.
Как-то не так получается...

[kif]

Дело не в старой или новой границе массива, а в том что значение UBound(R) при каждой итерации переопределяется, так как это функция.

попробуй пустой цикл, только вместо UBound(R) поставь конкретное число и увидишь разницу во времени, если цикл конечно не до 1000.

[GSerg]

Ещё раз - UBound вычисляется единожды.

[alibek]

Не UBound
Границы цикла FOR...NEXT вычисляются только один раз, при инициализации цикла. Счетчик же цикла может меняться. Проверка на достижение счетчиком конечного значения делается вроде бы на FOR (и, соответственно, на NEXT идет только приращение).
Если нужен цикл с "плавающими" границами, то тут только искуственные циклы типа DO...LOOP.

[Mikle]

А тормоза здесь:

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

tmp$ = tmp$ & Chr$(R(i))


Строка постоянно меняет длину.

[alibek]

Да и ReDim при каждой итерации скорости не добавляет.
Лучше увеличивать массив с определенным шагом, подкорректировав его в конце.

[Ruslan Demidow]

Да и ReDim при каждой итерации скорости не добавляет.
Лучше увеличивать массив с определенным шагом, подкорректировав его в конце.

Да это и понятно. ReDim я специально зарядил в цикл. Думал, что если граница цикла будет вычисляться при каждой итерации, то цикл получится бесконечным. Ан нет... Кончился на десятке.

Но ведь где-то же или читал, или сказал кто-то что вычисляется, вот не проверив и ляпнул.
Но всё равно, в любом случае я использую переменную вместо Ubound

[alibek]

Но ведь где-то же или читал, или сказал кто-то что вычисляется, вот не проверив и ляпнул.
Но всё равно, в любом случае я использую переменную вместо Ubound

В разных реализациях Бейсика бывает по разному. Поэтому хорошим тоном считается не использовать в границах цикла переменные, которые меняются внутри цикла.

[Andrey Fedorov]

А теперь - как проще:

Поищи классик StringBuilder (точнее аналог NET-овского класса) - или возьми приложенный (он несколько упрощен, но для данного случая вполне достаточен. И работай с ним, примерно так:

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

Dim s as StringBuilder

For i = 1 to UBound(R)
    s.Append Chr$(R(i))
Next

Debug.Print s


Применяй везде где требуется склейка большого количества строк...

[zHackLeX]

Спасибо в гигабайт размером.

Файл у меня находится на диске, причём
в двоичном файле, где побайтно зашифрован
весь TextRTF.

Попробую со StringBuilder'ом

Хотя, кажется, припарка в том месте, где
строка передаётся в объект RichTextBox.

[Inferno]

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

  Private Sub Form_Load() 
    Dim a(5) As Byte
    a(0) = Asc("t")
    a(1) = Asc("e")
    a(2) = Asc("s")
    a(3) = Asc("t")
    Text1.Text = StrConv(a, vbUnicode)
  End Sub


[Andrey Fedorov]

Хотя, кажется, припарка в том месте, где
строка передаётся в объект RichTextBox.

Нет, просто при объединении строки

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

s = s & s1

Постоянно перераспределяется память. Из-за этого и тормоза.
В общем для твоего случая можно сделать еще так:

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

s = Space(Ubound(R)+1)
For i=0 To Ubound(R)
    Mid$(s, i+1, 1) = Chr$(R(i))
Next i
Editor.TextRTF = s

Принцип ясен?

[Mikle]

Andrey Fedorov
Выше уже было, не реагируют.

[zHackLeX]

нет-нет, вполне даже реагируют!
Просто пока в процессе...
Шлифуется алгоритм декодирования,
определяю лимит для ключа шифрования и т. п.
Вот и выбираю - как быстрее.
Ведь переброс текста - дело второе...