Creating a variable list to use throughout my scripts

[mv8167]

I have been trying a few different way to create and use a list of variables throught my tests and scripts. I must be doing something wrong as the variables disapear as the Library is left.

Currently, from my Test script, I call a function as below:

Code:

Public Function ImageAccessVariableList ()

Set objQTPApp  = CreateObject("QuickTest.Application")
Set objQTPLibraries = objQTPApp.Test.Settings.Resources.Libraries
If objQTPLibraries.Find("O:\QTP Tests\Objec Repository\ImageAccessVariableList.txt") <> -1 Then
    objQTPLibraries.Remove "O:\QTP Tests\Objec Repository\ImageAccessVariableList.txt"
    Reporter.ReportEvent micFail, "Image Access Variable List"& DataTable.GlobalSheet.GetCurrentRow, "The 'ImageAccessVariableList.txt' file was Not found.")
    ExitTestIteration
End If

End Function

What should i change?

[mv8167]

I tried the following, also with no luck.
(can i even set my variables from a Function call?

Code:

Public Function ImageAccessVariableList ()

'for "O:\QTP Tests\Objec Repository\ImageAccessVariableList.vbs"

Set objQTPApp  = CreateObject("QuickTest.Application")
objQTPApp.Launch
objQTPApp.Visible = True
Set objQTPLibraries = objQTPApp.Test.Settings.Resources.Libraries
'objQTPLibraries.RemoveAll

VariableList = "O:\QTP Tests\Objec Repository\ImageAccessVariableList.txt"

If objQTPLibraries.Find(VariableList) <> -1 Then
    objQTPLibraries.RemoveAll
    Reporter.ReportEvent micFail, "Variable List", "The ImageAccessVariableList.txt file was Not found."
    ExitTestIteration
End If

objQTPLibraries.Add (VariableList)
'objQTPLibraries.Add "D:\test2.vbs"

Reporter.ReportEvent micPass, "Variable List", "The ImageAccessVariableList.txt file was found."

Set objQTPApp = Nothing

End Function

[Rodrigo Carvalho]

Not sure if i undestand the issue you're facing.. but, if you want to access variables stored externally to the test you can use a librarie (qfl) and declare the variables you need to use as public and associate the lib to the test, example:

'CONSTANTS FILE

'Creation Date: 07/02/2012
'Description: It Contains the path where the data source is located
Public Const DATA_SOURCE_PATH = "C:\Automation\DataSource\DataSource.xls"
Public Const IMPORT_DATA_SOURCE = True

'<<<<<<<<<<<< DATA MIGRATION >>>>>>>>>>>>>>>>

Code:

Public Const DATA_MIGRATION_FILE_PATH = "C:\Automatizacion\PIB\DataMigration\"
Public Const TAB_BALANCE = "hubpib.Inquire is missing"
    Public Const TAB_BALANCE_ACCOUNT_SUMMARY = "hubpib.Inquire is missing"
    Public Const TAB_BALANCE_MY_TRANSFERS_OTHER_BANKS = "My transfers to other banks"
    Public Const TAB_BALANCE_SPEI_OPERATION = "SPEI Operations"

[rajpes]

Code:

'*HAPPY B'DAY LORENA*
VariableList = "O:\QTP Tests\Objec Repository\ImageAccessVariableList.txt"
Set objQTPApp = CreateObject("QuickTest.Application")
objQTPApp.Launch
objQTPApp.Visible = True
Set objQTPLibraries = objQTPApp.Test.Settings.Resources.Libraries
If objQTPLibraries.Find(VariableList) <> -1 Then
objQTPLibraries.RemoveAll
End if
objQTPLibraries.Add (VariableList)
Reporter.ReportEvent micPass, "Variable List", "The ImageAccessVariableList.txt is freshly attached"
Set objQTPApp = Nothing

[mv8167]

Thx guys for your help. I will try both ideas.

Where do I place the code? in a function library?

Rajpes, thx for the B-Day wish. How did you know.? ;-)

[rajpes]

somehow i came to know

You are creating instance of qtp app, so you cant put that in a function library.

[mv8167]

I added the code to a function library, but when i return to the Test script, the values in my txt file disapear.

objQTPLibraries.Add (VariableList) -- This code gives me a Run Error of "This operation cannot be preformed durring a run session."

[mv8167]

I went to Setup -> Resources sand added my vbs file

and, ,Itried:

Code:

Public Function ImageAccessVariableList ()
ExecuteFile  "O:\QTP Tests\QTPInputData\ImageAccessVariableList.vbs"
End function

But none of my variables get loaded into my QTP variable list.

thoughts?

[mv8167]

Rajpes,

Sorry, i just learned your meaning of "instance" of QTP.

How do I then run this instance of QTP? I was thinking of just adding my variable list to my test via File -> Settings -> Resources -> [+]

but from what I understand, I must start QTP using the code provided before the test runs?

If so, then it is not possible to load a variable list at the start of a test after QTP has been running?

thx for your advise.

[inborntester]

this should work. what do you meant by QTP variable list? can you share ImageAccessVariableList.vbs file.