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

6 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
---DGI972---
Gilles LAURENT a émis l'idée suivante :
"---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.


Super comme d'ab :-)

Je suis curieux de s'avoir combien de VBScript vous avez en Stock et
comment faites vous pour les classer pour pouvoir les retrouver selon
le thème abordé ???

Merci encore
DGI972


Avatar
---DGI972---
---DGI972--- avait écrit le 30/10/2006 :
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


Il n'a t-il pas de moyen de le faire tourner PowerShell sous w2k pro et
serveur ?




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

| Super comme d'ab :-)

Merci ;-)

| Je suis curieux de s'avoir combien de VBScript vous avez en Stock et
| comment faites vous pour les classer pour pouvoir les retrouver selon
| le thème abordé ???

Les scripts postés dans ce newsgroup sont créés "from scratch" :-)

--
Gilles LAURENT
http://glsft.free.fr
Avatar
Gilles LAURENT
"Gilles LAURENT" a écrit dans le message de
news:uTcysQA$

La version PowerShell ;-)

--- Coupez ici : makeList.ps1 ---

$j=gc("ljmar.txt");$q=gc("lqmar.txt");[regex]::match($j,"^.*"+`
$q[$q.count-1]+" (.*)M.*$").groups[1].value.trim().split()

--- Coupez ici : makeList.ps1 ---

--
Gilles LAURENT
http://glsft.free.fr
Avatar
---DGI972---
"Gilles LAURENT" a écrit dans le message de
news:uTcysQA$

La version PowerShell ;-)

--- Coupez ici : makeList.ps1 ---

$j=gc("ljmar.txt");$q=gc("lqmar.txt");[regex]::match($j,"^.*"+`
$q[$q.count-1]+" (.*)M.*$").groups[1].value.trim().split()

--- Coupez ici : makeList.ps1 ---


merci gilles, comme ci je ne galère pas assez avec le VBScript :-?
Mon parc est trop vieux (Nt4 2000).

Bon week-end et merci encore
DGI972

NB: La version multi environnement fonctionne pour GUA.

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

| merci gilles, comme ci je ne galère pas assez avec le VBScript :-?

Hé hé ;-)

| Mon parc est trop vieux (Nt4 2000).

PowerShell vous rendra déjà beaucoup de service en étant uniquement
installé sur le poste de l'administrateur (XP SP2 ou Windows 2003 SP1) !

| NB: La version multi environnement fonctionne pour GUA.

Super !
N'hésitez pas à me recontacter offline.

--
Gilles LAURENT
http://glsft.free.fr
1 2