求助一正则的写法(已解决)

tubaba

想用正则来提取csv文件每一项的值,如
"8",",","怡","401001","15008","255.255.255.49","3402",""",""","20120621"

要求提取后为

头很疼,应该如何写?

kevinch

1. #include <array.au3>
   
2. $str='"8",",","怡","401001","15008","255.255.255.49","3402",""",""","20120621"'
   
3. $regexp=ObjCreate("vbscript.regexp")
   
4. With $regexp
   
5.         .global=1
   
6.         .pattern='"(("*)([^"]*)\2)"'
   
7.         If .test($str) Then
   
8.                 $arr=.execute($str)
   
9.                 Dim $result[$arr.count],$n
   
10.                 $n=0
    
11.                 For $match In $arr
    
12.                         $result[$n]=StringReplace($match.submatches(0),'""','"')
    
13.                         $n+=1
    
14.                 Next
    
15.                 _ArrayDisplay($result)
    
16.         EndIf
    
17. EndWith
    
18. $regexp=0

复制代码

tubaba

谢谢,果然高手如林啊,~~,如果只用正则和sringreplace不知道该如何实现

找到答案了,http://www.autoitx.com/thread-29704-2-1.html