Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Scripting Microsoft Traitement de 2 listes de repertoire a transferer en FTP

Traitement de 2 listes de repertoire a transferer en FTP

16 réponses
Avatar
---DGI972---
Bonjour, messieurs

Je me suis lancer dans un petit projet de copie journalière de
repertoire sur 1 serveur FTP.
Je me suis constitué 2 listes de répertoire:
1/ LQMAR.txt que je fabrique en faisant un:

ftp 192.168.15.40
user
password
mls MAR*
D:\FTP\MAR\LQMAR.txt
bye
exit

je récupère la liste des derniers répertoires déja copier (car je
traite régulièrement les répertoires copiés et quand j'ai fini,
j'éfface tous les répertoires sauf le dernier)
Le fichier LQMAR.txt contient des noms de répertoire
MAR01261
MAR01262
MAR01263

2/ LJMAR.txt que fabrique en faisant un:

DIR /B /O:N \\SERVERMAR\Jukebox > D:\FTP\MAR\LJMAR.txt
le fichier LJMAR.txt contient des noms de répertoire
MAR01258
MAR01259
MAR01260
MAR01261
MAR01262
MAR01263
MAR01264
MAR01265
MAR01266
MAR01267
MAR01268
MAR01269

Il me faut fabriquer une nouvelle liste FTPMAR.txt qui commencerait à:
MAR01264 (le prochain de la liste déja traité du fichier LQMAR.txt)
jusqu'a MAR01268 (car le MAR01269 est en cours il n'est pas fini).

Avec cette liste je vais pouvoir faire en ligne de commande du ftp pour
copier les répertoires en question.

Merci et bon week-end
DGI972
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Michel Claveau
Bonsoir !

Le plus long, ça a été de comprendre ton message.
Et voilou un petit batch :

@echo off
setlocal

::on récupère le dernier plus un de LQMAR
for /F %%i IN (LQMAR.txt) do set TMP=%%~i
set /A FIN1=%TMP:~-4%+1

::on récupère le dernier moins un de LJMAR
for /F %%i IN (LJMAR.txt) do set TMP=%%~i
set /A FIN2=%TMP:~-4%-1

::on supprime LISTE.txt si présent
if exist LISTE.txt del LISTE.txt

:: création de LISTE.txt
for /L %%i IN (%FIN1%,1,%FIN2%) DO echo MAR0%%i>>LISTE.txt

::et voilà le résultat
type LISTE.txt

endlocal

Cela suppose, bien sûr, que les numéros se suivent, avec un pas de 1,
sans trous.



--
@-salutations

Michel Claveau
Avatar
Jacques Barathon [MS]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:
Bonjour, messieurs


Bonsoir DGI972,

Je n'ai pas la patience de Michel, je ne chercherai donc pas ce soir à
répondre à ton problème, mais peu importe car je suppose que la réponse de
Michel marche pile-poil. Je voulais juste te rappeler que vu le nombre de
scripts d'exploitation que tu sembles faire, tu gagnerais énormément de
temps à travailler avec PowerShell. Oui, je sais, je fais de la pub, mais le
produit est gratuit, il existe maintenant en français, et surtout c'est pour
ton bien que je dis ça. :-)

Bon week-end,
Jacques

Avatar
---DGI972---
Michel Claveau vient de nous annoncer :
Bonsoir !

Le plus long, ça a été de comprendre ton message.
Et voilou un petit batch :

@echo off
setlocal

::on récupère le dernier plus un de LQMAR
for /F %%i IN (LQMAR.txt) do set TMP=%%~i
set /A FIN1=%TMP:~-4%+1

::on récupère le dernier moins un de LJMAR
for /F %%i IN (LJMAR.txt) do set TMP=%%~i
set /A FIN2=%TMP:~-4%-1

::on supprime LISTE.txt si présent
if exist LISTE.txt del LISTE.txt

:: création de LISTE.txt
for /L %%i IN (%FIN1%,1,%FIN2%) DO echo MAR0%%i>>LISTE.txt

::et voilà le résultat
type LISTE.txt

endlocal

Cela suppose, bien sûr, que les numéros se suivent, avec un pas de 1, sans
trous.


Quelques modifications:
@echo off
setlocal

::on récupère le dernier plus un de LQMAR
for /F %%i IN (LQMAR.txt) do set TMP=%%~i
set /A FIN1=%TMP:~-4%+1

