找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 比较着急 如何利用 正则表达式 来处理 一个html文件 ...
12下一页
返回列表 发新帖
查看: 7565|回复: 15

比较着急 如何利用 正则表达式 来处理 一个html文件

  [复制链接]
lele9013
发表于 2008-9-18 20:32:30 | 显示全部楼层 |阅读模式
这是一段 html的页面文件

    <td class="TrRows" align=Left>2008-9-18 9:00</td> 是每小时会生成一次



如何根据 当前时间 化为整数 然后读取下面的  1.1 GB   27.2 GB   28.2 GB 等数据

如9点25分 变为9:00 然后读取下面的内容

  <tr>
    <td class="TrRows" align=Left>2008-9-18 9:00</td>
    <td class="TrRows" align=Left>1.1 GB</td>
    <td class="TrRows" align=Left>27.2 GB</td>
    <td class="TrRows" align=Left>28.2 GB</td>
  </tr>
  <tr>
    <td class="TrOdd" align=Left>2008-9-18 10:00</td>
    <td class="TrOdd" align=Left>1.3 GB</td>
    <td class="TrOdd" align=Left>34.8 GB</td>
    <td class="TrOdd" align=Left>36.1 GB</td>
  </tr>
  <tr>
    <td class="TrRows" align=Left>2008-9-18 11:00</td>
    <td class="TrRows" align=Left>1.3 GB</td>
    <td class="TrRows" align=Left>34.7 GB</td>
    <td class="TrRows" align=Left>36.0 GB</td>
  </tr>
  <tr>
    <td class="TrOdd" align=Left>2008-9-18 12:00</td>
    <td class="TrOdd" align=Left>1.3 GB</td>
    <td class="TrOdd" align=Left>34.6 GB</td>
    <td class="TrOdd" align=Left>35.9 GB</td>
  </tr>
  <tr>
    <td class="TrRows" align=Left>2008-9-18 13:00</td>
    <td class="TrRows" align=Left>1.3 GB</td>
    <td class="TrRows" align=Left>34.4 GB</td>
    <td class="TrRows" align=Left>35.7 GB</td>
  </tr>
  <tr>
    <td class="TrOdd" align=Left>2008-9-18 14:00</td>
    <td class="TrOdd" align=Left>1.3 GB</td>
    <td class="TrOdd" align=Left>34.7 GB</td>
    <td class="TrOdd" align=Left>36.0 GB</td>
  </tr>
  <tr>
    <td class="TrRows" align=Left>2008-9-18 15:00</td>
    <td class="TrRows" align=Left>1.3 GB</td>
    <td class="TrRows" align=Left>35.0 GB</td>
    <td class="TrRows" align=Left>36.4 GB</td>
  </tr>
  <tr>
    <td class="TrOdd" align=Left>2008-9-18 16:00</td>
    <td class="TrOdd" align=Left>1.3 GB</td>
    <td class="TrOdd" align=Left>35.1 GB</td>
    <td class="TrOdd" align=Left>36.5 GB</td>
  </tr>
  <tr>
    <td class="TrRows" align=Left>2008-9-18 17:00</td>
    <td class="TrRows" align=Left>1.2 GB</td>
    <td class="TrRows" align=Left>34.3 GB</td>
    <td class="TrRows" align=Left>35.5 GB</td>
  </tr>
  <tr>
    <td class="TrOdd" align=Left>2008-9-18 18:00</td>
    <td class="TrOdd" align=Left>1.0 GB</td>
    <td class="TrOdd" align=Left>29.9 GB</td>
    <td class="TrOdd" align=Left>30.9 GB</td>
  </tr>
  <tr>
    <td class="TrRows" align=Left>2008-9-18 19:00</td>
    <td class="TrRows" align=Left>1.6 GB</td>
    <td class="TrRows" align=Left>33.9 GB</td>
    <td class="TrRows" align=Left>35.5 GB</td>
  </tr>
html, 文件, 正则表达式

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
zcbenz
发表于 2008-9-18 23:26:56 | 显示全部楼层
_stringbetween
回复

举报

l4ever
发表于 2008-9-19 02:21:09 | 显示全部楼层
参见http://l4ever.cn/archives/1119 详细代码
回复

举报

l4ever
发表于 2008-9-19 03:06:57 | 显示全部楼层
#include <IE.au3>
     $Url="C:\Users\l4ever\Desktop\A.html"
     $oIE = _IECreate ($url, 0, 0)       
     $sHTML = _IEBodyReadHTML ($oIE)
