Реализация функций Rexx по работе со строками в VBA

[tae1980]

Сообщение от slan

может быть код будет и красивше, но работать будет дольше..
я выбираю эффективность.

И в чем эффективность? Могу я попросить реальные примеры?
Вот на основе примере выше я смогу показать, что через мерное увлечение типизацией данных привело в неработоспособности процедуры в определенный момент.

[tae1980]

Сообщение от slan

может быть код будет и красивше, но работать будет дольше..

Поправлюсь.... предыдущий ответ был не совсем корректным.
На счет скорости выполнения согласен, в данном языке программирования использование не типизированных данных приводит к замедлению выполнения кода. Как ни крути тип данных в VBA присутствует всегда, я уже несколько раз не летал на это, сказывается долгий опыт работы в ином языке программирования.
Но моя ремарка касалась самого подхода к программированию, так сказать из "академических" соображений.

[tae1980]

Сообщение от SAS888

tae1980
А штаны себе тоже 60 размере покупаешь?

Оригинально...
На самом деле это обычная реакция людей ни когда не сталкивающихся с Rexx'сом. Это язык который предлагает несколько иные подходы к программированию. Хотя на освоение языка у меня ушла неделя, еще почти пол года приходилось ломать стереотипы заложенные ранее.

[slan]

Сообщение от SAS888

tae1980
А штаны себе тоже 60 размере покупаешь?

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

но вы сами, наверное, догадываетесь, что это за слесарь?


выложите пример с неработающим кодом.

[slan]

Сообщение от tae1980

Поправлюсь.... предыдущий ответ был не совсем корректным.
На счет скорости выполнения согласен, в данном языке программирования использование не типизированных данных приводит к замедлению выполнения кода. Как ни крути тип данных в VBA присутствует всегда, я уже несколько раз не летал на это, сказывается долгий опыт работы в ином языке программирования.
Но моя ремарка касалась самого подхода к программированию, так сказать из "академических" соображений.

пошире можно? как физически это происходит?

каким образом процессор обрабатывает за одинаковое время 16 и 4 байта?(16 и 4 - конечно же условно)

[tae1980]

Сообщение от slan

пошире можно? как физически это происходит?
каким образом процессор обрабатывает за одинаковое время 16 и 4 байта?(16 и 4 - конечно же условно)

Очень просто, для интерпретатора все переменные текстовые и числа хранятся как текст. По этому разрядность уже значение не имеет. При этом как не странно скорость очень и очень хорошая. В одной статье по рекксу бы описан пример (статью быстро не найду): на машине 400Мг, 16 мб ОЗУ число PI до 48 знака считается меньше чем за секунду. При этом ограничение по длине ввел программист.

[slan]

это же очень долго?

[tae1980]

Сообщение от slan

это же очень долго?

если интересно, попробую найти статью...

Я начал работать с рексом на 386 машине, 20 Мгц, под OS/2 warp 3.0, ни разу не возникало проблем по скорости работы. Не думаю что бы VBA чувствовал себя "комфортно" на подобной машине, я сомневаюсь, чтобы он вообще туда встал бы ). Ей

[tae1980]

Столкнулся с проблемой при работе с текстовыми файлами, в них могут в качестве разделителя между словами использоваться табуляция. В этом случае процедуры не работали. viter.alex подсказал как заменить табуляцию на пробел. Доработал процедуры, до работы с текстовыми строками в которых в качестве разделителя используется табулятор.

'' *** Words ***
'Определяет количество слов в строковой перемнной.
'Аналог команды Rexx.

'На входе:
'str           - Строковая перменная.

'На выходе:
'words         - Количество слов в переменной.

Function words(str) As Long
    words = UBound(Split(Application.Trim(Replace(str, vbTab, " ")), " ")) + 1
End Function

'' *** Word ***
'Функция возвращает n-ное слово в указаной строке.
'Аналог команды Rexx.

'На входе:
'str           - Строковая перменная.
'Number        - Номер слова.

'На выходе:
'word          - n-ное слово или пустую строку если слова с таким номером нет.

Function word(str, number) As String
    On Error Resume Next
    word = Split(Application.Trim(Replace(str, vbTab, " ")), " ")(number - 1)
End Function

[slan]

Сообщение от tae1980

если интересно, попробую найти статью...

Я начал работать с рексом на 386 машине, 20 Мгц, под OS/2 warp 3.0, ни разу не возникало проблем по скорости работы. Не думаю что бы VBA чувствовал себя "комфортно" на подобной машине, я сомневаюсь, чтобы он вообще туда встал бы ). Ей

basic включался в ms dos.. и на 286х

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