Hi All,
I solved this problem. Problem with file path.
Thanks,
Udhay
On Mon, Sep 17, 2012 at 3:46 PM, udhaya kumar <[email protected]>wrote:
> 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
