Facebook

For any corporate training requirements Please mail To sudhakar@qtpsudhakar.com
Course Name Date Time Duration Type Location
WhatsApp to 91-8328152362 for address details of AnyTechLabs
Selenium + Appium 27th February 2019 7.00 AM IST to 8:45 AM IST 45 Days Class Room + Online AnyTechLabs
Selenium + Appium 9th March 2019 9.00 AM IST to 2.00 PM IST 5 WeekEnds Class Room + Online AnyTechLabs

A book "Cracking the QTP interview" authored by Sudhakar.Read More. Buy From FlipKart

Monday, July 6, 2009

Read CSV File Data

'******************************************************
Dim file,fso,f,fData,arrData,CsvValue
file="C:\sample.csv"
 
Set fso=createobject("scripting.filesystemobject")
Set f  = fso.OpenTextFile(file)
 
While not f.AtEndOfStream
fData=f.ReadLine
arrData=split(fData,",")
For Each CsvValue In arrData
MsgBox CsvValue
Next
Wend
f.Close
Set fso=Nothing
'******************************************************

No comments :

Post a Comment