【已解决】求正则表达式写法,源码已符上。
本帖最后由 .個朲綉√ 于 2011-4-5 13:33 编辑想要获取用户状态信息,如:账务停机,这四个字,其它信息不需要。
想知道用正则表达式如何写,谢谢各位了。以下资料为您在上海电信办理业务时留下的用户信息,如与您的实际信息不符,请您前往营业厅进行更正。
<table width="100%" border="0" cellpadding="5"
cellspacing="2" style="border: 1px solid #DFDFDF">
<tr>
<td width="25%" align="left" bgcolor="#F2F2F2">
用户姓名:
</td>
<td align="left" bgcolor="#F6F6F6">
上海华工有限公司
</td>
<td width="25%" align="left" bgcolor="#F2F2F2">
设备号码:
</td>
<td align="left" bgcolor="#F6F6F6">
18930302264
</td>
</tr>
<tr>
<td align="left" bgcolor="#F2F2F2">
当前状态:
</td>
<td align="left" bgcolor="#F6F6F6">
帐务停机
</td>
<td align="left" bgcolor="#F2F2F2">
最后状态变更时间:
</td>
<td align="left" bgcolor="#F6F6F6">
2010-04-13
</td>
</tr>
<tr>
<td align="left" bgcolor="#F2F2F2">
号码类型:
</td>
<td align="left" bgcolor="#F6F6F6">
</td>
<td align="left" bgcolor="#F2F2F2">
入网日期(装机日期):
</td>
<td align="left" bgcolor="#F6F6F6">
2010-04-13
</td>
</tr>
<tr>
<td align="left" bgcolor="#F2F2F2">
套餐名称:
</td>
<td align="left" bgcolor="#F6F6F6">
天翼3G无线宽带套餐(集团版)时长非共享版,80元/月(不区分本地漫游),含1张网卡(政企)
</td>
<td align="left" bgcolor="#F2F2F2">
套餐开始日期:
</td>
<td align="left" bgcolor="#F6F6F6">
2010-05-01
</td>
</tr>
<tr>
<td align="left" bgcolor="#F2F2F2">
套餐结束日期:
</td>
<td align="left" bgcolor="#F6F6F6">
2011-04-30
</td>
<td align="left" bgcolor="#F6F6F6">
所属品牌:
</td>
<td align="left" bgcolor="#F6F6F6">
C+W(E+W)后付费
</td>
</tr>
</table> StringRegExp($str, '(?s)状态:.+?([^\x00-\xff]+)', 1) 本帖最后由 .個朲綉√ 于 2011-4-5 13:28 编辑
我用_FileWriteLog把源码写入到记事本里,源码也没有错,
可是$subNo为什么用msgbox出来是空白的,啥也没有。。。。
但是我再把源码再复制到正则里测试,能识别帐务停机
$oHTTP.Open("GET", "http://sh.ct10000.com/v3/curAccountZq.do?method=userInfo&menuid=3&canAdd2Tool=canAdd2Tool&zq=zq", False)
$oHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
$oHTTP.setRequestHeader("Referer", "http://sh.ct10000.com/v3/AccountManageZqAction.do?method=init&zq=zq")
$oHTTP.Send()
$Log_txt = $oHTTP.responseText
_FileWriteLog(@ScriptDir & "\源码.log",$Log_txt)
$subNo = StringRegExp($Log_txt, '(?s)状态:.+?([^\x00-\xff]+)', 1)
MsgBox(0,"1",$subNo) 回复 3# .個朲綉√
$subNo是数组.
MsgBox(0,"1",$subNo) 回复 4# lixiaolong
哦,终于明白了,谢谢,我自己弄错了,再次表示感谢。
页:
[1]