Улучшение скрипта: грабли Мультилекса

[chuk94]

Давно хотелось иметь открытый словарь с нем на русский, тут наткнулся на паверпро.
Извиняюсь, скрипт коряв, я только начинаю , но работает на ХР, на 98 проблемы с аппендом в клипбоард, скорость грабления 1500 слов/час.
Скрип глючит, после 3-4 тыс слов запрещается запись в буфер, иногда нужно переустанавливать мультилекс, но затея работает.
За 3 дня сграбил 50000 статей, больше половины, по декларации всего 95000.
Доны, кто пишет скрипты, какие в-ты можно попробовать, чтобы увеличить скорость или чтобы все грабилось в фоновом режиме (когда идет процесс, ничего трогать нельзя, что немного не гут).
Скрипт ниже, попробую картинку аттачнуть, понятности ради.

For (myCounter = 1; myCounter <= 1500; myCounter = myCounter + 1)
If (myCounter == 1500)
Quit

*Keys ^.
*Wait 1
*Keys ^a
*Wait 1
*Keys ^c

Clip.Append("%13")
Clip.ToFileAppend("D:\ergebnis2.txt")

EndFor


Комменты: выбор аут файла произвольно, %13 просто разделитель между статьями , потом на ворде меняется.
*Keys ^. переместиться на следующее слово .

[m1Kky]

эээ, типа переводчик... а линк на мультилекс(как я понял) не дашь?

[chuk94]

дистрибутив занимает 50 мег, иначе как кусками на мыло я не могу переслать.
Злой провайдер (фтп аплоад, ослы запрещены). Если охота возиться, скинь на
12002@mail.ru адрес твоих мыл, я пошаманю.
Вообще, если ты в снг, какие проблемы, за 3 копейки в любом магазине.
Вот расширенный словарь, в к-ром 400.000 статей, тяжело, а обычный вижу везде.

[Gregory]

ПоверПро подозрительно относится к командам вроде *Wait 1 в циклах. Лучше использовать wait sleep 1000 (тогда пока запущен этот скрипт ПоверПро пользоваться будет нельзя) или miscplugin.sleep("1000")
(эта команда использует miscplugin).

Могу предложить такой вариант:

[CODE]
local str
For (myCounter = 1; myCounter <= 1500; myCounter = myCounter + 1)
*Keys ^.
miscplugin.sleep("1000")
*Keys ^a
miscplugin.sleep("1000")
clip.copy
str=str++clip.get++"%13"
endfor
file.writeall("D:\ergebnis2.txt",str,"a")

[chuk94]

Из предложенного уважаемым Gregory скрипта особенно удачной оказалась замена *Wait 1 на miscplugin.sleep("1000"). Скрипт устойчиво работает, если сократить задержку до 0.2 sec. Захват пошел со скоростью 2-3 статьи/sec. Одно это сделало интерес к усовершенствованию академическим - 100.000 слов занимает 15 машчасов вместо 4суток.
Строчка wait sleep пробовалась и ранее, не идет.
За miscplugin.sleep огромное данке.

Строчки

clip.copy
str=str++clip.get++"%13"

file.writeall("D:\ergebnis2.txt",str,"a")
не вызывают у PowerPro желаемого отклика.
В файл ничего не пишется, в клипе только последняя строка, приплюсовывать чегото не желает.
На сегодня улучшенная версия выглядит так

[CODE]
For (myCounter = 1; myCounter <= 500; myCounter = myCounter + 1)
If (myCounter == 500)
Quit

*Keys ^.
miscplugin.sleep("200")
*Keys ^a
miscplugin.sleep("100")
*Keys ^c

Clip.Append("%13")
Clip.ToFileAppend("D:\ergebnis2.txt")

EndFor