$array = StringRegExp($sHTML, '<(?i)td class=TrRows align=Left>(.*?)</(?i)td>', 1)

for $i = 0 to UBound($array) - 1
$hour = StringRight ($array[$i],4)
msgbox (0,"现在时间:"&@hour&":00","    网页内时间:0"&$hour&"网页内小时最好能补0,设置成2位数")
if @hour&":00" = "0"&$hour then
msgbox (0,$i,$array[$i])
Endif
Next


大致是上面这样,
对比时间加0了,但是加0之后到10点了就又多了个0.
最好能把网页里面的小时值设置成2位数.
回复

举报

l4ever
发表于 2008-9-19 03:21:33 | 显示全部楼层
仔细再看了一下,如果LZ能修改网页代码,改成
2008-9-18 09:00,1.1GB,27.2GB,28.2GB,
2008-9-18 10:00,1.3GB,34.8GB,36.1GB,
2008-9-18 11:00,1.3GB,34.8GB,36.1GB,
2008-9-18 12:00,1.3GB,34.8GB,36.1GB,
2008-9-18 13:00,1.3GB,34.8GB,36.1GB,
那么就简单了
#include <IE.au3> 
     $Url="C:\Users\l4ever\Desktop\A.html"
     $oIE = _IECreate ($url, 0, 0)        
     $sHTML = _IEBodyReadHTML ($oIE)
$size = StringSplit($sHTML, ",")  ;逗号分割
For $i=1 To $size[0]  
$Time = StringRight ( $size[$i], 5 )  ;取任意数值的后五位
$now = @hour&":00"  ;当前小时后面加:00
If $now=$Time Then  ;如果上2行相等
for $j = $i to $i+3  ;取下三条数据显示
Msgbox (64,"第"&$j&"组数值",$size[$j])
Next
Endif
next
[ 本帖最后由 l4ever 于 2008-9-19 03:28 编辑 ]
回复

举报

l4ever
发表于 2008-9-19 03:45:14 | 显示全部楼层
又是我,实在太无聊了,如果LZ不能修改网页,那么.嘿嘿.超级替换大法开始咯
#include <IE.au3> 
     $Url="C:\Users\l4ever\Desktop\A.html"
     $oIE = _IECreate ($url, 0, 0)        
     $sHTML = _IEBodyReadHTML ($oIE)
