How do u retrieve data from a text file into different
variables. i.e.
in a text file named "source" , the data is like :
india,1000,japan,200,china,50,singapore,45050
this is given in the first line of the text file.
in the second line of the text file the dta is:
sun,moon,planet,river,earth,water
if u use "readline" method by using FSO concept u can
retrieve the entire line in to a variable. but i want to
import each field (ex: "india" in one variable, "1000" in
another variable etc..). Apprecitae proper replies.
Answers were Sorted based on User's Feedback
Answer / rajaputra
Hi i got the solution for you.Here it is...
Just go through it, and copy and paste in QTP and run.
You will get it.
'''''''''''Importing Data From Flat File using split''''''
''Source.txt file is having following data
''Arunsingh,40000,KiranKumar,35000,Chandra,50000,Rajesh,20000
''Test Engineer,Developer,Project Leader,HR Executive
Set fso=createobject("scripting.filesystemobject")
Set z=fso.opentextfile("c:\source.txt",1)
l=1
While not z.atendofline
i=1
k=1
count=1
parname=inputbox("Enter Name of The Parameter "&l)
'''''Enter the requiered parameter names
datatable.GetSheet(1).addparameter parname,""
n=z.readline
a=split(n,",")
For j=lbound(a) to ubound(a)
If isnumeric(a(j)) Then
If count=1 Then
datatable.GetSheet(1).addparameter
"Salary",""
count=count+1
end if
datatable.SetCurrentRow(k)
m=l +1
datatable(m,1)=a(j)
k=k+1
else
datatable.SetCurrentRow(i)
datatable(l,1)=a(j)
i=i+1
end if
Next
l=m
l=l+1
Wend
If you have any doubts please contact me at
r.arunsingh@gmail.com
Is This Answer Correct ? | 4 Yes | 0 No |
Mr,
You have done almost,
Using FSO Readline, retrieve the line in to variable say A
then apply Split function on variable A and use the Comma(,)
as delimeter to split and get this data into a variable of
type array
then get each of the array element into required variable
need more info...
next time
Is This Answer Correct ? | 4 Yes | 1 No |
Answer / vipin eden ispl
set fso=createobject("scripting.filesystemobject")
set f=opentextfile(path,1)
set a=new regexp
a.pattren="[a-z]+|(\d)+"
a.ignorecase=true
a.global=true
do while f.atendofstream <>true
r=f.readline
set b=a.execute(r)
for each val in b
msgbox val
next
loop
f.close
dz will get u much information later u can modify as per ur
requriment.
Is This Answer Correct ? | 1 Yes | 0 No |
Answer / vinay.k
ya by FSO u can retrieve a line... make use of regular
expression u will arrive at the solution.for ex using \d u can
retrieve digits and \w will give u word char..
Is This Answer Correct ? | 0 Yes | 0 No |
Answer / kartheek
'try this cpde
Set fso = createobject("scripting.filesystemobject")
Set f = fso.OpenTextFile("C:\Documents and
Settings\kartheek\Desktop\Dummy.txt",1)
var1=f.ReadLine
k=1
var2=split(var1,",")
datatable.AddSheet("dummy")
datatable.GetSheet("dummy").AddParameter "country",""
datatable.GetSheet("dummy").AddParameter "number1",""
For i = 0 to ubound(var2)
datatable.GetSheet("dummy").SetCurrentRow(k)
If isnumeric(var2(i)) Then
datatable.GetSheet("dummy").GetParameter("number1").Value=var2(i)
k=k+1
else
datatable.GetSheet("dummy").GetParameter("country").Value=var2(i)
End If
Next
Is This Answer Correct ? | 0 Yes | 0 No |
Can you expect major bugs in Net banking Application?
what the difference between shared repository and per action repository?
How to use parameterization in qtp?
What is meant by Step Generator in Qtp How is it used? pls gimme in detail
How many add-ins comes by default with quicktest professional (qtp)?
How u do the back end testing in QTP?
How u will open the build automatically in QTP except using Systemutil.run command
How does quicktest professional (qtp) identifies the object in the application?
what type of run time errors you get while you ar edoing rpg program?
in my database haveing 3X3 (manas having 3 rows 3 colums) i want to test only (2nd row 3colum) bit how to test either script or any automation plz explain? (Chandana)
what is review
how can we retrieve ten rows from the data table using loop concept?