[RegExp] StringRegExp получить содержимое тэга с исключением вложенных тэгов

$sHTML = '<h1>Заголовок заголовок</h1>'
$sHTML = '<h1 class="tzag"><strong>Заголовок заголовок</strong></h1>'
$sHTML = '<h1><strong>Заголовок</strong><strong> заголовок</strong></h1>'

#include <Array.au3>
$sHTML = '<h1>Заголовок заголовок</h1>'
;~ $sHTML = '<h1 class="tzag"><strong>Заголовок заголовок</strong></h1>'
;~ $sHTML = '<h1><strong>Заголовок</strong><strong> заголовок</strong></h1>'
$aHeaders = StringRegExp($sHTML, '<h1.*?>(?:<strong>)*(.+?)(?:</strong>)*</h1>', 3)
_ArrayDisplay($aHeaders)

;~ $sHTML = '<h1>Заголовок заголовок</h1>'
;~ $sHTML = '<h1 class="tzag"><strong>Заголовок заголовок</strong></h1>'
$sHTML = '<h1><strong>Заголовок</strong><strong> заголовок</strong></h1>'
$aHeaders = StringRegExp($sHTML, '<h1.*?>(?:.*>)?(.+?)(?:<.*)?</h1>', 3)
_ArrayDisplay($aHeaders)

$sHTML = '<h1>Заголовок заголовок</h1>' & @LF & _
'<h1 class="tzag"><strong>Заголовок заголовок</strong></h1>'& @LF & _ 
'<h1><strong>Заголовок</strong><strong> заголовок</strong></h1>'
;$sHeader = StringRegExpReplace($sHTML,"(?:</strong>)?<.+?>(?:<strong>)?","") 
$sHeader = StringRegExpReplace($sHTML,"(?:</.+?>)?<.+?>(?:<.+?>)?","") ; Даже так
ConsoleWrite($sHeader& @LF)

$sHTML = '<h1>Заголовок заголовок</h1>' & @LF & _
'<h1 class="tzag"><strong>Заголовок заголовок</strong></h1>'& @LF & _ 
'<h1><strong>Заголовок</strong><strong> заголовок</strong></h1>'
$sHeader = StringRegExpReplace(StringRegExpReplace($sHTML,"<h1.*?>(.+?)</h1>","\1"),"<.+?>","")
ConsoleWrite($sHeader& @LF)

$sHTML = '<h1>Заголовок заголовок</h1>' & @LF & _
'<h1 class="tzag"><strong>Заголовок заголовок</strong></h1> <p>aaaaaaaaa</p>'& @LF & _
'<h1><strong>Заголовок</strong><strong> заголовок</strong></h1> <p>aaaaaaaaa</p>' & @LF
;~ $sHeader = StringRegExpReplace(StringRegExpReplace($sHTML,"(?s)<h1.*?>(.+?)</h1>","\1"),"<.+?>","")
$sHeader = StringRegExpReplace($sHTML,"(?:</.+?>)?<.+?>(?:<.+?>)?","")
ConsoleWrite($sHeader& @LF)

#include <array.au3>
$sHTML = '<h1>Заголовок заголовок</h1>' & @LF & _
'<h1 class="tzag"><strong>Заголовок заголовок</strong></h1>'& @LF & _ 
'aaaaaaaaaaaaaaaaaaaaaaaa'& @LF & _ 
'<h1><strong>Заголовок</strong><strong> заголовок</strong></h1>'& @LF & _ 
'<strong>Заголовок</strong><strong> заголовок</strong>'

$aHeader = StringRegExp($sHTML,"<h1.*?>(.+?)</h1>",3)
_ArrayDisplay($aHeader)
For $i=1 To UBound($aHeader)-1
	$aHeader[$i]=StringRegExpReplace($aHeader[$i],"<.+?>","")
Next
_ArrayDisplay($aHeader

$aHeader = StringRegExpReplace($sHTML, "</?[^h\d+]{2}.+?>", "")
$aHeader = StringRegExp($aHeader, "<h\d+.*?>(.*)</h\d+>", 3)

_ArrayDisplay($aHeader)

$sHTML = 'aaaaaaaaaaaaaaa' & @LF & _
'<h1>Заголовок заголовок</h1>'& @LF & _ 
'bbbbbbbbbbbbbbbbb'& @LF & _ 
'<h1 class="tzag"><strong>Заголовок заголовок</strong></h1>'& @LF & _ 
'ccccccccccccccc'& @LF & _ 
'<h1><strong>Заголовок</strong><strong> заголовок</strong></h1>'& @LF & _ 
'ddddddddddddddddddddddd'& @LF & _ 
'<strong>Заголовок</strong><strong> заголовок</strong>'

$sHeader=StringRegExpReplace(StringRegExpReplace($sHTML,"(?s)(^|</h1>).*?(<h1.*?>|$)", @CRLF),"<.+?>","")

ConsoleWrite($sHeader& @LF)

$aHeaders = StringRegExp($sHTML, '(?s)<h1.*?>(.+?)</h', 3)
For $l = 0 To UBound($aHeaders) - 1
	$aHeaders[$l] = StringRegExpReplace($aHeaders[$l], '<.+?>', '')
Next

$aHeaders = StringRegExpReplace($sHTML, '</?strong>', '')
$aHeaders = StringRegExp($aHeaders, '(?s)<h1.*?>(.+?)</h', 3)
_ArrayDisplay($aHeaders)