$step1 = StringReplace($sHTML, "<", "")  ;替换HTML
$step2 = StringReplace($step1, ">", "")
$step3 = StringReplace($step2, "tr", "")
$step4 = StringReplace($step3, "td", "")
$step5 = StringReplace($step4, "class", "")
$step6 = StringReplace($step5, "Rows", "")
$step7 = StringReplace($step6, "/", "")
$step8 = StringReplace($step7, "=", "")
$step9 = StringReplace($step8, "left", "")
$step10 = StringReplace($step9, "align", "")
$step11 = StringReplace($step10, "odd", "")
$step12 = StringReplace($step11, """", "")
$step13 = StringReplace($step12, "   ", ",")  ;把空格替换成逗号
$step14 = StringReplace($step13, " GB", "GB") ;去掉GB前面的空格,不能用StringStripWS 因为时间前面有空格的.囧

$Time1= StringReplace($step14, " 1:00", " 01:00")  ;替换时间,让时间规范
$Time2 = StringReplace($Time1, " 2:00", " 02:00")
$Time3 = StringReplace($Time2, " 3:00", " 03:00")
$Time4 = StringReplace($Time3, " 4:00", " 04:00")
$Time5 = StringReplace($Time4, " 5:00", " 05:00")
$Time6 = StringReplace($Time5, " 6:00", " 06:00")
$Time7 = StringReplace($Time6, " 7:00", " 07:00")
$Time8 = StringReplace($Time7, " 8:00", " 08:00")
$Time9 = StringReplace($Time8, " 9:00", " 09:00")

msgbox (0,"替换之后的数据",$Time9)  ;最终结果了.

$size = StringSplit($Time9, ",")  ;把最终结果分割成子字符串
For $i=1 To $size[0]  ;枚举所有字符
$Time = StringRight ( $size[$i], 5 )  ;取任意数值的后五位
$now = @hour&":00"  ;当前小时后面加:00
If $now=$Time Then  ;如果上2行相等
for $j = $i to $i+3  ;取下三条数据显示
Msgbox (64,"第"&$j&"组数值",$size[$j])
Next
Endif
next
[ 本帖最后由 l4ever 于 2008-9-19 03:48 编辑 ]

评分

参与人数 1威望 +3 收起 理由
autoit + 3 我很赞同

查看全部评分

回复

举报

lele9013
 楼主| 发表于 2008-9-20 03:49:25 | 显示全部楼层
超级谢谢楼上的一位。。

替换法 貌似很强大
回复

举报

huangke
发表于 2008-9-20 22:40:48 | 显示全部楼层
厉害哦,解决了..
回复

举报

liongodmien
发表于 2008-10-5 21:06:17 | 显示全部楼层
对于这个问题，我的解决办法是：
1、因为这个网页是分开一段一段的，先把时分相同的那一段提取出来；
2、再在提取出来的字串中，提取时间及各GB数值！


提取当前小时内的全部字段数据：

#include <IE.au3> 
     $Url=@DesktopDir&"\a.htm"
     $oIE = _IECreate ($url, 0, 0)        
     $sHTML = _IEBodyReadHTML ($oIE)
         $stringS = StringStripCR($sHTML)
         $string = StringStripWS ($stringS,8)
$array = StringRegExp($string, '(?i)('&@YEAR&'-\d\d?-\d\d?'&@HOUR+0&':00)</td>\S+</tr>', 2)
msgbox (0,0,$array[0])


[ 本帖最后由 liongodmien 于 2008-10-5 23:21 编辑 ]
回复

举报

liongodmien
发表于 2008-10-5 21:12:58 | 显示全部楼层
对于小时数@Hour 得出的是两个数，而当１０点前会得到０Ｘ的问题可以用：
@Hour + 0
解决！

得：

$array = StringRegExp($string, '(?i)('&@YEAR&'-\d\d?-\d\d?'&@HOUR+0&':00)</td>\S+</tr>', 2)


[ 本帖最后由 liongodmien 于 2008-10-5 23:22 编辑 ]
回复

举报

liongodmien
发表于 2008-10-5 21:17:40 | 显示全部楼层
上面已经把需要的整一段字符提取出来了，再要提的可以再多来几个正则！

反复的看，都找不到一个可以跨行比较用的元字符，只好借用上面兄弟的办法，删除换行和空白了！

最后还是勉强达到了自己开始设想的效果．．．．．．

[ 本帖最后由 liongodmien 于 2008-10-5 23:24 编辑 ]
回复

举报

liongodmien
发表于 2008-10-6 09:46:35 | 显示全部楼层

Final 版的消息提取

　　今天再思考了一下，把隔行匹配也搞定了！于是做了这个最终版的消息提取脚本（附ＬＺ要求格式的网页：a.htm）．．．

　　ＳＨＯＷ：

#include <IE.au3> 
     $Url=@DesktopDir&"\a.htm"
     $oIE = _IECreate ($url, 0, 0)        
     $sHTML = _IEBodyReadHTML ($oIE)
$array = StringRegExp($sHTML, '(?U)(?i)\d+-\d+-\d+ '&@HOUR+0&':00</td>[^＠]+</tr>', 2)
Local $nOffset = 1, $Show = ""
$Show &= "提取出来的消息段："&$array[0]&@CRLF
$Time = StringRegExp($array[0], '\d+-\d+-\d+ \d+:00', 1)
$Show &= @CRLF&@CRLF&"消息时间："&$Time[0]&@CRLF&@CRLF

While 1
    $var = StringRegExp($array[0], '(?U)(?i)">(.+)</', 1, $nOffset)
    If @error = 0 Then
        $nOffset = @extended
    Else
        ExitLoop
    EndIf
    for $i = 0 to UBound($var) - 1
        $Show &= "大小记录：　"& $var[$i] & "        " & @CRLF
    Next
WEnd
MsgBox(64, "消息提取", $Show)

希望大家指正改善！
回复

举报

liongodmien
发表于 2008-10-6 09:47:27 | 显示全部楼层
网页内容如下：
  <tr>
    <td class="TrRows" align=Left>2008-9-18 8:00</td>
    <td class="TrRows" align=Left>1.1 GB</td>
    <td class="TrRows" align=Left>27.2 GB</td>
    <td class="TrRows" align=Left>28.2 GB</td>
  </tr>  <tr>
    <td class="TrRows" align=Left>2008-9-18 9:00</td>
    <td class="TrRows" align=Left>1.1 GB</td>
    <td class="TrRows" align=Left>27.2 GB</td>
    <td class="TrRows" align=Left>28.2 GB</td>
  </tr>
  <tr>
    <td class="TrOdd" align=Left>2008-9-18 10:00</td>
    <td class="TrOdd" align=Left>1.3 GB</td>
    <td class="TrOdd" align=Left>34.8 GB</td>
    <td class="TrOdd" align=Left>36.1 GB</td>
  </tr>
  <tr>
    <td class="TrRows" align=Left>2008-9-18 11:00</td>
    <td class="TrRows" align=Left>1.3 GB</td>
    <td class="TrRows" align=Left>34.7 GB</td>
    <td class="TrRows" align=Left>36.0 GB</td>
  </tr>
  <tr>
    <td class="TrOdd" align=Left>2008-9-18 12:00</td>
    <td class="TrOdd" align=Left>1.3 GB</td>
    <td class="TrOdd" align=Left>34.6 GB</td>
    <td class="TrOdd" align=Left>35.9 GB</td>
  </tr>
  <tr>
    <td class="TrRows" align=Left>2008-9-18 13:00</td>
    <td class="TrRows" align=Left>1.3 GB</td>
    <td class="TrRows" align=Left>34.4 GB</td>
    <td class="TrRows" align=Left>35.7 GB</td>
  </tr>
  <tr>
    <td class="TrOdd" align=Left>2008-9-18 14:00</td>
    <td class="TrOdd" align=Left>1.3 GB</td>
    <td class="TrOdd" align=Left>34.7 GB</td>
    <td class="TrOdd" align=Left>36.0 GB</td>
  </tr>
  <tr>
    <td class="TrRows" align=Left>2008-9-18 15:00</td>
    <td class="TrRows" align=Left>1.3 GB</td>
    <td class="TrRows" align=Left>35.0 GB</td>
    <td class="TrRows" align=Left>36.4 GB</td>
  </tr>
  <tr>
    <td class="TrOdd" align=Left>2008-9-18 16:00</td>
    <td class="TrOdd" align=Left>1.3 GB</td>
    <td class="TrOdd" align=Left>35.1 GB</td>
    <td class="TrOdd" align=Left>36.5 GB</td>
  </tr>
  <tr>
    <td class="TrRows" align=Left>2008-9-18 17:00</td>
    <td class="TrRows" align=Left>1.2 GB</td>
    <td class="TrRows" align=Left>34.3 GB</td>
    <td class="TrRows" align=Left>35.5 GB</td>
  </tr>
  <tr>
    <td class="TrOdd" align=Left>2008-9-18 18:00</td>
    <td class="TrOdd" align=Left>1.0 GB</td>
    <td class="TrOdd" align=Left>29.9 GB</td>
    <td class="TrOdd" align=Left>30.9 GB</td>
  </tr>
  <tr>
    <td class="TrRows" align=Left>2008-9-18 19:00</td>
    <td class="TrRows" align=Left>1.6 GB</td>
    <td class="TrRows" align=Left>33.9 GB</td>
    <td class="TrRows" align=Left>35.5 GB</td>
  </tr>
回复

举报

lele9013
 楼主| 发表于 2008-10-6 13:38:48 | 显示全部楼层
好牛啊

StringRegExp($sHTML, '(?U)(?i)\d+-\d+-\d+ '&@HOUR+0&':00</td>[^＠]+</tr>', 2)

这里面的 (?U)(?i)\d+-\d+-\d 正则式 是什么意思呢？

正则式这块没有中文的帮战 好可惜啊
回复

举报

liongodmien
发表于 2008-10-6 15:07:26 | 显示全部楼层
原帖由 lele9013 于 2008-10-6 13:38 发表
好牛啊

StringRegExp($sHTML, '(?U)(?i)\d+-\d+-\d+ '&@HOUR+0&':00[^＠]+', 2)

这里面的 (?U)(?i)\d+-\d+-\d 正则式 是什么意思呢？

正则式这块没有中文的帮战 好可惜啊

(?U)非贪婪模式匹配
(?i)不理会大小写
\d+一个或多个数字
- 没什么的，就是一横
(连续几个同上)
&@HOUR 取当前的小时值
+0& 将不到10点前的数字化为单一的数字,如：09化为9，08化为8．．．
:00 时间的分隔及０分
[^＠]+ 匹配除＠之外的字符一个或多个(这个＠不是一般的,是我用全角输入的,网页比较不会有)

后面的</tr> 就是用于段尾的匹配,以便断字
回复

举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-5 03:50 , Processed in 0.087696 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表