Eh bien en galérant un peu ( et même beaucoup ) j'ai trouvé une solution, elle est dans le script ci-après.
Il y a 2 exemples de recherche / traduction : le premier trouve la dernière valeur de la table et en traduit l'équivalent pour le langage PERL, le second cherche une valeur qui n'existe pas dans la table.
CLS
ECHO OFF
SetLocal EnableDelayedExpansion
SET Oper1=equ
SET Oper2=neq
SET Oper3=lss
SET Oper4=gtr
SET Oper5=leq
SET Oper6=geq
SET OperPerl1=eq
SET OperPerl2=ne
SET OperPerl3=lt
SET OperPerl4=gt
SET OperPerl5=le
SET OperPerl6=ge
CLS
SET ManoZ=0
SET Crit=geq
SET ValRech=%Crit%
for %%Z in (1,2,3,4,5,6) do IF !Oper%%Z! EQU %Crit% SET ManoZ=%%Z
CALL :Affich
SET ManoZ=0
SET Crit=abc
SET ValRech=%Crit%
for %%Z in (1,2,3,4,5,6) do IF !Oper%%Z! EQU %Crit% SET ManoZ=%%Z
CALL :Affich
GOTO :EOF
:Affich
ECHO.
IF %ManoZ% EQU 0 ( ECHO ######## Pas trouve #######) Else ( ECHO ======== C'est Glop ========)
ECHO --- Valeur recherchee --- %ValRech% ---
ECHO --- ManoZ %ManoZ% ---
If %ManoZ% EQU 0 GOTO :NonTrouv
SET PourRech=OperPerl[!ManoZ!]
SET ValTrad=!OperPerl%ManoZ%!
ECHO --- Correspondance %PourRech% --- Valeur traduite %Valtrad% ---
:NonTrouv
ECHO.
PAUSE
EXIT /B