[RegExp] Составить шаблон для текста

[nicotino]

Здравствуйте.
Хотел бы попросить помощи у тех кто хорошо разбирается в регулярных выражениях.

Попробую описать проблему:
Есть некий текст,например:

мы долго едем на машине домой -- надо составить шаблон типа :
(мы - постоянный текст)
(долго едем - может меняться на любое количество слов с пробелами)
(слово на машине может меняться типа тракторе но окончание 'е' всегда остается постоянным и так же это слово может быть исключено из текста,например:"мы долго едем домой")
(домой - любое слово но только одно в конце строки).

Спасибо тем кто сможет мне помочь.

 

[xaker]

пока так:

#Include <Array.au3>

$a = _func1('мы долго едем домой')
_ArrayDisplay( $a )

$a = _func1('мы долго едем на машине домой')
_ArrayDisplay( $a )

Func _func1($sText)
	Local $array = StringRegExp($sText, '(мы) (.+) (.*? .*е) (.+)', 3)
	If @error <> 0 Then $array = StringRegExp($sText, '(мы) (.+) (.+)', 3)
	Return $array
EndFunc

 

[nicotino]

благодарствую

 

[valldar]

У меня аналогичная проблема.
Вот этот код возвращает ответ в виде массива

StringRegExp($sText, '(мы) (.+) (.*? .*е) (.+)', 3)

А как сделать, чтобы все слова записались в одну строку?

У меня имеется следующие строки

$string='Задание: Выполняется (1880) <a title="7:15:00">[87 циклов]</a>
'
$task=StringRegExp($string, '(?si)(Задание: .*?)(?:<a.*?">)?(\[[0-9]+? циклов\])?
',3)

На выходе мне нужна строка: 'Задание: Выполняется (1880) [87 циклов]', а получается массив, содержащий две строки

 

[Zaramot]

valldar,

А как сделать, чтобы все слова записались в одну строку?

Попробуй функцию:

_ArrayToString()

 

[ivsatel]

valldar [?]

На выходе мне нужна строка: 'Задание: Выполняется (1880) [87 циклов]', а получается массив, содержащий две строки

$string = 'Задание: Выполняется (1880) <a title="7:15:00">[87 циклов]</a>
'
$task = StringRegExpReplace($string, '(\<.*?\>)', '')

ConsoleWrite($task&@LF)

 

[gregaz]

Вариант от valldar красив, но скорее всего текст не ограничивается этой строкой и вряд ли приемлем.
Вариант:

$sText ='Some Text' & 'Задание: Выполняется (1880) <a title="7:15:00">[87 циклов]</a>
' & @CRLF & 'Some Text'

$sPatern = '(?si).*(Задание: .*?\))\h*<a.*?">(\[\d+\h*циклов\])\h*</a>
.*'
$sResult = StringRegExpReplace( $sText, $sPatern, '\1\2' )
;$sResult =StringRegExpReplace($sText, '(\<.*?\>)', '')
MsgBox(4096, ' Test Result', $sResult)

 

[valldar]

Спасибо за ответы
Ни разу не пользовался функцией StringRegExpReplace, все всегда делал через StringRegExp. Надо восполнить этот пробел