[строки] Поиск в строке текста между подстроками. (Функция)

Func StringFindSE($string,$start="",$end="",$start_occ=1,$end_occ=1,$cas=0)
    Local $source_start,$source_count,$source
    If $start <> '' Then
		Local $st_count
		$st_count = StringSplit($start,'')
		$source_start = StringInStr($string,$start,$cas,$start_occ) + $st_count[0]
	Else
		$source_start = 1
	EndIf
	If $end <> '' Then
		$source_count = StringInStr($string,$end,$cas,$end_occ,$source_start) - $source_start
	Else
		$source_count = -1
	EndIf
	Return StringMid ($string,$source_start,$source_count)
EndFunc

$string = "В этой строке мы будем искать слово между 'мы ' и ' искать'."
$start = "мы "
$end = " искать"
$source = StringFindSE($string,$start,$end)
MsgBox(0,"Найдено:",$source)

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

GUICreate("Поиск", 305, 145, 489, 259)
GUICtrlCreateLabel("Сдесь мы будем искать:", 8, 5, 129, 17)
$eString = GUICtrlCreateEdit("В этой строке мы будем искать слово между 'мы ' и ' искать'.", 8, 24, 289, 49, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlCreateLabel("Мы будем искать между", 8, 80, 129, 17)
$iSourceS = GUICtrlCreateInput("мы ", 136, 80, 65, 21)
GUICtrlCreateLabel("и", 208, 80, 10, 17)
$iSourceE = GUICtrlCreateInput(" искать", 224, 80, 73, 21)
$bFind = GUICtrlCreateButton("Искать", 88, 112, 99, 25)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $bFind
			$string = GUICtrlRead($eString)
			$start = GUICtrlRead($iSourceS)
			$end = GUICtrlRead($iSourceE)
			$source = StringFindSE($string,$start,$end)
			MsgBox(0,"Найдено:",$source)
	EndSwitch
WEnd

;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
; Функция возвращает найденную подстроку
; в строке по заданным граничащим подстрокам.
;
; $string = Строка в которой будет происходить поиск
; $start = Подстрока находящаяся до искомой
; $end = Подстрока находящаяся после искомой
; $start_occ = Номер искомого вхождения подстроки $start (по умолчанию 1)
;      Отрицательные значения означают поиск справа.
; $end_occ = Номер искомого вхождения подстроки $end (по умолчанию 1)
;      Отрицательные значения означают поиск справа.
; $cas = Режим учета регистра написания.
;      0 = не зависит от регистра написания согласно языку пользователя (по умолчанию)
;      1 = зависит от регистра написания 
;      2 = не зависит от регистра написания согласно базовому/наиболее быстрому сравнению
;
; Возвращаемое значение: искомая подстрока
;
; Примечание: Поиск подстроки $end начинается с символа,
; на котором заканчивается подстрока $start
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Func StringFindSE($string,$start,$end,$start_occ=1,$end_occ=1,$cas=0)
    Local $st_count,$source_start,$source_count,$source
    $st_count = StringSplit($start,"")
    $source_start = StringInStr($string,$start,$cas,$start_occ) + $st_count[0]
    $source_count = StringInStr($string,$end,$cas,$end_occ,$source_start) - $source_start
    $source = StringMid ($string,$source_start,$source_count)
    Return $source
EndFunc

;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
;Функция возвращает найденную подстроку
;в строке по заданным граничащим подстрокам.
;
;$string = Строка в которой будет происходить поиск
;$start = Подстрока находящаяся до искомой
;$end = Подстрока находящаяся после искомой
;
;Возвращаемое значение: искомая подстрока
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Func StringFindSE($string,$start,$end)
	Local $st_count,$source_start,$source_count,$source
	$st_count = StringSplit($start,"")
	$source_start = StringInStr($string,$start) + $st_count[0]
	$source_count = StringInStr($string,$end,0,1,$source_start) - $source_start
	$source = StringMid ($string,$source_start,$source_count)
;~	ConsoleWrite(@CRLF&"Первый сивол: "&$source_start&" Последний символ: "&$source_count&" Результат: "&$source&@CRLF)
	Return $source
EndFunc

$source = StringRegExpReplace($string, '(?s).*?\Q' & $start & '\E(.*?)\Q' & $end & '\E.*', '$1')

$source = StringRegExpReplace($string, '(?s).*\Q' & $start & '\E(.*?)\Q' & $end & '\E.*', '$1')

$source = _StringBetween($string, $start, $end [, $сas = -1])

Global $i, $a, $string, $timer, $time, $stat_time[11]
#region test
For $i = 1 To 100
	$string = StringFindSE("Поиск подстроки $end начинается с символа, на котором заканчивается подстрока $start",'$end','$start')
Next
#endregion
; test

For $a=1 To 10
	$timer = TimerInit()
	For $i = 1 To 100
		$string = StringFindSE("Поиск подстроки $end начинается с символа, на котором заканчивается подстрока $start",'$end','$start')
	Next
	$stat_time[$a] = TimerDiff($timer)
	ConsoleWrite ('Finish time: '&Round($stat_time[$a],2)&@CRLF)
Next
$time = ($stat_time[1]+$stat_time[2]+$stat_time[3]+$stat_time[4]+$stat_time[5]+$stat_time[6]+$stat_time[7]+$stat_time[8]+$stat_time[9]+$stat_time[10])/10
ConsoleWrite (@CRLF&'Среднее время: '&Round($time,3)&@CRLF&@CRLF)


Global $i, $string, $timer, $stat_time[11]
#region test
For $i = 1 To 100
	$string = StringRegExpReplace("Поиск подстроки $end начинается с символа, на котором заканчивается подстрока $start",'(?s).*?\Q' & '$end' & '\E(.*?)\Q' & '$start' & '\E.*', '$1')
Next
#endregion
; test

For $a=1 To 10
	$timer = TimerInit()
	For $i = 1 To 100
		$string = StringRegExpReplace("Поиск подстроки $end начинается с символа, на котором заканчивается подстрока $start",'(?s).*?\Q' & '$end' & '\E(.*?)\Q' & '$start' & '\E.*', '$1')
	Next
	$stat_time[$a] = TimerDiff($timer)
	ConsoleWrite ('Finish time: '&Round($stat_time[$a],2)&@CRLF)
Next
$time = ($stat_time[1]+$stat_time[2]+$stat_time[3]+$stat_time[4]+$stat_time[5]+$stat_time[6]+$stat_time[7]+$stat_time[8]+$stat_time[9]+$stat_time[10])/10
ConsoleWrite (@CRLF&'Среднее время: '&Round($time,3)&@CRLF&@CRLF)
Func StringFindSE($string,$start,$end,$start_occ=1,$end_occ=1,$cas=0)
	Local $source_start,$source_count,$source
	If $start <> '' Then
		Local $st_count
		$st_count = StringSplit($start,'')
		$source_start = StringInStr($string,$start,$cas,$start_occ) + $st_count[0]
	Else
		$source_start = 1
	EndIf
	If $end <> '' Then
		$source_count = StringInStr($string,$end,$cas,$end_occ,$source_start) - $source_start
	Else
		$source_count = -1
	EndIf
	Return StringMid ($string,$source_start,$source_count)
EndFunc

Func StringFindSE($string,$start="",$end="",$start_occ=1,$end_occ=1,$cas=0)
    Local $source_start,$source_count,$source
    If $start <> '' Then
		Local $st_count
		$st_count = StringSplit($start,'')
		$source_start = StringInStr($string,$start,$cas,$start_occ) + $st_count[0]
	Else
		$source_start = 1
	EndIf
	If $end <> '' Then
		$source_count = StringInStr($string,$end,$cas,$end_occ,$source_start) - $source_start
	Else
		$source_count = -1
	EndIf
	Return StringMid ($string,$source_start,$source_count)
EndFunc