how to use textfile for taking value for parametrization
instead of datatable or global sheet
Answers were Sorted based on User's Feedback
Answer / chaitu
Hi Sunitha
u r not Correct!
Username Password
chaitu mercury
vamci mercury
This is Actually Procedures
Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = fso.OpentextFile("Path of the file")
While AtendoftheLine <> 0
f = fs.ReadLine
x = split(f," ")
Msgbox x(0)
Msgbox x(1)
Browser(Browser).Page(Page).WebEdit(username).Set x(0)
Browser(Browser).Page(Page).WebEdit(Passwrod).Set x(1)
wend
i think its working try this.........
Is This Answer Correct ? | 2 Yes | 0 No |
Answer / cnu
Dim Objfso, Objfs,f,x
Set Objfso = CreateObject("Scripting.FileSystemObject")
Set Objfs = Objfso.Opentextfile("E:\textfile.txt")
Do until objfs.AtEndofStream <>0
f = objfs.readline
x = Split(f," ")
SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
Dialog("Login").WinEdit("Agent Name:").Set x(0)
Dialog("Login").WinEdit("Password:").Set x(1)
Dialog("Login").WinButton("OK").Click
wait(10)
Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"
Loop
objfs.Close
Set objfs = Nothing
Set objfso = Nothing
Is This Answer Correct ? | 1 Yes | 0 No |
Answer / sunitha s
open notepad enter the following:
name (press tab)mark
ram (presstab)45
priya(press tab) 56
save the file as .txt
open the tool:
right click in the first cell and select import file
select the saved notepad file
now the entered values have been populated in the datatable
Is This Answer Correct ? | 1 Yes | 1 No |
How to write QTP script to exit from loop? suppose I am using parametize functionality and in data table there is 3 password corresponding 3 username and second pasword is wrong. Now I want to exit after completion of second iteration and continue with third iteration.
how to write a program to accept names and marks of 10 students from the user and display the names and markes of only the passed students. Marks greater than or equal to 35 is considered as pass.
how to manage mlng timer because they don't explain what's it's function?
write the vbscript code to print the following pattern :- 1 + (1 + 2) +(1+2+3).....
can everyone explain this code Private Sub DrawRect(rectSource As RECT, lngColour As Long) Line (rectSource.Left, rectSource.Top)-(rectSource.Left, rectSource.Bottom), lngColour Line (rectSource.Left, rectSource.Top)- (rectSource.Right, rectSource.Top), lngColour Line (rectSource.Right, rectSource.Bottom)- (rectSource.Right, rectSource.Top), lngColour Line (rectSource.Right, rectSource.Bottom)- (rectSource.Left, rectSource.Bottom), lngColour End Sub
Hi, My name is satish kumar dega I am learing QTP I have one doubt. I need to count the radio buttons in a particular page. In QTP how to write descriptive progming and how I will get all the radiobuttons count.In a paricular page having two WebRadioGroups under each group having 3 radiobuttons.I need to count all the radio buttons could you plz help me regarding this one
How to Check if a string is alphanumeric or not using VB Script
How to store the iterations value in some variable/ in excel? Dim objExcel, ObjFolder, objPath, objWorkbook, objSheet, ObjFSo, ObjFolderName, strExcelPath Const xlExcel7 = 39 ObjFolderName = "Testing" & Hour(time()) & Minute(time()) &Second(time()) objPath = "D:\" strExcelPath = objPath & ObjFolderName & "\testing.xls" Set ObjFSo = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.CreateFolder(objPath & ObjFolderName) On Error Resume Next Set objExcel = CreateObject("Excel.Application") If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Excel application not found." Wscript.Quit End If On Error GoTo 0 Set objWorkbook = objExcel.Workbooks.Add() Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) Dim arr1, arr2, arr3 Set outputLines = CreateObject ("System.Collections.ArrayList") arr1 = 123arr2 = 99 arr3 = 10 outputLines.Add arr1 outputLines.Add arr2 outputLines.Add arr3 outputLines.Sort() For Each outputLine in outputLines WScript.Echo outputLine ' how to store this value in excel/ variable? Next objExcel.ActiveWorkbook.SaveAs strExcelPath, xlExcel7 objExcel.ActiveWorkbook.Close objExcel.Application.Quit This above code is working fine but the qs is is there any way to store the sort data in variables / in the excel and how?
display 1 to 9 in a 3*3 matrix in vbscript
what is the full form of dim?
how to use the GetTickCount() properly and what is that procedure for?
In QTP one function can return more than one value?