Удаление всех строк между двумя известными

[paa13]

Помогите пж-ста, не смог найти решение.

Нужно в текстовом файле удалить все строки которые находятся между двумя известными

Пример:
Удалить все строки между <Setting> и </Setting>

<Setting>
<string>1</string>
<string>2</string>
<string>3</string>
<string>4</string>
</Setting>

 

[Norm]

Local $sString = "<Setting>" & @CRLF & _
                "<string>1</string>" & @CRLF & _
                "<string>2</string>" & @CRLF & _
                "<string>3</string>" & @CRLF & _
                "<string>4</string>" & @CRLF & _
                "</Setting>"

Local $sResult = StringRegExpReplace($sString, "(?s)(<Setting>).+(<\/Setting>)", "$1$2")
MsgBox(0, "Result-1", $sResult)

$sResult = StringRegExpReplace($sString, "(?s)(<Setting>).+(\R<\/Setting>)", "$1$2")
MsgBox(0, "Result-2", $sResult)

 

[paa13]

Спасибо, буду разбираться.