Hi All,
Dim objFSO,File1,File2
string File1chars,File2chars
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set File1 = objFSO.OpenTextFile("C:\sustratelocation.txt", 1)
Set File2 = objFSO.OpenTextFile("D:\Nexus\Data Repository\Golden
Config\substratelocation_1.txt")
Do Until File2.AtEndOfStream
File1chars = File1.ReadLine
File2chars= File2.ReadLine
comp=StrComp(File1chars,File2chars,0)
If comp=False Then
Call Write_Log("Pass",File1chars)
Else
Call Write_Log("Fail",File1chars)
Exec_Result=False
End If
Loop
File1.Close
File2.Close
here i am checking the strings from two different text files. while i
comparing the variable File1chars is not read the value from the file. It
is showing as userdefined and empty but the second variable File2chars is
read the value from the file correctly. It is showing as string with value
from the file. Am i declared anything wrong. What is the solution to solve
this problem.
File1chars-User defined(Empty)-Error
File2chars-String(Value)
Thanks In Advance,
Udhay
--
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
