#include <array.au3>
$str='"8",",","怡","401001","15008","255.255.255.49","3402",""",""","20120621"'
$regexp=ObjCreate("vbscript.regexp")
With $regexp
.global=1
.pattern='"(("*)([^"]*)\2)"'
If .test($str) Then
$arr=.execute($str)
Dim $result[$arr.count],$n
$n=0
For $match In $arr
$result[$n]=StringReplace($match.submatches(0),'""','"')
$n+=1
Next
_ArrayDisplay($result)
EndIf
EndWith
$regexp=0