BOUCLE MYFOR DE RECHERCHE DE CORRESPONDANCE DANS 2 LISTES

par **Sachadee** Sam 15 Juin 2013, 01:16

Un code qui montre la possibilité de stockage d'information dans des listes structurées et leur récuperation grace à des boucles FOR.

Cette boucle MYFOR Recupere la correspondance dans [Liste2] d'une valeur trouvé dans [Liste1]

Avec gestion complete des erreurs et non sensible à la casse. Très bonnes solution pour le stockage d'information dans des listes structurées. On pourrait continuer sur plusieurs niveau en augmentant les boucles.

Imaginons que vous voulez garder des infos sur des marchandises.

On aura la liste mère par exemple PRODUIT : set produit=nom_produit fournisseur prix_achat prix_vente stock

ensuite pour chaque produit une liste correspondante set P1=Tomate TOTO 2 4 1000

en faisant un MYFOR fournisseur --> TOTO

On peut proceder de la meme façon sur 2 fichiers avec les numeros de lignes et/ou de colones commes avec un tableur.

Juste pour montrer qu'avec le batch l'on peut faire des systèmes complexes de gestion, gestion de caisse, gestion de stock, gestion client, gestion vendeur. Et avec très peu de code en comparaison à d'autre langage de programmation.

Le batch ce n'est pas seulement du traitement en lot de fichier. Ca va bien au-delà .

Les limites sont seulement dans nos têtes !

Code:: [code]e:::Par SachaDee :::www.bbat.forumeiros.com :::06-2013 @echo off COLOR 18&CLS&ECHO. :::CHERCHE LA CORESPONDANCE DANS L2 D'UNE VALEUR DEFINI DANS L1 :::UTILISATION MYFOR VALEUR_DE_L1 ---> CORRESPONDANCE DE L2 :::EXAMPLE MYFOR PARIS -> FRANCE ::::DEFINITION DES LISTES SET L1=PARIS ROME ATHENE BERNE BRUXELLE TUNIS BRASILIA KATMANDOU SET L2=FRANCE ITALIE GRECE SUISSE BELGIQUE TUNISIE BRESIL NEPAL :START SET VAL_USER=%1 if [%VAL_USER%]==[] (ECHO VALEUR POSSIBLE = %L1%&ECHO. SET /P VAL_USER=VALEUR DONT ON VA RECHERCHER LA CORRESPONDANCE SET $IT=1 SET $IT_2= setlocal enabledelayedexpansion enableextensions FOR %%A IN (%L1%) DO ( SET $IT_2=1 (IF /i %VAL_USER%==%%A (FOR %%B IN (%L2%) DO ( IF /i !$IT!==!$IT_2! ( ECHO #CORRESPONDANCE# %%A %%B SET COR=%%B) SET /A $IT_2+=1))) SET /A $IT+=1) :END IF NOT DEFINED COR (ECHO VALEUR NON TROUVE # %1 # GOTO EOF) ECHO.&ECHO %COR% ENDLOCAL [/code]