A
at
Гость
Код:
$FileSource = FileOpen("Read.txt")
$FileWrite = FileOpen("Write.txt", 2)
$Template = '\bcd\b'
While 1
$sString = FileReadLine($FileSource)
If @error = -1 Then ExitLoop
If StringInStr($sString, $template) Then
FileWriteLine($FileWrite, $sString)
EndIf
WEnd
FileClose($FileSource)
FileClose($FileWrite)
Прошу подсказать, как правильно применить регулярное выражение. Из Read.txt нужно скопировать строки в которых содержится точное соответствие "CD". Регистр и знаки пунктуации не важны, но нужно отбрасывать любые строки типа cdrom, cdram, pocds и т.п.