【练习-071】批处理或VBS获取论坛首页指定数据

batman

出题目的：
    1、体现批处理和VBS脚本的实用性
    2、加深对正则的理解
解题要求：
    1、因纯批处理不能实现读取网页的功能，因此可使用三方工具，但不能在批中调用VBS（使用MSHTA解释器除外）
    2、VBS中不可调用BAT
加分原则：
    满分30分，思路为重，视情况加分
题目如下：
    用VBS或BAT读取论坛首页www.bathome.net源代码中最新主题、最新回复、热门主题的所有帖子信息，并以下面的形式输出到TXT文本

[最新主题]

主题：计算e的值 发帖ID：chineseman2 URL：http://www.bathome.net/thread-21713-1-1.html
..................................................................
[最新回复]

主题：计算e的值 最新回复ID：chineseman2 URL：http://www.bathome.net/thread-21713-1-1.html
..................................................................
[热门主题]

主题：批处理如何删除指定目录下的文件夹？ 最新回复ID：terse URL：http://www.bathome.net/thread-21572-1-1.html
..................................................................

batman

回复 2# 冷玉公子


    请仔细阅读上面的说明，我没说用纯批吧，而且纯批也是有正则的，虽然findstr那么弱。。。

batman

回复 5# apang


    兄弟是故意每个版块只取第一个帖子信息的吗？不过分析了你的代码应该是你split方法的局限所导致的。。。

batman

希望大家多用用正则来解决这类提取数据的问题

batman

回复 8# apang


    分已加上，正则用得很好，只是能不用IE就Perfect了，IE你懂的。。。

batman

回复 9# 冷玉公子


    我一没curl二没wget（个人不喜欢用三方），所以没测试你们的代码，我是看你们的代码加的分。。。
   
   批中findstr支持正则啊

batman

本人的解：

Dim objXML, Url
Url = "http://www.bathome.net"
Set objXML = CreateObject("MSXML2.XmlHttp")
objXML.open "GET", Url, False
objXML.send()
Do Until objXML.readyState = 4 : WScript.Sleep 200 : Loop
Dim objADODB
Set objADODB = CreateObject("Adodb.Stream")
objADODB.Type = 1
objADODB.Mode = 3
objADODB.Open()
objADODB.Write objXML.responseBody
Set objXML = Nothing
Dim objFSO, Temp
Set objFSO = CreateObject("Scripting.FileSystemObject")
Temp = objFSO.GetSpecialFolder(2) & "\"
objADODB.SaveToFile Temp & "bathome.html", 2
Set objADODB = Nothing
Dim objHTML, objIH
Set objHTML = GetObject(Temp & "bathome.html", "HtmlFile")
Do Until objHTML.ReadyState = "complete" : WScript.Sleep 200 : Loop
Dim A, B, objStr
A = Array("最新主题", "最新回复", "热门主题")
B = Array("发帖ID：", "最新回复ID：", "最新回复ID：")
For i = 1 To 3
  objIH = objHTML.GetElementByID("homegrids_c_" & i).InnerHtml
  objStr = objStr & "["& A(i - 1) & "]" & vbCrLf & GetInfo(objIH, B(i - 1)) & vbCrLf
Next
Set objHTML = Nothing
objFSO.DeleteFile Temp & "bathome.html"
objStr = Replace(objStr, "<UL class=textinfolist>" & vbCrLf, "")
objFSO.OpenTextFile("HomePage.txt", 2, True).Write Replace(objStr, vbLf, vbCrLf)
Set objFSO = Nothing
CreateObject("Wscript.Shell").Run "cmd /chomepage.txt", True, False

Function GetInfo(Str1, Str2)
  Dim objRE, Matches, Matche
  Set objRE = New RegExp
  objRE.Global = True
  objRE.IgnoreCase = True
  objRE.Pattern = ".*?"">(.*?)</a.*?(\d{1,}-\d{1,}-\d{1,}).*?"">(.*?)</a.*"
  GetInfo = objRE.Replace(Str1, "主题：$3 " & Str2 & "$1 URL：" & Url & "/thread-$2.html")
  Set objRE = Nothing 
End Function
复制代码

batman

回复 14# bluewing009


    一答：
       我摆明了就是不让你用批处理echo神功大*法（这也屏蔽），怎么着？咬我？