Nice :)
  ----- Original Message ----- 
  From: udhaya kumar 
  To: QTP - HP Quick Test Professional - Automated Software Testing 
  Sent: Monday, September 17, 2012 4:55 PM
  Subject: Re: URGENT:variable is not reading the value from the notepad


  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

-- 
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

Reply via email to