Little Script UNIX ==> A Passer sous Windows

Version imprimable

:oops:

Aidez moi siou plait
je doit faire une concatenation conditionnée de fichiers sous WIndows

(Sous UNIX j'ai aucun pB pour faire ce genre de manip mais sous windows , je métrise pas :cry: )

En résumé : le synoptique est le suivant :

Code:

1
2
3
4
5
6
7
8
9
pour chaque fichiers de Type PRD****** &#40;**** = Un numero&#41;
faire    
         nnnnnn = Noméro du ficher PRD courant   
         Si Présence du fichier FAC&#123;nnnnn&#125; 
         Alors
                  Ajoute PRD&#123;nnnnnn&#125; à PRDTOTAL
                  Ajoute FAC&#123;nnnnnn&#125; à FACTOTAL
         Fin Si
Fin Pour

Sous UNIX ça peut donner un truc comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/bin/ksh

# -------------------------------------------------
# -- Pour l'ensemble des fichiers de Type PRD&#123;nnnnn&#125;
# -------------------------------------------------
for LE_PRD in PRD&#91;0-9&#93;&#91;0-9&#93;&#91;0-9&#93;&#91;0-9&#93;&#91;0-9&#93;
do
     NUMERO=`echo "$LE_PRD" | cut -c 4-8`
     echo $LE_PRD $NUMERO
     # ---------------------------------------------
     # -- Si Le Fichier FAC de meme numero que PRD est Present
     # -- Alors J'ajoute le contenu du PRD courant Dans PRDTOTAL
     # --       J'ajoute le contenu de FAC courant Dans FACTOTAL
     # ---------------------------------------------
     if &#91; -f FAC$&#123;NUMERO&#125; &#93;
     then
         echo $NUMERO
         cat $LE_PRD >> PRDTOTAL
         cat FAC$&#123;NUMERO&#125; >> FACTOTAL
     fi
done

Comment faire ça sous Windows :?:

Merci pour aide :wink:

Tu télécharge ActivePerl et tu fais :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 # ! /usr/bin/perl use strict; # use warnings; for my $filePRD ( glob("PRD*") ) { my $num = substr $filePRD, 3, 5; print $filePRD, $num, "\n"; if( -e "./FAC$num") { print $num, "\n"; cat( "./$filePRD", "./PRDTOTAL"); cat( "./FAC$num", "./FACTOTAL"); } } sub cat ($$) { open IN, '<:raw', $_[0]; open OUT, '>>:raw', $_[1]; local $/; print OUT <IN>; }
L'avantage, c'est que ça fonctionnera aussi pour Linux...
(si je n'ai pas fait d'erreurs, mais ça fait longtemps que je n'ai plus codé)

EDIT : Code corrigé et testé. :D

--
Jedaï

12/11/2004, 01h53
alveric

Ca fait bien longtemps que je n'ai pas codé de .BAT ( :roll: ), mais il me semble que remplacer tes "cat" par du "type" devrait aider. Par contre, les "cut", je sais pas...
12/11/2004, 02h26
Luc Hermitte

Si tu as l'option d'installer des outils *nix, cela serait encore plus simple.

(on ne devrait pas plutôt être dans le forum dev. windows ?)
EDIT Gnux: si voilà qui est fait merci :D
12/11/2004, 14h21
Laurent Dardenne

Salut, je peux te proposer un début de solutions mais il me manque qq info :
Quelles version de Windows ?
Peux-tu installer des outils additionnelle sur les machines cible ?
Existe-t-il ou existera-t-il des fichiers de type PRD***** contenant des lettres ?

Cela semble réalisable mais les scripts NT ne permettent pas l'utilisation des expressions réguliéres.

Code:

for LE_PRD in PRD[0-9][0-9][0-9][0-9][0-9]

Perl est trés bonne solution si on connait le Perl :wink:
15/11/2004, 17h36
argoet

Merci à Tous Pour vos réponses :

Effectivement : en telechargeant les Outils POSX : ça fonctionne à merveille :wink: :wink: :lol: :lol:

Perl : je connais pas : mais jvé voir ça !!!