Función de ENVIRON$

Propósito:

Para permitir que el usuario recupere la secuencia especificada del ambiente de la tabla del ambiente.

Sintaxis:

v$=ENVIRON$(parmid)
v$=ENVIRON$(nthparm)

Comentarios:

parmid es una expresión válida de la secuencia que contiene el parámetro para buscar.

nthparm es una expresión númerica entera en la gama de 1 a 255.

Si se utiliza una discusión de la secuencia, ENVIRON$ devuelve una secuencia que contiene el texto después dparmid= de la tabla de cadena del ambiente.

Si parmid no se encuentra, entonces retorna una cadena nula.

Si se utiliza una discusión numérica, ENVIRON$ vuelve una secuencia que contiene el nth parámetro de la tabla de cadena del ambiente.

Si no hay nth parámetro, después se vuelve una cadena nula.

La función de ENVIRON$ distingue entre la mayúscula y minúscula.

Ejemplos:

Las líneas siguientes:

ENVIRON "PATH=A:\SALES; A:\ACOUNTING; B:\MKT:" 'Create entry
PRINT ENVIRON$("PATH")                          'Print entr

imprimirá la secuencia siguiente:

A:\SALES; A:\ACCOUNTING; B:\MKT

La línea siguiente imprimirá la primera secuencia en el ambiente:

PRINT ENVIRON$(1)

El programa siguiente graba la tabla de cadena del ambiente en una serie para poderlo modificarse para un proceso del niño??. Después de que el proceso del niño termine, se restaura el ambiente.

10 DIM ENVTBL$(10)
20 NPARMS= 1 
30 WHILE LEN(ENVIRON$(NPARMS))>0
40 ENVTBL$ (NPARMS) = ENVIRON$(NPARMS)
50 NPARMS = NPARMS + 1
60 WEND
70 NPARMS = NPARMS-1 
72 WHILE LEN(ENVIRON$(1))>0
73 A$=MID$(ENVIRON$(1), 1, INSTR (ENVIRON$(1), "="))
74 ENVIRON A$+";" 
75 WEND
90 ENVIRON "MYCHILDPARM1=SORT BY NAME"
100 ENVIRON "MYCHILDPARM2=LIST BY NAME"
.
.
.
1000 SHELL "MYCHILD"'RUNS "MYCHILD.EXE"
1002 WHILE LEN(ENVIRON$(1))>0
1003 A$=MID$(ENVIRON$(1), 1, INSTR(ENVIRON$ (1), "="))
1004 ENVIRON A$+";" 
1005 WEND
1010 FOR I=1 TO NPARMS
1020 ENVIRON ENVTBL$(I)
1030 NEXT I
.
.
.

La declaración DIM en la línea 10 asume no más de 10 parámetros serán alcanzados.

En la línea 20, el número inicial de parámetros se establece como 1.

En las líneas 30 a 70, una serie de declaraciones se utiliza para ajustar y para corregir  los números del parámetro.

La línea 71 suprime el actual ambiente.

Las líneas 72 a 80 crean un nuevo ambiente. La línea 74 suprime la secuencia.

Las líneas 80 a 100 almacenan el nuevo ambiente.

Las líneas 1000 a 1030 repiten el procedimiento suprimiendo el actual ambiente y restauran los parámetros establecidos en la primera parte del programa.

1