Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 0 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 0 Invité :: 1 Moteur de recherche

Aucun

Le record du nombre d'utilisateurs en ligne est de 21 le Jeu 17 Oct 2013, 13:40
Derniers sujets
Flux RSS



Flag Counter
Partenaires

BOUCLE MYFOR DE RECHERCHE DE CORRESPONDANCE DANS 2 LISTES

Voir le sujet précédent Voir le sujet suivant Aller en bas

BOUCLE MYFOR DE RECHERCHE DE CORRESPONDANCE DANS 2 LISTES

Message par Sachadee le 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]
avatar
Sachadee
Admin
Admin

Mensagens : 591
Data de inscrição : 04/06/2013

http://bbat.forumeiro.com

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum