Цитата Creat0R:
Код:
$sFileRead = FileRead('dic.txt')
If $sFileRead = '' Then Exit MsgBox(64, @ScriptName, 'Unable to read File dic.txt')
$sMask = InputBox('Mask', 'Enter search maswk:', '')
If @error Then Exit
$aSearch = StringRegExp($sFileRead, '(' & StringReplace($sMask, '?', '.') & ')', 3)
For $i = 0 To UBound($aSearch)-1
MsgBox(64, @ScriptName, $aSearch[$i])
Next »
|
Здравствуйте! Спасибо за код! Скомпилировал его,но словарь не открывает.Словарь весит 28мб.Подключил меньше словарь и всё заработало! Но! При поиске по маске,например ?ЛА-выдаёт несуществующие слова в словаре-например-ЛЛА,БЛА,ПЛА,ЛА,СЛА,ПЛА и т.д. Как это можно решить? И чтобы показывались слова не по-одному,а сразу список.А то,если слов много,то приходится постоянно ОК нажимать-это очень долго будет ведь. Спасибо за помощь!
