The online community for software testing & quality assurance professionals
 
 
Calendar   Today's Topics
Sponsors:




Lost Password?

Home
BetaSoft
Blogs
Jobs
Training
News
Links
Downloads



Testing Tools >> Seapine QA Wizard

Pages: 1
Rich W.
Veteran


Reged: 03/05/04
Posts: 5815
Loc: West Coast of the East Coast!
Usefull Tips
      #483261 - 05/14/08 01:27 PM

I will post any usefull tips as I run across.

The new RecordRowCount as announced in the update notes is actually "RecordSetRowCount" here is a typical use for it.

db = OpenRecordSet("Name of data sheet")
Var = RecordSetRowCount(db)

It works great!

================================================
"WaitForExists" also works good. Example:

<Lg = Window("Scr Name").EditBox("editbox3").WaitForExists(NNN)
If Lg = "False" then>

Notice it returns either "True" or "False"
I requested an "IfExists" Statement but they said to use this instead.

===============================================
The CheckExists" looks like this now:
<Window("Scr Name").EditBox("editbox3").CheckExists(True, "")>
If the window does not exist the run is terminated. Change the True to False and it gives a warning only.

===============================================
To get data from and object here is one way using the latest version:

<Num = Window("Scr Name").HTMLLink("Data").Property("Inner Text")>

The HTMLLink is the Control type.
===============================================

Than's about it for now.

Good Luck!

Thought for the day: "ARRAYS ARE COOL!"

--------------------
Personal Comment

Success is the ability to go from one failure to another with no loss of enthusiasm.
~ Winston Churchill ~


...Rich Wagner


Post Extras: Print Post   Remind Me!   Notify Moderator  
Rich W.
Veteran


Reged: 03/05/04
Posts: 5815
Loc: West Coast of the East Coast!
Re: Usefull Tips [Re: Rich W.]
      #484500 - 05/20/08 05:10 AM

I discovered that it is possible to synchronize with the IE avatar in the upper righthand corner to know when a process is finished. I use the "control order" parameter since it is different for the active & inactive state.

Perhaps someone can use this.

--------------------
Personal Comment

Success is the ability to go from one failure to another with no loss of enthusiasm.
~ Winston Churchill ~


...Rich Wagner


Post Extras: Print Post   Remind Me!   Notify Moderator  
Rich W.
Veteran


Reged: 03/05/04
Posts: 5815
Loc: West Coast of the East Coast!
Re: Usefull Tips [Re: Rich W.]
      #586665 - 08/20/09 05:00 AM

I recently discovered that it is possible to initiate 2 or more instances of the same datasheet at the same time within one script. It makes it easier to collect and compare data in Excel spreadsheets. For example:

db = OpenRecordSet("Datasheet1")
db1 = OpenRecordSet("Datasheet1")
db2 = OpenRecordSet("Datasheet1")
db3 = OpenRecordSet("Datasheet1")

They all function independently.

--------------------
Personal Comment

Success is the ability to go from one failure to another with no loss of enthusiasm.
~ Winston Churchill ~


...Rich Wagner


Post Extras: Print Post   Remind Me!   Notify Moderator  
Rich W.
Veteran


Reged: 03/05/04
Posts: 5815
Loc: West Coast of the East Coast!
Re: Usefull Tips [Re: Rich W.]
      #586672 - 08/20/09 05:25 AM

Here's a useful little bit of code, at least for me it is.

Say you want to set a dropdown box to a specific item. I use a "Function" to convert a key number to the list item like:
Code:

If num = 1 then
item = "Hello"
Elseif num = 2 then
item = "Goodbye"
End If



This will allow running your main script from a driver spreadsheet(Data-Driven) approach.

Then the variable "item" can be passed to this snipit:

Code:
LBText = Window(Screen).ListBox(LB1).Property("Inner Text")        ' Get ListBox Items
L = Length(LBText) ' Find the lenght of ListBox items list
L = L + 1
L1 = Length(item) ' L1 is the length of the item you want to select
doIt = 0 ' doIt is just a flag
for i = 1 to L ' The "For/Next" loop will compare the item to the item list to see if it is contained within it and sets the "doIt" flag if it finds it.
If i + L1 <= L Then
FndText = Mid(LBText, i, L1)
If FndText = item then
doIt = 1
Exit For
End If
End If
Next
if doIt = 1 Then...



This seems to be an effective way of doing an "Instring" function, which is not available in QAWP. Though the new "Parse" function is also very useful.

I hope this might help someone.

--------------------
Personal Comment

Success is the ability to go from one failure to another with no loss of enthusiasm.
~ Winston Churchill ~


...Rich Wagner


Post Extras: Print Post   Remind Me!   Notify Moderator  
Rich W.
Veteran


Reged: 03/05/04
Posts: 5815
Loc: West Coast of the East Coast!
Re: Usefull Tips [Re: Rich W.]
      #623592 - 04/23/10 05:24 AM

I had an issue where all of my scripts needed a path to be changed requiring me to open each workgroup and change the path in each script for 40 different workgroups. I found a search and replace agent which works great for this purpose. Just point it at the workgroup and put in "*.qawscript" for the "Filename/Filter" and the text to be replaced in the "Find" testbox with the replacement text in the "Replace" textbox and hit "Replace". It works for almost any type file.
The tool is "Textcrawler 1.1.4". It is free and can be downloaded from www.digitalvolcano.co.uk

Enjoy.

--------------------
Personal Comment

Success is the ability to go from one failure to another with no loss of enthusiasm.
~ Winston Churchill ~


...Rich Wagner


Post Extras: Print Post   Remind Me!   Notify Moderator  
Pages: 1



Extra information
0 registered and 0 anonymous users are browsing this forum.

Moderator:  AJ 

Print Topic

Forum Permissions
      You cannot start new topics
      You cannot reply to topics
      HTML is disabled
      UBBCode is enabled

Rating:
Topic views: 5309

Rate this topic

Jump to

Contact Us | Privacy statement SQAForums

Powered by UBB.threads™ 6.5.5