中国DOS联盟

wscript.echo "用户名是:" & RegExpTest("<li class=""userName"">(*)</li>",ReadText("sourcefile.txt")) 





Function RegExpTest(Patrn,strng)   

Set RegEx1=New RegExp   

RegEx1.Pattern = Patrn

RegEx1.IgnoreCase=True     

RegEx1.Global=Fasle        

Set Matches =RegEx1.Execute(strng)   

For Each Match In Matches      

i=i+1       

RetStr=RetStr & Match.SubMatches(0)   

If i Mod 2 = 0 Then       

RetStr=RetStr & vbCrLf       

 End If   

 Next   

 RegExpTest=RetStr

 End Function

 

 Function  ReadText(FilePath)

 Dim Fso,Rso

 Set Fso=CreateObject("Scripting.FileSystemObject")

 Set Gso=Fso.GetFile(FilePath)

 Set Rso=Gso.OpenAsTextStream(1)

 ReadText=Rso.ReadAll

 End Function

Dim sourceStrng, regUserName, regMsgTitle, regMsgTime, regIP



sourceStrng = ReadText("sourcefile.txt")

regUserName = "*\"&chr(34)&"userName\"&chr(34)&">(.*)</li>*"

regMsgTitle = "*\"&chr(34)&"msgTitle\"&chr(34)&".*<h3>(.*)</h3></div>*"

regMsgTime = "*\"&chr(34)&"msgTime\"&chr(34)&".*>(.*)</div>*"

regIP = "*留言IP\D*(\d+\.\d+\.\d+\.\d+)*"



wscript.echo _

"用户名:  " & vbtab & RegExpTest(regUserName,sourceStrng) & vbcrlf &_

"留言标题:  " & vbtab & RegExpTest(regMsgTitle,sourceStrng) & vbcrlf &_

"留言时间:  " & vbtab & RegExpTest(regMsgTime,sourceStrng) & vbcrlf &_

"留言IP:  " & vbtab & RegExpTest(regIP,sourceStrng)



Function RegExpTest(Patrn,strng)

Dim RetStr

Set RegEx1=New RegExp   

RegEx1.Pattern = Patrn

RegEx1.IgnoreCase=True     

RegEx1.Global=True        

Set Matches =RegEx1.Execute(strng)

For Each Match In Matches

RetStr = Match.SubMatches(0)

Next

RegExpTest=RetStr

End Function



Function  ReadText(FilePath)

Dim Fso,Rso

Set Fso=CreateObject("Scripting.FileSystemObject")

Set Gso=Fso.GetFile(FilePath)

Set Rso=Gso.OpenAsTextStream(1)

ReadText=Rso.ReadAll

End Function

Dim ie

Set ie = CreateObject("InternetExplorer.Application")

ie.NaviGate "C:\Documents and Settings\Administrator\桌面\fd.htm"

For Each Aelement In ie.document.anchors '可描述A标签集合

    If Aelement.id > msgindex Then       '比较A标签描述

	msgindex   = Aelement.id         '记录更大的msgid

	Set objele = Aelement            '记录msgid最大的A对象

    End If

Next

msgbox objele.childNodes(0).outertext    '显示被纪录的A对象的下级文本

ie.quit                                  '退出ie

Set ie = Nothing