Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


Цитата Creat0R:
28 мб должен спокойно открывать. »
Ну да есть немного задержка, но думаю это терпимо...
Вот вариант для поверки (создаётся файл в 30 мб):
Код: Выделить весь код
#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

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community


Отправлено: 11:52, 10-02-2021 | #11