#2.
dim objFso, fylPath
fylPath = "C:\file.txt"
set objFso = createobject("scripting.filesystemobject")
set fyl = objFso.opentextfile(fylPath,1)
ctr=1
While not fyl.AtEndOfStream
if ctr mod 2 <>0 then 'will read
only the odd numbered lines
msgbox fyl.readline()
else
fyl.skipline
end if
ctr=ctr+1
Wend
set fyl=nothing
set objFso=nothing
--
--
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 Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
