Discussion :

[lucifer350]

Bonjour,
je voudrais lire un fichier txt ligne par ligne de ce type :


I:\35\00-Cartes;e:\foncier35\00-Cartes
I:\35\000-LOI_CARR;e:\foncier35\000-LOI_CARR
I:\35\ACIGNE;e:\foncier35\ACIGNE
I:\35\AMANLIS;e:\foncier35\AMANLIS
I:\35\ANDOUILLE NEUVILLE;e:\foncier35\ANDOUILLE NEUVILLE
I:\35\ANTRAIN;e:\foncier35\ANTRAIN
I:\35\ARBRISSEL;e:\foncier35\ARBRISSEL
I:\35\ARGENTRE DU PLESSIS;e:\foncier35\ARGENTRE DU PLESSIS
I:\35\BAGUER MORVAN;e:\foncier35\BAGUER MORVAN

mettre dans la variable A "I:\35\00-Cartes"
mettre dans la variable B "e:\foncier35\00-Cartes"
la sépartion des deux variables est le point virgule
et copier le répertoire et son contenu de variable A dans Le chemin de la Variable B

Merci

[sachadee]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
@echo off
setlocal enabledelayedexpansion

for /f "tokens=1,2 delims=;" %%a in ('type test.txt') do (
   set $a="%%a"
   set $b="%%b\"
   echo xcopy /s !$a! !$b!)
pause

J'ai mis un echo avant le xcopy pour que tu puisses tester la sortie.
Si c'est OK enlève le.

[hackoofr]

C'est la même chose que Sacha , mais en appelant la fonction XCopyme avec deux paramètres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
@echo off
setlocal enabledelayedexpansion

for /f "tokens=1,2 delims=;" %%a in ('type Test.txt') do (
   set $a="%%a"
   set $b="%%b\"
   Call :XCopyMe "!$a!" "!$b!")
pause

:XCopyMe
Xcopy  /I /A /D /Y /S /M /J /C %~1 %~2

[sachadee]

@Hackoo n'oublie pas la sortie après ta boucle FOR, si tu fait un Call, sinon ça va bugger
et dans ton cas pas besoin de l'expansion retardé ni de créer des variables, je déconseille également de
supprimer les strings sur les arguments envoyés dans le Call

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
echo off
for /f "tokens=1,2 delims=;" %%a in ('type Test.txt') do (
 Call :XCopyMe "%%a" "%%b")
 EXIT/B
pause

:XCopyMe
Xcopy  /I /A /D /Y /S /M /J /C %1 %2

[hackoofr]

@Hackoo n'oublie pas la sortie après ta boucle FOR si tu fait un Call sinon ça va beuger et dans ton cas pas besoin de l'expansion retardé ni de créer des variables

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
echo off
for /f "tokens=1,2 delims=;" %%a in ('type Test.txt') do (
 Call :XCopyMe "%%a" "%%b")
 EXIT/B
pause

:XCopyMe
Xcopy  /I /A /D /Y /S /M /J /C %~1 %~2

Sacha et de vos remarques constructives, car ça me premet de me progresser petit à petit grâce à vous +1
C'était un exercice pour moi pour appliquer une fonction avec paramètres

[lucifer350]

Bonjour,
je viens de tester le PRG1 Ça marche très bien
du coup je souhaite les déplacer au lieux de les copier
merci

[hackoofr]

J'ai ajouté la création d'un LogFile pour vous faciliter la tâche en "débuggant" ton script

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
@echo off
Title Copie de Sauvegarde
mode con cols=67 lines=3 & Color 9B
Set LogFile=XcopyLog.txt
If Exist %LogFile% Del %LogFile%
echo Veuillez patienter la copie de sauvegarde est en cours . . . .
for /f "tokens=1,2 delims=;" %%a in ('type Test4.txt') do ( Call :XCopyMe "%%a" "%%b" >> %LogFile%)
pause
Start %LogFile%
EXIT /B

:XCopyMe
echo Xcopy /I /A /D /Y /S /M /J /C /F %1 %2

[sachadee]

du coup je souhaite les déplacer au lieux de les copier

Rajoute un DEL et un RD en sortie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
@echo off
setlocal enabledelayedexpansion

for /f "tokens=1,2 delims=;" %%a in ('type test.txt') do (
   set $a="%%a"
   set $b="%%b\"
   xcopy /s !$a! !$b!
   del /s/q !$a!\*.*
   rd /s !$a!)
pause