[已解决]麻烦高手帮忙精简下这个正则表达式

kxing

尝试用 (\n.*){n} 来减少患行的书写.
但是如果用()的话他也会写入数组中。
有没有类似于 . 这样的元字符同时匹配换行呢？

InetGet("http://mp3.sogou.com/music.so?query="&AnsiURLEncode("我的心好冷"),"source.htm")
Local $Str=FileRead("Source.htm")

$exp=StringRegExp($Str,' title\="(.+?)" action.*\n.*\n.*\n.*singer\="(.+?)".*\n.*title\="(.+?)" target.*\n.*\n.*\n.*'&"\'"&'(/down\.so\?.+?)'&"\'"&'.*\n.*\n.*\n.*\n.*\n.*\n.*\n.*\n.*:(.+?)-.*\n.*\>(.+?)\<',3)
For $i=0 To UBound($exp)-6 Step 6
FileWriteLine("List.txt",$exp[$i]&" - "&$exp[$i+1]&" - "&$exp[$i+2]&" - "&$exp[$i+4]&" - "&$exp[$i+5])
FileWriteLine("List.txt",$exp[$i+3])
Next

Func AnsiURLEncode($str)
Local $astr, $i, $s2d, $sS = StringSplit($str, '')
For $i = 1 To UBound($sS) - 1
If StringRegExp($sS[$i], '[^\x00-\xff]') Then
$s2d = StringToBinary($sS[$i] & ' ') 
$astr &= '%' & StringMid($s2d, 3, 2) & '%' & StringMid($s2d, 5, 2) 
ElseIf StringRegExp($sS[$i], '[^\w]') Then
$s2d = StringToBinary($sS[$i]) 
$astr &= '%' & StringMid($s2d, 3, 2) 
Else
$astr &= $sS[$i]
EndIf
Next
$astr = StringReplace($astr, '%20', '+') ;转换空格的编码为'+'号，也可不要此行
Return $astr
EndFunc

多谢！！！！

yejier1983

不太明白，标记一下

afan

...有没有类似于 . 这样的元字符同时匹配换行呢？...
kxing 发表于 2010-6-15 18:48

(?s)

kxing

afan大,什么意思呢
用这个(?s)可以任意字符包括换行吗？
这样会不会也同时写入数组中呢？
能否给各例子参考，多谢！

lynfr8

. 匹配除 "\n" 之外的任何单个字符。要匹配包括 ’\n’ 在内的任何字符，请使用象 ’[.\n]’ 的模式

afan

回复 4# kxing


   试试 (?s).+ 就知道它匹配什么了~ 呵呵

kxing

还是不太知道 (?s) 如何使用。。。

afan

(?s) 之后的表达式 . 可以匹配任意字符，包括回车换行等。(?s).+ 将会匹配所有字符。
另外，(?s) 之后的表达式并不一定就会缩短表达式代码，也有可能会更长。
至于不匹配组，可以使用(?:exp) ，如 (?:\n.+)，你一楼的那些重复多次想用精简点的就用 (?:\n.*){8}

kxing

我用了(\n.*){8} 这样返回的数组就包含\n.*的内容了。
因为小括号内的字符被写入树祖了，这并不是我希望的。

afan

回复 9# kxing


    你非要用 (\n.*){8} 而不用我在8#所说的 (?:\n.*){8} 我也没办法

kxing

好了,多谢了.这几天电脑出问题了.尚不来!!!