卫和谐 发表于 2011-11-25 21:09:57

回复 44# 3mile


    我是想要28楼代码那种形式,来提取个人的!

3mile 发表于 2011-11-25 21:17:56

回复 46# 卫和谐
什么意思?二维数组不合意?
#include <INet.au3>
#include <array.au3>

$str=_INetGetSource ( "http://mms.shm.com.cn/smsRegs/2011jc/ListInfo.aspx",False)
$str=BinaryToString($str,4)
;<!--单位人气-->
$array=StringRegExp($str,'(?ms)\<\!--个人人气--\>.*?/table\>',3)
$str=_ArrayToString($array,@CRLF)
$array=StringRegExp($str,'>\h*([\x{4e00}-\x{9fa5}\d]+)<',3)
Local $out_array
Local $out1
Local $out2
Local $k=0

For $i=0 to UBound($array)-1 Step 3
        $out_array[$k]=$array[$i+1]
        $out_array[$k]=$array[$i+2]
       
        $out1[$k]=$array[$i+1]
        $out2[$k]=$array[$i+2]
        $k+=1
Next
_ArrayDisplay($out_array)
_ArrayDisplay($out1)
_ArrayDisplay($out2)

afan 发表于 2011-11-25 21:19:47

回复 43# 卫和谐


    不明白你为何要分开取，它们都是成对出现的。id=[^>]+?>\h*(\S{2,4})</a></t(?s)id=[^>]+?>\h*\S{2,4}</a></t.+?>\h*(\d+票)

lixiaolong 发表于 2011-11-25 21:34:18

回复 34# afan

没注意那个了...要考虑很多...向您学习！

afan 发表于 2011-11-25 21:41:37

回复 49# lixiaolong


    的确需要考虑很多，呵呵~ 也向你学习~

卫和谐 发表于 2011-11-25 21:47:03

感谢AFAN,有时间好好学习一下正则!

xms77 发表于 2011-11-26 10:11:15

回复 51# 卫和谐
哇，卫兄人气很高啊，这么多高人帮你啊！哈哈，看来你是公务员啊！

Ycxw2008 发表于 2011-11-28 22:59:41

{:face (88):}
"哥玩的不是正则,是折腾"
开个玩笑哈^ ^
页: 1 2 3 [4]
查看完整版本: [已解决]这个网页中的内容用正则怎么提取