Object: ReleaseEnvServer Object
Returns a two-dimensional variant array of releases on the current machine.
ReleaseEnvServer.GetInstalledReleases()
None.
Variant array contains a header row of four strings. Each subsequent row lists string values for each installed release. For example, if two releases are installed on the machine the variant array is:
COM_VERSION |
SDD_HOME |
SDD_PLATFORM |
SDD_VERSION |
9 |
C:\MentorGraphics\EEVX.1\SDD_HOME |
win32 |
EEVX.1 |
3 |
C:\MentorGraphics\PADSProVX.1\SDD_HOME |
win32 |
PADSProVX.1 |
Dim installedReleases
installedReleases = ReleaseEnvServer.GetInstalledReleases
WriteReleaseInformationFile(installedReleases)
...
Sub WriteReleaseInformationFile(arrResults)
' This function wraps each array element in quotes.
' Each string token is followed by a comma (,).
' Each “row” adds a newline.
' The str is output to a text file.
'
Dim str: str = ""
Dim i,j
For i = 0 To UBound(arrResults,1)
For j = 0 To UBound(arrResults,2)
str = str & """" & arrResults(i, j) & """" & ","
Next
str = str & vbCrLf
Next
Call WriteTextToFile(textFile, str)
End SubThe resulting textfile:
"COM_VERSION","SDD_HOME","SDD_PLATFORM","SDD_VERSION",
"9","C:\MentorGraphics\EEVX.1\SDD_HOME","win32","EEVX.1",
“3”,“C:\MentorGraphics\PADSProVX.1\SDD_HOME”,”win32”,”PADSProVX.1”,