Public Function R_file(path,hangshu)
Dim fso
set fso=CreateObject("Scripting.FileSystemObject")
set file=fso.opentextfile(path,1)
For i=1 to hangshu-1 step 1
file.skipline
next
R_file=file.readline
file.close
set fso=nothing
End Function
''''例如读第二行
a=R_file("c:\a.txt",2)
然后用正则表达式去对比
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 创建变量。
Set regEx = New RegExp ' 创建正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置为不区分大小写。
regEx.Global = True ' 设置全局适用。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match in Matches ' 对 Matches 集合进行迭代。
RetStr = RetStr & "Match found at position "
RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
RetStr = RetStr & Match.Value & "'." & vbCRLF
Next
RegExpTest = RetStr
End Function
RegExpTest("写入你预期的htmlsource", a)作者: wugecat 时间: 2009-6-17 17:49
这个简单啊...插个检查点,设置成检查文字和链接不就完了.........QTP很好实现,这个最基本了,看看帮助吧