ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB6 replace function, speed
8 сообщений из 8, страница 1 из 1
VB6 replace function, speed
    #32138781
Фотография Lexis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lexis
Участник
функция Replace в программе на одной машине работает примерно в 15 раз медленее чем на другой, может какие DLL обновить на одной из машин?

спасибо
...
Рейтинг: 0 / 0
11.04.2003, 14:52
| Ответить | Цитировать | Написать  
VB6 replace function, speed
    #32139819
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
И машины одинаковые (по железу) и сервис-паки одинаковы и счетчик используешь толковый (типа,TimeGetTime из winmm.dll) ? если "Да" на все, тогда не знаю - шлю код и резульаты теста. Проверим на себе.
...
Рейтинг: 0 / 0
14.04.2003, 12:54
| Ответить | Цитировать | Написать  
VB6 replace function, speed
    #32139845
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
Пардон, нужно читать: "Шли код и результаты теста"
...
Рейтинг: 0 / 0
14.04.2003, 13:11
| Ответить | Цитировать | Написать  
VB6 replace function, speed
    #32139854
Фотография Lexis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lexis
Участник
кусок кода, в котором проблема
Код: plaintext
1.
2.
3.
4.
 strFile = oFSfile.ReadAll
 strFile = Replace(strFile, Chr( 9 ),  "")
 strFile = Replace(strFile, Chr(10 ), " ")
 strFile = Replace(strFile, Chr(13 ), "")

ощутимая разница чувствуется, когда размер файла превышает мегабайт
машины примерно одинаковые, только на той, которая обрабатывает медленее памяти в два раза больше
strFile = Replace(strFile, Chr(9), "") - на моей машине примерно 2-4 секунды
на другой - 30-40
...
Рейтинг: 0 / 0
14.04.2003, 13:18
| Ответить | Цитировать | Написать  
VB6 replace function, speed
    #32140266
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
Скорее всего из-за памяти. \r
Я тут как то отвечал в топик по несколько сходной с твоей проблемой (/topic/26859). \r
\r
Попробуй использовать Mid$ (если честно не знаю как) Но:\r
На маленьких строках работает быстрее в 5 раз, на больших (размером в str = Space(10 000 000) сжирает около 19 мегов памяти) - раз в 100.\r
Вот исходя из этих 19 мегов можно сделать вывод о активной работе оперативки (жесткий диск даже не дернулся) и следовательно об узком месте.\r
Хотя в такой простой строке как Replace, наврядли можно что-то улучшить. Если только отыскать что-то вроде API функции по работе со строками.
...
Рейтинг: 0 / 0
14.04.2003, 17:57
| Ответить | Цитировать | Написать  
VB6 replace function, speed
    #32140930
Фотография Lexis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lexis
Участник
много ресурсов потребляло ReadAll
вот решение проблемы:
статья
...
Рейтинг: 0 / 0
15.04.2003, 13:20
| Ответить | Цитировать | Написать  
VB6 replace function, speed
    #32140963
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
Не плохо с 176 секунд с оптимизировать до 0,28
Сайт в Избранное,
Lexis'у - фанкс за науку.
Редко встречается сам задал и сам ответил, да еще так праильно.

2 Lexis
За сколько теперь на твоем клиенте выполняется код?


А делов то:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
const ForReading =  1 
dim strSearchThis
dim objFS
dim objTS
set objFS = Server.CreateObject( "Scripting.FileSystemObject" )
set objTS = objFS.OpenTextFile(Server.MapPath( "myfile.txt" ), _
                               ForReading)

strSearchThis = objTS.ReadAll
if instr(strSearchThis,  "keyword" ) >  0  then
    Response.Write  "Found it!" 
end if
...
Рейтинг: 0 / 0
15.04.2003, 13:33
| Ответить | Цитировать | Написать  
VB6 replace function, speed
    #32141028
Фотография Lexis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lexis
Участник
могу только на глазок прикинуть
где то раз в 35-40 данный кусочек кода стал быстрее работать
...
Рейтинг: 0 / 0
15.04.2003, 14:01
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB6 replace function, speed
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=32139854&tid=2171305]:
 0ms
get settings:
 10ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 36ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 277ms
total:  394ms
созд. / загр.: 394ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]