Vista - Get variable data from function to pass back to main for use.

Issue trying to solve: I have data in a function where I am reading an xml
file and need to pass back up main to use. I started out using an array but
if there is a better way please let me know. The program works just need
data in availiable in main to store in variables. Please note I did not post
xml function of reading data. it works - trying to keep thread some what
clean versus tons of script.

'******main*******
funReadEnvParametersXML strEnvironment 'function to pass in the
environment to pull from the xml file.

Dim TestArray0
Dim TestArray1

TestArray0 =myarray(0) 'this does work since I am not passing data up.
Don't know how to pass array data back up. comes back NULL now.
TestArray1 =myarray(1) 'this does work since I am not passing data up.
Don't know how to pass array data back up.




'------------------------------------------------------function that reads
in xml
Function funReadEnvParametersXML(strEnvironment)

Set xml = GetEnvParametersXML()
Set Environments = xml.getElementsByTagName("Environment")

For Each Environment In Environments
sEnvironmentId=Environment.Attributes.getNamedItem("Id").value
Counter = 0
Set variables = Environment.getElementsByTagName("variable")

numVariables=variables.length -1
ReDim myarray(numVariables)

If (sEnvironmentId = strEnvironment) Then
For i = 0 To variables.length -1
sName=variables(i).Attributes.getNamedItem("name").value

myarray(i) = sName
Next
WScript.Echo "Array 0........... " & myarray(0)
WScript.Echo "Array 1........... " & myarray(1)

'************************
'I have access to the array results here. How do I pas them back up to the
main.
'************************


End If
Next





End Function

On Mar 21, 9:44*am, "Todd Vargo" <tlva...@xxxxxx> wrote:Todd,

Your proposal works, but a better way is to use the Function the way a
function is intended to be used. That is, simply equate the array
result to the name of the function, as in

'************************
'Function has the array here. It is pass back up to the main, thus ...

funReadEnvParametersXML = myarray

'************************

Then in the main body, the function is accessed thus ...

TestArray = funReadEnvParametersXML(strEnvironment)
wsh.echo TestArray(0), TestArray(1)

Tom Lavedas
=========

Big D wrote:butpostYou need to declare myarray() before calling the function to make it a
global array.

Dim myarray()

Todd Vargo wrote:xmlThis simple example should help...

Dim myarr()
foo
Wscript.Echo myarr(0) & "..." & myarr(1)

Function foo()
ReDim myarr(2)
myarr(0) = "abc"
myarr(1) = "xyz"
End Function

--
Todd Vargo
(Post questions to group only. Remove "z" to email personal messages)

T Lavedas wrote:
Todd,

Your proposal works, but a better way is to use the Function the way a
function is intended to be used. That is, simply equate the array
result to the name of the function, as in

'************************
'Function has the array here. It is pass back up to the main, thus ...

funReadEnvParametersXML = myarray

'************************

Then in the main body, the function is accessed thus ...

TestArray = funReadEnvParametersXML(strEnvironment)
wsh.echo TestArray(0), TestArray(1)
=============================

Tom,

Of course, you are right. I was thrown off by the OP's code which led me to
believe the data in the array needed to be separated into multiple variables
at the main level since they were dimmed separately. Thanks again for your
POV.

--
Todd Vargo
(Post questions to group only. Remove "z" to email personal messages)

I implemented per your feedback and have it working but ran into a few other
concerns of what I was doing...so I slightly changed implementation

Removed array and decided to initialize in the function itself by doing the
following.

I tried using the execute statement and maybe it's not the correct way. My
intent was running execute command to set variable. I think I need to
intialalise variable in the main but unsure of how to do.

Still the same goal: need to set variable in function so I can use it in
main.

For Each Environment In Environments
sEnvironmentId=Environment.Attributes.getNamedItem("Id").value
Set variables = Environment.getElementsByTagName("variable")

numVariables=variables.length -1
ReDim myArray(numVariables)

If (sEnvironmentId = strEnvironment) Then
For i = 0 To variables.length -1
sName=variables(i).Attributes.getNamedItem("name").value
sValue=variables(i).Attributes.getNamedItem("value").value

Execute("str" & sName & "=" & sValue)
<--------------------------------Added this line. Get name and value, append
str becuase it's a string. The name is unique. need to set to use in main.
'WScript.Echo strStoresADDomain
Next
End If
Next

"Todd Vargo" <tlvargo@xxxxxx> wrote in message
news:Otp$K5iqJHA.3864@xxxxxx

Big D wrote:othertheappendSorry, I do not follow. It would be better if you post the code that works
and then describe the alterations that you want to make to it.

--
Todd Vargo
(Post questions to group only. Remove "z" to email personal messages)