求使用正则操作字符串[已解决]

仙乃日

$a='"(A ;(B C) "(D F)" ; G)" ;引号后可以是任意的非换行符号; ；； '
使用正则如何得到A ;(B C) "(D F)" ; G这个子串
另：
$a='"(第1行;(B C) "(D F)"G)" ;引号后可以是任意的非换行符号' &@CRLF &'"第2行(123)" ;5555!'
要得到第1行;(B C) "(D F)"G第2行(123)这样的子串？

风行者

#include <Array.au3>
$a='"(A ;(B C) "(D F)" ; G)" ;引号后可以是任意的非换行符号; ；； '
$str = StringRegExp($a,'^"\((.*)\)',3)
_ArrayDisplay($str)