[RegExp] Получение строки между кавычками включая отменённые кавычки

MsgBox(64, 'Title', 'My ''test''')

$1="MsgBox(64, 'Title', 'My ''test''')&, '''test'' My' &, 'M ''test'' y' "
$1=StringRegExpReplace($1, "''([^']*?)''", Chr(1)&'\1'&Chr(1))
; MsgBox(0, 'Сообщение', $1)
$a=StringRegExp($1, "'(.*?)'", 3)
For $i = 0 To UBound($a)-1
	$a[$i]=StringReplace($a[$i], Chr(1), "''")
Next

#include <Array.au3>
_ArrayDisplay($a, 'Array')

#Include <Array.au3>

$str = "MsgBox(64, 'Title', 'My ''test''')&, '''test'' My' &, 'M ''test'' y' "

$aOut = StringRegExp($str, '(''(?:[^'']*(?:'''')*[^'']*)*?'')(?!'')', 3)
_ArrayDisplay($aOut)

$str = 'MsgBox(64, "Title''s", ''test'')'

#Include <Array.au3>

$str = "MsgBox(64, 'Title', 'My ''test''')&, '''test'' My' &, 'M ''test'' y' "
$str &= @CRLF & 'MsgBox(64, "Title''s", ''test'')'

$aOut = StringRegExp($str, '(''(?:[^'']*(?:'''')*[^'']*)*?''(?!'')|"(?:[^"]*(?:"")*[^"]*)*?"(?!"))', 3)
_ArrayDisplay($aOut)

$aOut = StringRegExp($str, '(''(?:[^''\r\n]*(?:'''')*[^''\r\n]*)*?''(?!'')|"(?:[^"\r\n]*(?:"")*[^"\r\n]*)*?"(?!"))', 3)