CODE: [Copy to clipboard]
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
CODE: [Copy to clipboard]
Dim sourceStrng, regUserName, regMsgTitle, regMsgTime, regIP
sourceStrng = ReadText("sourcefile.txt")
regUserName = "[.\s]*\"&chr(34)&"userName\"&chr(34)&">(.*)</li>[.\s]*"
regMsgTitle = "[.\s]*\"&chr(34)&"msgTitle\"&chr(34)&".*<h3>(.*)</h3></div>[.\s]*"
regMsgTime = "[.\s]*\"&chr(34)&"msgTime\"&chr(34)&".*>(.*)</div>[.\s]*"
regIP = "[.\s]*留言IP\D*(\d+\.\d+\.\d+\.\d+)[.\s]*"
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