Write a program to print all lines that contains a word either “testing&rd

Write a program to print all lines that contains a word either “testing” or “qtp”

Question Posted / naazneen

2 Answers
6787 Views
I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

Write a program to print all lines that contains a word either “testing” or “qtp&r..

Answer / amit

''' Write a program to print all lines that contains a word either “testing” or “qtp”

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

Set objFile = fso.OpenTextFile("C:UsersAmit MoolchandaniDesktop est.txt",1,True)

Do While objFile.AtEndOfStream <> True
str = objFile.ReadLine
If Instr(1,str,"Testing",1) Or Instr(1,str,"qtp",1) Then
Print str
End If

Loop

objFile.Close

Set objFile = Nothing
Set fso = Nothing

Is This Answer Correct ?

5 Yes

0 No

Write a program to print all lines that contains a word either “testing” or “qtp&r..

Answer / syamala usha

set fso = createobject("scripting.filesystemobject")

set f=fso.opentextfile("C:
otes HP.txt",1)

Do until f.atendofstream

str=f.readline

a = split(str," ")

flag=0

for j = 0 to ubound(a)

if (a(j) = "testing") or (a(j) = "qtp") then

flag=1

exit for

end if

next

if flag=1 then

msgbox str

end if

loop

f.close

set f= nothing

set fso =nothing

Is This Answer Correct ?

0 Yes

0 No

Post New Answer