The options 2 and 3 can be the same, you can include my code in QTP
directly, only you'd need to remove the "WScript." and instead of "msgbox"
do
var = GetChioce()
or better
Environment("VAR_NAME") = GetChioce() and you can use this value in any
function in your test.
> Thanks Roman for the help!
>
> Since i am running it from QTP, i have two options:
>
> 1. Calling the following .bat file consisting of the following script:
> =================================================
> @ECHO OFF
> CLS
> :LOOP
> ECHO 1. KTX-4
> ECHO 2. V910
> ECHO 3. VN755
> ECHO 4. SURVEYOR VFT
> ECHO 5. VN301T
> ECHO Q. Quit
> :: SET /P prompts for input and sets the variable
> :: to whatever the user types
> SET Choice=
> SET /P Choice=Please type your selection number and press Enter:
> :: The syntax in the next line extracts the substring
> :: starting at 0 (the beginning) and 1 character long
> IF NOT '%Choice%'=='' SET Choice=%Choice:~0,1%
> ECHO.
> :: /I makes the IF comparison case-insensitive
> IF /I '%Choice%'=='1' GOTO Item1
> IF /I '%Choice%'=='2' GOTO Item2
> IF /I '%Choice%'=='3' GOTO Item3
> IF /I '%Choice%'=='4' GOTO Item4
> IF /I '%Choice%'=='5' GOTO Item5
> IF /I '%Choice%'=='Q' GOTO End
> ECHO "%Choice%" is not valid. Please try again.
> ECHO.
> GOTO Loop
> :Item1
> ECHO Insert commands for Item 1.
> GOTO Again
> :Item2
> ECHO Insert commands for Item 2.
> GOTO Again
> :Item3
> ECHO Insert commands for Item 3.
> GOTO Again
> :Item4
> ECHO Insert commands for Item 4.
> GOTO Again
> :Item5
> ECHO Insert commands for Item 5.
> GOTO Again
> :Again
> PAUSE
> CLS
> GOTO Loop
> :End
> =============================
> 2. Running the script you've provided
> 3. Prompt a user dialog \ Message Box consisting of a list of items
> that the user should select one of them.
> Once selected, the item value can be passed to other QTP functions
>
> I'm aiming for the third option, since i think its the most elegant
> one.
> can you help me on this one?
>
> Thanks again!
>
> On Nov 26, 4:47 pm, "Roman Zilber" <[EMAIL PROTECTED]> wrote:
> > dialog.vbs (if you use teh function in QTP remove "WScript.")
> >
> > Function GetChioce()
> >
> > Dim WshShell
> > Set WshShell = WScript.CreateObject("WScript.Shell")
> > Set oIE = CreateObject("InternetExplorer.Application")
> > oIE.Visible = True
> > oIE.Navigate "C:\dialog.html"
> >
> > Do While oIE.Busy Or (oIE.READYSTATE <> 4)
> > Wscript.Sleep 10
> > Loop
> >
> > Do While oIE.document.getElementById("s1").selectedIndex = 0
> > Wscript.Sleep 10
> > Loop
> >
> > GetChioce = oIE.document.getElementById("s1").selectedIndex
> > oIE.Quit
> > End Function
> >
> > MsgBox GetChioce()
> >
> > dialog.html
> >
> > <select id=s1>
> > <option>Make your choice...
> > <option>1
> > <option>2
> > </select>
> >
> >
> >
> > On Wed, Nov 26, 2008 at 5:47 AM, Lior <[EMAIL PROTECTED]> wrote:
> >
> > > Hello,
> >
> > > I'm trying to display a user dialog with a list of several items.
> > > I need to "force" the user select one of the items, and pass the
> > > selected string \ value selected to a global variable
> >
> > > does anyone have an idea how to implement this one?- Hide quoted text -
> >
> > - Show quoted text -
>
> >
>
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[EMAIL PROTECTED]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
-~----------~----~----~----~------~----~------~--~---
