[Данные, строки] Поиск данных в txt файле и добавление новой строки

[redwert]

Есть txt файл:
*111*Мама мыла раму
5555**111*
Мне надо передать переменной значение то что находится между *111* и **111*
И как мне дописать новую строчку в конец txt файла

Помогите пожалуйста

 

[kaster]

1. на будущее: один вопрос - одна тема
2. читаем интенсивно справку. второй вопрос элементарные вещи оттуда
3. по поводу первого вопроса

$s = '*111*Мама мыла раму' & @CRLF & '5555**111*'
$p = '(?s)\*111\*(.+)\*\*111\*'
$a = StringRegExp($s, $p, 1)
MsgBox(0, '', $a[0])

4. по поводу второго вопроса

FileWrite

 

[gregaz]

redwert [?]

Мне надо передать переменной значение то что находится между *111* и **111*

Или так:

$sPattern = '(?s).*111\*+(.*?)\*+111.*'
$sRezult = StringRegExpReplace ( $sText ,$sPattern,'\1',1 )