hi,
Please find the script below:
Option Explicit
Dim Fso, oFile,gFile, strLine, strLine_1,arr_FailedLines ' Variable
Declarations
Const FileName = "C:\SampleTestCase.txt" ' Constant File Name along with
path
Set Fso = CreateObject("Scripting.FileSystemObject") ' Create an instance
of a FileSystem
Set gFile = Fso.GetFile(FileName) ' Get the file name
Set oFile = Fso.OpenTextFile(FileName) ' Open the File
Do Until oFile.AtEndOfStream ' A loop that will read file line by line and
place the line in a strting by usinfg '|' as a seperator between two line
strLine = oFile.ReadLine
If Instr(strLine,"Fail") >0 Then
strLine_1 = strLine_1 &"|"&strLine
End If
Loop
arr_FailedLines = Split(strLine_1,"|",-1,1) ' Split the lines and place the
contents in an array. The failed lines can be accessed in this array from
element 1 (i.e. arr_FailedLine(1))
Set oFile = Nothing
Set gFile = Nothing
Set Fso = Nothing
Thanks,
Gautham Maroli
On Monday, October 15, 2012 3:36:49 PM UTC+5:30, udhaya kumar wrote:
> Hi All,
>
>
> i have attached text file which has pass and fail lines. I
> want to read each fail lines and i want to store it in single variable.
>
>
>
> Please Help me in this,
>
>
> Thanks,
> 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
