Interested to Buy Any Domain ? << Click Here >> for more details...
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.
- 5 Answers
- 11587 Views
- Semantic Space, I also Faced
- E-Mail Answers
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 |
What are the types of object repositories? Which one is you are using?
How do you start automating/ writing your QTP scripts ?
what is retesting?
In VSS, HoW the documents send to local folder? copy paste or any other? plz explain about VSS TOOL kit?
I m new to QTP? Is it necessary to know VB for learning QTP for Automation? Can I understand QTP excellently Without practical automation?
What is the synchronization point in qtp?
What are the advantages of a Hybrid framework?
is it possible to add sheets to excel at runtime
what is the difference between Automation object model(AOM) and test object model(TOM)
we have 10 more actions in our test and we are using exit action command to come out from the action if any error s occured.In action 1 if any error occurs control is moving to second action but if we get error in second action exitaction is throwing general run error. Please give a idea to overcome .
How to Run a Test using QTP?
How to add multiple values in rows, under a single column of a run time datatable?
WinRunner 