::on récupère le dernier moins un de LJMAR
for /F %%i IN (LJMAR.txt) do set TMP=%%~i
set /A FIN2=%TMP:~-4%-1

::on supprime FTPMAR.txt si présent
if exist FTPMAR.txt del FTPMAR.txt

:: création de FTPMAR.txt
for /L %%i IN (%FIN1%,1,%FIN2%) DO echo MAR0%i>>FTPMAR.txt

::et voilà le résultat
type FTPMAR.txt

endlocal
et cela fonctionne exatement comme je le voulais.
merci encore
petite question: MAR0%i>>FTPMAR.txt
Les compteurs arriverons un jour MAR10001.

Avatar
---DGI972---
Jacques Barathon [MS] avait soumis l'idée :
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:
Bonjour, messieurs


Bonsoir DGI972,

Je n'ai pas la patience de Michel, je ne chercherai donc pas ce soir à
répondre à ton problème, mais peu importe car je suppose que la réponse de
Michel marche pile-poil. Je voulais juste te rappeler que vu le nombre de
scripts d'exploitation que tu sembles faire, tu gagnerais énormément de temps
à travailler avec PowerShell. Oui, je sais, je fais de la pub, mais le
produit est gratuit, il existe maintenant en français, et surtout c'est pour
ton bien que je dis ça. :-)

Bon week-end,
Jacques


Bonjour,
Et bien figurerez vous que je viens (a l'instant) d'installer
PowerShell.
J'ai une belle console bleue ou j'ai fait un dir et un get-date.
La console semble être en français mais la doc et en anglais.
Je profite pour vous posez un petite question:
J'ai installé WindowsXP-KB923567-v3-x86-FRA.exe
Faut il aussi installer WindowsXP-KB924386-v4-x86-ENU.exe ?
Cela m'a pas semblé trés clair entre les version, les langues et les RC
1/2.
Merci et bonne fin de soirée


Avatar
MC
Re !

Les compteurs arriverons un jour MAR10001.
Il y a un gros piège, à traiter le "0" (zéro) au début des nombres ;

c'est qu'ils sont ensuite considérés comme étant en octal !!!

Ma suggestion, serait de commencer à 10000, traiter 5 chiffres au lieu
de 4, et supprimer le zéro devenu inutile.

--
@-salutations

Michel Claveau

Avatar
Jacques Barathon [MS]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:
Jacques Barathon [MS] avait soumis l'idée :
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:
Bonjour,

Et bien figurerez vous que je viens (a l'instant) d'installer PowerShell.


Bravo! Et surtout, bienvenue au club. Attention, on devient vite accro,
certains sur le forum US parlent déjà de Post PowerShell Stress Syndrome
(PPSS) ;-)

J'ai une belle console bleue ou j'ai fait un dir et un get-date.
La console semble être en français mais la doc et en anglais.


Oui, la doc est en cours de traduction, je suppose qu'elle sera dispo en
français pour la sortie de la v1. En attendant, l'aide en ligne des
commandes est consultable en français. Et au passage je vous rappelle mon
blog qui peut vous fournir quelques exemples pour démarrer:
http://janel.spaces.live.com/blog.

Je profite pour vous posez un petite question:
J'ai installé WindowsXP-KB923567-v3-x86-FRA.exe
Faut il aussi installer WindowsXP-KB924386-v4-x86-ENU.exe ?
Cela m'a pas semblé trés clair entre les version, les langues et les RC
1/2.


En effet, c'est assez confusionnant, mais vous n'avez rien d'autre à
installer. Pour chaque plateforme (XP/2003, 32/64bits) il existe trois
déclinaisons:

Une version US "native".
Une version localisée (une dizaine de langues disponibles, dont le
français).
Une version MUI (Multilingual User Interface), qui - elle - nécessite
d'abord d'installer la version US.

Jacques


Avatar
MC
Bonjour !

Dans Ponx (et donc dans PeJBshell), il y a une intéressante fonction de
numérotation alphanumérique, destinée à cet usage.

Exemple :
.pyt
fin1=open("LQMAR.txt",'r').readlines()[-1]
fin2=open("LJMAR.txt",'r').readlines()[-2]
r=pxd.alphanumsuite(fin1, fin2, '0123456789')
open("LISTE.txt","w").write('n'.join(r[1:]))

Explications :
log.1 : passage en pmode "Python"
log.2 : récup dernière ligne de LQMAR.txt
log.3 : récup avant-dernière ligne de LJMAR.txt
log.4 : génération de la liste des noms de fichiers
log.5 : écriture de la liste, à partir du second élément

A noter, dans alphanumsuite() :
- la numérotation peut être décimale (ici '0123456789'), octale,
hexa, alphabêtique, ou alphanumérique (par défaut)
- il y a deux paramètres facultatif, à la fin, pour le préfixe et le
suffixe, avec :
0 force le nb de caractères
<0 découverte par la fonction

0 inexistant


Au lieu d'écrire la liste, on peut très bien l'utiliser en copie,
supression, compression, FTP, etc.

--
@-salutations

Michel Claveau

Avatar
Gilles LAURENT
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:
| Bonjour, messieurs

Bonjour,

[...]
| Il me faut fabriquer une nouvelle liste FTPMAR.txt qui commencerait à:
| MAR01264 (le prochain de la liste déja traité du fichier LQMAR.txt)
| jusqu'a MAR01268 (car le MAR01269 est en cours il n'est pas fini).

