#include <Array.au3>
Local $sStr = 'Коммуникация и место коммуникации' & @CRLF & ' и обучения кадров компьютерных, требуют от нас анализа направлений прогрессивного развития коммандования.' & @CRLF & 'Равным образом дальнейшее развитие различных форм деятельности (комьюнити) способствует подготовки и реализации системы обучения коммерческих ' & @CRLF & 'кадров, соответствует насущным потребностям коммунны'
Local $sSearch = 'коммун'
Local $aArr = _Search($sStr, $sSearch)
_ArrayDisplay($aArr, 'Найденные ' & $sSearch)
Local $sSearch = 'ком'
Local $aArr = _Search($sStr, $sSearch)
_ArrayDisplay($aArr, 'Найденные ' & $sSearch)
Local $sSearch = 'м'
Local $aArr = _Search($sStr, $sSearch)
_ArrayDisplay($aArr, 'Найденные ' & $sSearch)
Local $sSearch = 'я'
Local $aArr = _Search($sStr, $sSearch)
_ArrayDisplay($aArr, 'Найденные ' & $sSearch)
Func _Search($sText, $sSearch)
Return StringRegExp($sText, '(?i)([a-zа-яё]*' & $sSearch & '[a-zа-яё]*)(?:[.,\)]|\h+|\R|$)', 3)
EndFunc