If Open(1,'c:\temp\envars.bat') = 0

$envvar = SubStr(Lcase(ReadLine(1)),5)

While @ERROR = 0

???????????????????????

$envvar = SubStr(Lcase(ReadLine(1)),5)

Loop

Close(1)

EndIf

dim $varArray
$ = open(1,"yourfile")
$curLine = readline(1)
while @error = 0
   redim preserve $varArray[ubound($varArray)+1]
   $val = split($curLine,'=')[1]
   $varArray[ubound($varArray)] = $val
   $curLine = readline(1)
loop
$ = close(1)

for each $var in $varArray
   ? $var
next

Quote:

---

Where does this file come from - is it generated by you?

---

Quote:

---

Why are you using a BAT file to set environment vars?

---

Quote:

---

Is there any reason you can not use some other format of file to hold your variable values?

---

Quote:

---

Why are you trying to parse the BAT file in stead of just referencing the environment variable directly?

---

Quote:

---

Read the manual.

---

Now, Les, how do you think I managed to get this far?

Quote:

---

Why would you even have to use the %var% when you could use $var?

---

Quote:

---

How do you need to use these variables. here's a little snippet that will store each line of the text file (after the '=') into an array.Code:

---

dim $varArray
$ = open(1,"yourfile")
$curLine = readline(1)
while @error = 0
   redim preserve $varArray[ubound($varArray)+1]
   $val = split($curLine,'=')[1]
   $varArray[ubound($varArray)] = $val
   $curLine = readline(1)
loop
$ = close(1)

for each $var in $varArray
   ? $var
next

---

---

Thanks, MacieP, you've jump-started my brain.

I need to get the variable names, in addition to the values. The names are static; the values are dynamic. I suppose I can do this by splitting the READLINE to the left and the right of the '='. I'm going to go experiment with that right now. Then there's the problem that one of the values is an LDAP address, which contains several '=' signs.

$ = open(1,"c:\blah.txt")
$curLine = readline(1)
while @error = 0
   $firstEqualPos = instr($curLine, '=')
   $varName = substr($curLine,1,$firstEqualPos-1)
   $val = '"' + substr($curLine,$firstEqualPos+1) + '"'
   $ = execute("$$" + $varName + "=" + $val)
   $curLine = readline(1)
loop
$ = close(1)

Break On

	If Open(1,'c:\temp\envars.bat') = 0

		$raw_line = Trim(SubStr(Lcase(ReadLine(1)),5))

			While @ERROR = 0

				$var_name = ''
				$var_value = ''


				;provide special handling for LDAP path
				If InStr($raw_line,'CompPath')
					For Each $element in Split($raw_line,'CompPath' + Chr(61))
						$var_name = 'CompPath'
						$var_value = $element
					Next
					GoTo SET_ENVVAR
				EndIf

				For Each $element in Split($raw_line,Chr(61))
					Select
						Case $var_name = '' $var_name = $element
						Case $var_value = '' $var_value = $element
					EndSelect
				Next

				:SET_ENVVAR
				? $var_name + Chr(61) + $var_value
				$var_name = $var_value

				$raw_line = Trim(SubStr(Lcase(ReadLine(1)),5))

			Loop

		Close(1)

	EndIf

? '___________________________________________________________________'

@CRLF

? '$$sitecode='$sitecode
? '$$oldcompname='$oldcompname

Get $

Return

Execute('$$' + $var_name '=' $var_value)

Break On

	If Open(1,'c:\temp\envars.bat') = 0

		$raw_line = Trim(SubStr(Lcase(ReadLine(1)),5))

			While @ERROR = 0

				$var_name = ''
				$var_value = ''

				;provide special handling for LDAP path
				If InStr($raw_line,'CompPath')
					For Each $element in Split($raw_line,'CompPath' + Chr(61))
						$var_name = 'CompPath'
						$var_value = $element
					Next
					GoTo SET_VAR
				EndIf

				For Each $element in Split($raw_line,Chr(61))
					Select
						Case $var_name = '' $var_name = $element
						Case $var_value = '' $var_value = $element
					EndSelect
				Next

				:SET_VAR
				? '$$' + $var_name + '=' + $var_value
				Execute('$$' + $var_name + '=' + $var_value)

				$raw_line = Trim(SubStr(Lcase(ReadLine(1)),5))

			Loop

		Close(1)

	EndIf

? '___________________________________________________________________'

@CRLF

? '$$sitecode=' + $sitecode
? '$$oldcompname=' + $oldcompname

Get $

Return

$Rc = Execute( ‘$$X = ’ + @USERID )

Quote:

---

i'm confused on what you're trying to do here. Can you show a portion of the file you are reading too?

---

set AutoDeploy_Process_Type=Attended Network-based Migration
SET TIMEZONE=003
SET DAYS_TO_RETAIN_FULL_WORKSTATION_BACKUP=30
Set DISTRIBUTION_MEDIUM=Network
SET SERIALNUM=7GCXZ01
SET MACHINETYPE=COMPUTERS-XP
set CompPath=CN=7GCXZ01,OU=Outlook Mail Client,OU=Employees,OU=CORP,DC=CORP1,DC=CORP,DC=COM