[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