Простой текст, почему так долго

[Piratik]

Вот одна из моих первых програм на VBA в ворде 2003 меняет текст на что то не читаемое.

Dim str As String
Dim num() As Byte
---------------------------------------
Private Sub cb2_Click()
Randomize
j = Int(255 * Rnd + 1)
num = textbox.Text
For i = 0 To UBound(num) Step 2
num(i + 1) = j
Next
textbox.Text = num
End Sub
--------------------------------------
Private Sub cb1_Click()
num = textbox.Text
For i = 0 To UBound(num) Step 2
num(i + 1) = 0
Next
textbox.Text = num
End Sub

Так вот текст объемом около 18К иногда до 10...40 сек выполняет при попытке закодировать и всегда быстро выполняется при попытке раскодировать.
И еще на VB6 этот код уже не работает и всега читает из тексбокса неправильно. Тоесть всегда четные байты равны 0 хотя писал я в него совсем не то. Почему?

[Piratik]

В общем выяснилось вот что. На самом деле обработка файла проходит быстро а вот следующий оператор после цикла TextBox=num делает проблемы, но не всегда а при определеных значениях старшего байта юникода. Интересно чем это может быть вызвано и почему по прежнему в VB6 я все время читаю в старшем байте юникода 0 независимо что б я в него не писал. Может он там юникод не поддерживает?

[Dex]

После цикла ты не указал из какого элемента массива присваиваешь.
А вооще у тя размерность массива должна указана быть.

[alibek]

Dex, не говори глупые вещи.

[Piratik]

Я на самом деле присваиваю строку а не конкретный элемент массива.
А вопрос остается таким же , почему TextBox.Text=num занимает много времени, причем при разных значениях "j" (смотри код выше) время может быть от нескольких секунд до десятков секунд.
Ну и 2 вопрос про то что например VB6 просто игнорирует старший байт юникода , в нашем случае все равно какой я "j" записал, будет прочитано всегда как 0. В то время как в word 2003 все нормально

[Andrey Fedorov]

А вопрос остается таким же , почему TextBox.Text=num занимает много времени, причем при разных значениях "j" (смотри код выше) время может быть от нескольких секунд до десятков секунд.

Присвоение TextBox.Text=num должно проходить достаточно быстро, т.е тормоза у тебя явно где-то в другом месте. По приведенному огрызку кода это не определить. Вот если бы приложил простенький тестовый проектик, то можно было бы глянуть...

Ну и 2 вопрос про то что например VB6 просто игнорирует старший байт юникода , в нашем случае все равно какой я "j" записал, будет прочитано всегда как 0. В то время как в word 2003 все нормально

Что там у тебя конкретно по такому коду - непонятно. Но контролы в VB6 неуенкодные, а в последних версиях офиса - с поддержкой уенкода.

[Piratik]

Andrey Fedorov,

Присвоение TextBox.Text=num должно проходить достаточно быстро, т.е тормоза у тебя явно где-то в другом месте.

На самом деле я точно знаю что дело в присвоении. Уже проверено. Мое обьяснение этому такое - система пытается задействовать шрифт или локаль скорее даже, которой нет и на обработку этого у нее уходит время. Ты и сам можешь это проверить, код то маленький.

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

На самом деле это и есть весь код, абсолютно весь.

контролы в VB6 неуенкодные, а в последних версиях офиса - с поддержкой уенкода

Вот это как раз многое объясняет, а то я дурачек думал что в VB6 полный юникод, а если так, как ты говоришь, то тогда все ясно.
Спасибо