Header Ads

Reading Data character by character from a Flat File in QTP

This is a set of codes where we will be reading single char from a textfile

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("D:\qtp.txt", 1)
Do Until objFile.AtEndOfStream
strCharacters = objFile.Read(1)
msgbox strCharacters
Loop
Powered by Blogger.