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
- 11375 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 IS DIFFERENCE B/W QC 9.2 AND QC 10.0
What are the file extensions for per-action, shared object repository files and what is the extension for library files?
Diff b/w Health care domain and Banking Domain?
Hi, I have a login page. To login in that page I need to have a valid username and password, which is stored in database. I imported that table to my DataTable in QTP (Global sheet). Now I need to write a code in qtp so that I can login only with valid username and data. my condition is : I want to get username and password from inputbox(which i did) and click on login button- which should verify the datatable for username and password and if value is present only then lofin else stop the testing. DataTable contains columns : LoginName and Password Code: Rowcount= DataTable.GetSheet("Global").GetRowCount msgbox "RowCount= " &RowCount,1 CurrentRow= DataTable.SetCurrentRow(1) Do Browser("").Page("").Frame("Frame").WebEdit("ctl10$ct l00$ctl00$UserName$ctl").Set DataTable("LoginName",1) Browser("").Page("").Frame("Frame").WebEdit("ctl10$ct l00$ctl00$Password$ctl").Set DataTable("Password",1) Browser("").Page("").Frame("Frame").Link("Login").Cli ck CurrentRow=CurrentRow+1 Loop Until CurrentRow>Rowcount Can anyone help? Thanks, Priya
what is throw object ?
what is meant by iterative model?What is its working principle?What are its advantages and what are its drawbacks?
what is web application and client server application.is there any difference ?
Howcan you differentiate between Exist statement, Exist property, and Exist method??? How they used???
Actually what is Quality center..is it Test Director or some other tool..Anybody can expalain it in detail..Thanks in advance..
What is test object?
. My application is updating the user information in the application. Every time it is Adding on record in my application and Validating the information like “Record has added successfully”. Which Check point I have to put in this situation? Why?
Hello Guys, Can anybody Explain me about Automation framework?? and how can we prepareAutomation Framework using QTP
WinRunner 
