Hi,
You can just check whether or not the codes mentioned in the file
"Check.txt" exist in the the file "Ex.txt"
f2Path="C:\Users\Gman\Desktop\debug\Ex.txt"
'path for Ex.txt
f1Path="C:\Users\Gman\Desktop\debug\Check.txt"
'path for Check.txt
Dim ofso: set ofso=CreateObject("Scripting.Filesystemobject")
Set fyl1=ofso.OpenTextFile(f1Path,1)
Set fyl2=ofso.OpenTextFile(f2Path,1)
str2=fyl2.ReadAll
Do while (not(fyl1.AtEndOfStream))
str1=fyl1.ReadLine
x=split(str1,vbtab)
If ubound(x)>0 Then
If (instr(1,str2,x(0))>0) Then
print x(0)&" Found"
else
print x(0)&" not Found!!!"
End If
End If
Loop
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
