Цитата Creat0R:
Код:
#include <Array.au3>
$sDictFile = _CreateDemoDict(30) ;dict.txt
$sFileRead = FileRead($sDictFile)
FileDelete($sDictFile)
If $sFileRead = '' Then
Exit MsgBox(64, @ScriptName, 'Unable to read File')
EndIf
$sMask = InputBox('Mask', 'Enter search mask:', 'Line 1?0')
If @error Then Exit
$sMask = StringReplace($sMask, '?', '.')
$sMask = StringReplace($sMask, '*', '.*')
$aSearch = StringRegExp($sFileRead, '\b(' & $sMask & ')\b', 3)
_ArrayDisplay($aSearch)
Func _CreateDemoDict($iSize)
Local $sDictFile = @TempDir & '\~dict.txt'
Local $sData = ''
While StringLen($sData) < $iSize * 1024 * 1024
$sData &= 'Line ' & Random(100, 999, 1) & @CRLF
WEnd
Local $hFile = FileOpen($sDictFile, 2)
FileWrite($hFile, $sData)
FileClose($hFile)
Return $sDictFile
EndFunc »
|
Этот,третий ваш код что-то не работает. Появляется надпись
Line 1?0 и всё-дальше маска не работает.Второй код лучше,но он не открывает большие файлы,даже 7кб не открывает
Цитата Iska:
|
Вы лучше сам словарь упакуйте в архив и выложите на обменник/облако. »
|
https://cloud.mail.ru/public/h2aA/uKyo2vH9H