Автор Redline
StringRegExp('test', 'pattern'[, flag][, offset])
$sText = 'слон'
$sPattern = 'с..н'
If StringRegExp($sText, $sPattern, 0) Then ConsoleWrite('Совпадение!' & @CRLF)
$sText = 'удав 11 человек 2 крокодил 4'
$sPattern = '\s?(.*?)\s(\d+)'
$aResult = StringRegExp($sText, $sPattern, 1)
For $i = 0 To UBound($aResult) - 1
ConsoleWrite($aResult[$i] & @CRLF)
Next
$sText = 'удав 11 человек 2 крокодил 4'
$sPattern = '\s?(.*?)\s(\d+)'
$aResult = StringRegExp($sText, $sPattern, 2)
For $i = 0 To UBound($aResult) - 1
ConsoleWrite($aResult[$i] & @CRLF)
Next
$sText = 'удав 11 человек 2 крокодил 4'
$sPattern = '\s?(.*?)\s(\d+)'
$aResult = StringRegExp($sText, $sPattern, 3)
For $i = 0 To UBound($aResult) - 1
ConsoleWrite($aResult[$i] & @CRLF)
Next
$sText = 'удав 11 человек 2 крокодил 4'
$sPattern = '\s?(.*?)\s(\d+)'
$aResult = StringRegExp($sText, $sPattern, 4)
For $i = 0 To UBound($aResult) - 1
$aTemp = $aResult[$i]
For $z = 0 To UBound($aTemp) - 1
ConsoleWrite($aTemp[$z] & @CRLF)
Next
Next
$sText = 'слон'
$sPattern = 'с'
If StringRegExp($sText, $sPattern, 0, 2) Then ConsoleWrite('Совпадение!' & @CRLF)
StringRegExpReplace('test', 'pattern', 'replace',[ count])
$sText = 'удав 11 человек 2 крокодил 4'
$sPattern = '\d+'
$sResult = StringRegExpReplace($sText, $sPattern, '!!!')
ConsoleWrite($sResult & @CRLF)
$sText = 'удав 11 человек 2 крокодил 4'
$sPattern = '(\S+)\s(\d+)\s?'
$sResult = StringRegExpReplace($sText, $sPattern, '$2 $1 ')
ConsoleWrite($sResult & @CRLF)
$sText = 'удав 11 человек 2 крокодил 4'
$sPattern = '.*?к\s(\d+).*'
$sResult = StringRegExpReplace($sText, $sPattern, '\1')
ConsoleWrite($sResult & @CRLF)
$sText = 'удав 11 человек 2 крокодил 4'
$sPattern = '(\S+)\s(\d+)\s?'
$sResult = StringRegExpReplace($sText, $sPattern, '$11$2 ')
ConsoleWrite($sResult & @CRLF) ; выдаст неправильный результат
$sText = 'удав 11 человек 2 крокодил 4'
$sPattern = '(\S+)\s(\d+)\s?'
$sResult = StringRegExpReplace($sText, $sPattern, '${1}1$2 ') ; заключим цифру обратной ссылки в фигурные скобки
ConsoleWrite($sResult & @CRLF) ; выдаст нужный результат
$sText = 'удав 11 человек 2 крокодил 4'
$sPattern = '(\S+)\s(\d+)\s?'
$sResult = StringRegExpReplace($sText, $sPattern, '$11$2 ')
ConsoleWrite($sResult & @CRLF) ; выдаст неправильный результат
$sText = 'удав 11 человек 2 крокодил 4'
$sPattern = '(\S+)\s(\d+)\s?'
$sResult = StringRegExpReplace($sText, $sPattern, '$1&&&1$2 ') ; добавим после $1 три амперсанда
$sResult = StringRegExpReplace($sResult, '&&&', '') ; заменяем все сочетания из трех амперсандов на пусто("")
ConsoleWrite($sResult & @CRLF) ; выдаст нужный результат
$sText = 'удав 11 человек 2 крокодил 4'
$sPattern = '(.*?к)\s(.*)'
$sResult = StringRegExpReplace($sText, $sPattern, '$11$2 ')
ConsoleWrite($sResult & @CRLF) ; выдаст неправильный результат
$sText = 'удав 11 человек 2 крокодил 4'
$sPattern = '(.*?к)\s(.*)(\d)' ; меняем шаблон
$sResult = StringRegExpReplace($sText & '1', $sPattern, '$1$3$2 ') ; дописываем к тексту "1"
ConsoleWrite($sResult & @CRLF) ; выдаст нужный результат