正则式提取特定内容,请大神指导

tunnyx · 发表于 2015-1-10 18:54:05

在我获取了网页的<body>....</body>中的内容后,想得到订单的类型和商品名称,折腾了好久,没写出来合适的正则式,求大神指导,部分网页的代码如下:
 <tr>
 <td align="left">*订单类型：网络订单</td>
 <td align="center">6.5</td>
 </tr>

 <tr>

 <td align="left">*商品名称：DIN912 内六角圆柱头螺钉 12.9级</td>
 <td align="center"> </td>
 </tr>

半芯竹 · 发表于 2015-1-10 19:01:53

本帖最后由半芯竹于 2015-1-10 19:12 编辑

[^\x00-\xff]+.*(?=</td>)

#include <Array.au3>
Local $file = FileOpen(@ScriptDir&"\1.txt", 0)
If $file = -1 Then Exit
Local $chars = FileRead($file)
If @error = -1 Then Exit
Local $res = StringRegExp($chars,"[^\x00-\xff]+.*(?=</td>)",3)
If Not @error Then _arraydisplay($res,'test')
FileClose($file)

tunnyx · 发表于 2015-1-10 19:40:08

本帖最后由 tunnyx 于 2015-1-10 21:08 编辑

谢谢,我再试试,我可以直接获取比如订单类型后面的"网络订单"的数据出来吗?

lpxx · 发表于 2015-1-10 22:03:07

(?=订单类型|商品名称)([^<]+)

lpxx · 发表于 2015-1-10 22:04:11

回复 3# tunnyx

(?:订单类型：)([^<]+)

半芯竹 · 发表于 2015-1-10 22:52:23

本帖最后由半芯竹于 2015-1-10 23:09 编辑

楼上的大师啊。膜拜。。。
学习了。。。

#include <Array.au3>
Local $file = FileOpen(@ScriptDir&"\1.txt", 0)
If $file = -1 Then Exit
Local $chars = FileRead($file)
If @error = -1 Then Exit
Local $res = StringRegExp($chars,"(?:\：)(.*(?=<))",3)
If Not @error Then _arraydisplay($res,'test')
FileClose($file)

tunnyx · 发表于 2015-1-19 22:17:21

今天又遇到一个正则式问题,虽然下决心多看几遍正则式的书,但这年前的任务太忙了,还得来请教各位大神.
文本内容:"1 2 3 4 5 ... 共 XXX 页第2页确定","XXX"是从1到100,"共 "和" 页"都仅出现一次,请大神帮个忙,谢谢.

半芯竹 · 发表于 2015-1-20 11:56:39

回复 7# tunnyx

我是没看懂你说的什么问题..详细一些好吗

tunnyx · 发表于 2015-1-20 22:04:34

就是要提取的字符为"共 XXX 页"中的这个总页面,我们公司用的是一个考勤系统,每天员工打卡的记录会形成一个HTML文件,而且自动分页,我要读取每页的员工打卡记录,并且计算要循环多少次,所以,我这个总页数的记录出来.

		自动登录	找回密码
密码			加入

[效率算法] 正则式提取特定内容,请大神指导

相关帖子

本帖子中包含更多资源