En complément des réponses précédentes :

+++ Usage
>cscript //nologo makeList.vbs > ftpmar.txt

--- Coupez ici : makeList.vbs ---

set f=createobject("scripting.filesystemobject"):set r=new regexp
j=replace(f.opentextfile("ljmar.txt").readall,vbcrlf,"-")
q=split(f.opentextfile("lqmar.txt").readall,vbcrlf)
r.pattern="^.*"&q(ubound (q)-1)&"-(.*)-M.*$"
for each l in split(r.replace(j,"$1"),"-"):wscript.echo l:next

--- Coupez ici : makeList.vbs ---

Note: Les numéros dans les noms de fichiers n'ont aucune importance.
C'est la position des fichiers dans les listes qui est utilisé pour
fabriquer la liste finale.

--
Gilles LAURENT
http://glsft.free.fr
Avatar
---DGI972---
Jacques Barathon [MS] vient de nous annoncer :
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:
Jacques Barathon [MS] avait soumis l'idée :
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> wrote in message
news:
Bonjour,

Et bien figurerez vous que je viens (a l'instant) d'installer PowerShell.


Bravo! Et surtout, bienvenue au club. Attention, on devient vite accro,
certains sur le forum US parlent déjà de Post PowerShell Stress Syndrome
(PPSS) ;-)

J'ai une belle console bleue ou j'ai fait un dir et un get-date.
La console semble être en français mais la doc et en anglais.


Oui, la doc est en cours de traduction, je suppose qu'elle sera dispo en
français pour la sortie de la v1. En attendant, l'aide en ligne des commandes
est consultable en français. Et au passage je vous rappelle mon blog qui peut
vous fournir quelques exemples pour démarrer:
http://janel.spaces.live.com/blog.

Je profite pour vous posez un petite question:
J'ai installé WindowsXP-KB923567-v3-x86-FRA.exe
Faut il aussi installer WindowsXP-KB924386-v4-x86-ENU.exe ?
Cela m'a pas semblé trés clair entre les version, les langues et les RC
1/2.


En effet, c'est assez confusionnant, mais vous n'avez rien d'autre à
installer. Pour chaque plateforme (XP/2003, 32/64bits) il existe trois
déclinaisons:

Une version US "native".
Une version localisée (une dizaine de langues disponibles, dont le français).
Une version MUI (Multilingual User Interface), qui - elle - nécessite d'abord
d'installer la version US.

Jacques


Pour la PPSS peut-être en 2012, car dans le milieu professionnel ou je
pourrait éventuellement utiliser PowerShell la majorité du Parc
informatique est encore en w95 et NT4.
Je n'ai que 2 serveurs W2k3 et 1 une dizaine de Pc en XP qui ne font
pas partie de la Production.
Dur dur de deployer des scripts en PowerShell de plus,la doc est encore
en anglais, et je commençais a peine a m'amuser avec le VBScript !!!
;-)
Mais par curiosité je vais tenter de m'accrocher et de faire joujou
avec ce nouveau language.

cordialement,
DGI972



Avatar
---DGI972---
Le 27/10/2006, MC a supposé :
Re !

Les compteurs arriverons un jour MAR10001.
Il y a un gros piège, à traiter le "0" (zéro) au début des nombres ; c'est

qu'ils sont ensuite considérés comme étant en octal !!!

Ma suggestion, serait de commencer à 10000, traiter 5 chiffres au lieu de 4,
et supprimer le zéro devenu inutile.


Je n'ai pas la maitrise de la numérotation des répertoires. :'(

merci


1 2