Générer un fichier à partir d'un autre

Version imprimable

Voir 40 message(s) de cette discussion en une page

Après réflexion, je ne comprend pas valeur 1 est bien traité et groupé entre CLE UNIQUE TYPEC et CLE UNIQUE TYPED mais vu qu'il n'en existe aucune il n'y a pas de données. Avec ton exemple, affiche la sortie voulu pour que je comprenne.

Voici une maj pour les clés restantes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
@echo off
setlocal enabledelayedexpansion
 
set source=input.txt
set sortie=output.txt
 
set "spaces=                                                  "
 
set /A cle_unique=1000
 
(
	echo Mon titre
	call :traite_cle_unique
	echo !cle_unique_out!      TITRE LIBRE
	call :traite_cle_unique
	echo !cle_unique_out!      TYPEC
	for /f "usebackq tokens=1,2 delims= " %%a in (`type "%~dp0%source%" ^| findstr /V /C:" "`) do (
		call :traite "%%~a"
		echo !line_out!
	)
	call :traite_cle_unique
	echo !cle_unique_out!      TYPED
	for /f "usebackq tokens=1,2 delims= " %%a in (`type "%~dp0%source%" ^| findstr /C:" "`) do (
		call :traite "%%~a" "%%~b"
		echo !line_out!
	)
)>"%~dp0%sortie%"
 
goto fin
 
:traite_cle_unique
REM Clé unique
set cle_unique_out=0000000000000000%cle_unique%
set cle_unique_out=%cle_unique_out:~-16%
set /A cle_unique+=1
REM Retour à l'envoyeur
goto :eof
 
:traite
REM Récupère les valeurs
set val1=%~1
set val2=%~2
 
call :traite_cle_unique
 
REM Titre
if defined val2 (
	set "titre_out=X001LISTE %val2%%spaces%"
) else (
	set "titre_out=Z001LISTE %val1%%spaces%"
)
set titre_out=%titre_out:~,28%
 
REM Longueur de valeur 1
set "val1_out=!val1!%spaces%"
set val1_out=%val1_out:~,52%
 
REM Longueur de valeur 2
if defined val2 (
	set "val2_out=!val2!%spaces%"
	set val2_out=!val2_out:~,52!
) else (
	set "val2_out=%spaces%"
)
 
REM Crée la ligne de sortie
set line_out=!cle_unique_out!!titre_out!!val1_out!!val2_out!
 
REM Supprime les espaces en trop, à la fin de la ligne de sortie
for /l %%a in (1,1,150) do if "!line_out:~-1!"==" " set line_out=!line_out:~0,-1!
 
REM Retour à l'envoyeur
goto :eof
 
 
:fin
pause

Bonjour,
Avec le script proposé (merci pour les clés additionnelles) et malgré que Valeur1 soit bien présent et renseigné en Input j'obtiens en Output:

Code:

1
2
3
4
5
6
7
8
9
10
11
Mon titre
0000000000001000      TITRE LIBRE
0000000000001001      TYPEC
0000000000001002      TYPED
0000000000001003X001LISTE BBBBBBBB          AAAAAA                                             BBBBBBBB
0000000000001004X001LISTE DDDDDDDD          CCCCCCCCC                                      DDDDDDDD
0000000000001005X001LISTE FFFFFFFF          EEEEEEE                                             FFFFFFFF
0000000000001006X001LISTE SSS               ABCDEFGHIJKLMNOP                               SSS
0000000000001007X001LISTE ZZZZZZ            HHHHHHHHHHHH                                 ZZZZZZ
0000000000001008X001LISTE SSSSSSSS          IIIIIIII                                            SSSSSSSS
0000000000001009X001LISTE GGGGG             JJJJJJJJJJJJJJJJ                                   GGGGG

Ce que je cherche à générer en Output c'est cet exemple, (désolé mais copier/coller ne respecter les colonnes).

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Mon titre
0000000000001000      TITRE LIBRE
0000000000001001      TYPEC
0000000000001002Z001LISTE AAAAAA                   AAAAAA                                              BBBBBBBB
0000000000001003Z001LISTE CCCCCCCCC              CCCCCCCCC                                        DDDDDDDD
0000000000001004Z001LISTE EEEEEEE                   EEEEEEE                                             FFFFFFFF
0000000000001005Z001LISTE ABCDEFGHIJKLMNOP   ABCDEFGHIJKLMNOP                              SSS
0000000000001006Z001LISTE HHHHHHHHHHHH        HHHHHHHHHHHH                                    ZZZZZZ
0000000000001007Z001LISTE IIIIIIII                      IIIIIIII                                                  SSSSSSSS
0000000000001008Z001LISTE JJJJJJJJJJJJJJJJ           JJJJJJJJJJJJJJJJ                                      GGGGG
0000000000001009      TYPED
0000000000001010X001LISTE BBBBBBBB                AAAAAA                                              BBBBBBBB
0000000000001011X001LISTE DDDDDDDD              CCCCCCCCC                                           DDDDDDDD
0000000000001012X001LISTE FFFFFFFF               EEEEEEE                                                FFFFFFFF
0000000000001013X001LISTE SSS                      ABCDEFGHIJKLMNOP                                    SSS
0000000000001014X001LISTE ZZZZZZ                 HHHHHHHHHHHH                                        ZZZZZZ
0000000000001015X001LISTE SSSSSSSS              IIIIIIII                                                  SSSSSSSS
0000000000001016X001LISTE GGGGG                   JJJJJJJJJJJJJJJJ                                         GGGGG

J’espère être clair cette fois ci.
Merci de vos aides.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
@echo off
setlocal enabledelayedexpansion
 
set source=input.txt
set sortie=output.txt
 
set "spaces=                                                  "
 
set /A cle_unique=1000
 
(
	echo Mon titre
	call :traite_cle_unique
	echo !cle_unique_out!      TITRE LIBRE
	call :traite_cle_unique
	echo !cle_unique_out!      TYPEC
	for /f "usebackq tokens=1,2 delims= " %%a in (`type "%~dp0%source%" ^| findstr /V /C:" "`) do (
		call :traite "%%~a" "%%~a"
		echo !line_out!
	)
 
	for /f "usebackq tokens=1,2 delims= " %%a in (`type "%~dp0%source%" ^| findstr /C:" "`) do (
		call :traite "%%~a" "%%~a" "%%~b" 
		echo !line_out!
	)
 
	call :traite_cle_unique
	echo !cle_unique_out!      TYPED
	for /f "usebackq tokens=1,2 delims= " %%a in (`type "%~dp0%source%" ^| findstr /C:" "`) do (
		call :traite "%%~b" "%%~a" "%%~b"
		echo !line_out!
	)
)>"%~dp0%sortie%"
 
goto fin
 
:traite_cle_unique
REM Clé unique
set cle_unique_out=0000000000000000%cle_unique%
set cle_unique_out=%cle_unique_out:~-16%
set /A cle_unique+=1
REM Retour à l'envoyeur
goto :eof
 
:traite
REM Récupère les valeurs
set titre=%~1
set val1=%~2
set val2=%~3
 
call :traite_cle_unique
 
REM Titre
if defined val2 (
	set "titre_out=X001LISTE %titre%%spaces%"
) else (
	set "titre_out=Z001LISTE %titre%%spaces%"
)
set titre_out=%titre_out:~,28%
 
REM Longueur de valeur 1
set "val1_out=!val1!%spaces%"
set val1_out=%val1_out:~,52%
 
REM Longueur de valeur 2
if defined val2 (
	set "val2_out=!val2!%spaces%"
	set val2_out=!val2_out:~,52!
) else (
	set "val2_out=%spaces%"
)
 
REM Crée la ligne de sortie
set line_out=!cle_unique_out!!titre_out!!val1_out!!val2_out!
 
REM Supprime les espaces en trop, à la fin de la ligne de sortie
for /l %%a in (1,1,150) do if "!line_out:~-1!"==" " set line_out=!line_out:~0,-1!
 
REM Retour à l'envoyeur
goto :eof
 
 
:fin
pause

13/05/2019, 11h05
MAXJEREM

Je teste de suite ce script et te tiens au courant.

Merci beaucoup.

Bonjour,

Après test, c'est exactement que je souhaite générer, mais Désolé, il y a encore un petit couac que je vois en output:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Mon titre
0000000000001000      TITRE LIBRE
0000000000001001      TYPEC
0000000000001002X001LISTE AAAAAA            AAAAAA                                              BBBBBBBB
0000000000001003X001LISTE CCCCCCCCC         CCCCCCCCC                                           DDDDDDDD
0000000000001004X001LISTE EEEEEEE           EEEEEEE                                             FFFFFFFF
0000000000001005X001LISTE ABCDEFGHIJKLMNOP  ABCDEFGHIJKLMNOP                                    SSS
0000000000001006X001LISTE HHHHHHHHHHHH      HHHHHHHHHHHH                                        ZZZZZZ
0000000000001007X001LISTE IIIIIIII          IIIIIIII                                            SSSSSSSS
0000000000001008X001LISTE JJJJJJJJJJJJJJJJ  JJJJJJJJJJJJJJJJ                                    GGGGG
0000000000001009      TYPED
0000000000001010X001LISTE BBBBBBBB          AAAAAA                                              BBBBBBBB
0000000000001011X001LISTE DDDDDDDD          CCCCCCCCC                                           DDDDDDDD
0000000000001012X001LISTE FFFFFFFF          EEEEEEE                                             FFFFFFFF
0000000000001013X001LISTE SSS               ABCDEFGHIJKLMNOP                                    SSS
0000000000001014X001LISTE ZZZZZZ            HHHHHHHHHHHH                                        ZZZZZZ
0000000000001015X001LISTE SSSSSSSS          IIIIIIII                                            SSSSSSSS
0000000000001016X001LISTE GGGGG             JJJJJJJJJJJJJJJJ                                    GGGGG

Tous les cas sont traités en X001 pour titre C et D, alors que je devrais avoir en "titre C" ZOO1 et en "titre D" X001.
Je ne pense pas que cela soit compliqué à modifier, je vais tenter de retrouver où ces valeurs X001 et Z001 sont insérées.
Merci beaucoup de ton aide et pour ton expertise.

Bonjour,

Apparemment ce n'est pas si simple de rectifier le Code X001 ou Z001.
Si je déroule une partie du script pour un cas où Valeur1 et Valeur2 sont renseignées on obtient:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 call :traite "CCCCCCCCC" "CCCCCCCCC" "DDDDDDDD" echo !line_out! ) E:\a>REM Récupère les valeurs E:\a>set titre=CCCCCCCCC E:\a>set val1=CCCCCCCCC E:\a>set val2=DDDDDDDD E:\a>call :traite_cle_unique E:\a>REM Clé unique E:\a>set cle_unique_out=00000000000000001004 E:\a>set cle_unique_out=0000000000001004 E:\a>set /A cle_unique+=1 E:\a>REM Retour à l'envoyeur E:\a>goto :eof E:\a>REM Titre E:\a>if defined val2 (set "titre_out=X001LISTE CCCCCCCCC " ) else (set "titre_out=Z001LISTE CCCCCCCCC " ) E:\a>set titre_out=X001LISTE CCCCCCCCC
Là il applique X001 alors qu'il devrait appliquer ZO01. je pense que cela est lié au fait que Valeur2 est définie.
Question, faut-il "doubler" le Titre_out?? ou ajouter encore un test??
Merci par avance de votre aide.

Comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
@echo off
setlocal enabledelayedexpansion
 
set source=input.txt
set sortie=output.txt
 
set "spaces=                                                  "
 
set /A cle_unique=1000
 
(
	echo Mon titre
	call :traite_cle_unique
	echo !cle_unique_out!      TITRE LIBRE
	call :traite_cle_unique
	echo !cle_unique_out!      TYPEC
	for /f "usebackq tokens=1,2 delims= " %%a in (`type "%~dp0%source%" ^| findstr /V /C:" "`) do (
		call :traite "%%~a" "%%~a"
		echo !line_out!
	)
 
	for /f "usebackq tokens=1,2 delims= " %%a in (`type "%~dp0%source%" ^| findstr /C:" "`) do (
		call :traite "%%~a" "%%~a" "%%~b" 
		echo !line_out!
	)
 
	call :traite_cle_unique
	echo !cle_unique_out!      TYPED
	for /f "usebackq tokens=1,2 delims= " %%a in (`type "%~dp0%source%" ^| findstr /C:" "`) do (
		call :traite "%%~b" "%%~a" "%%~b"
		echo !line_out!
	)
)>"%~dp0%sortie%"
 
goto fin
 
:traite_cle_unique
REM Clé unique
set cle_unique_out=0000000000000000%cle_unique%
set cle_unique_out=%cle_unique_out:~-16%
set /A cle_unique+=1
REM Retour à l'envoyeur
goto :eof
 
:traite
REM Récupère les valeurs
set titre=%~1
set val1=%~2
set val2=%~3
 
call :traite_cle_unique
 
REM Titre
if "%titre%" == "%val1%"  (
	set "titre_out=Z001LISTE %titre%%spaces%"
) else (
	set "titre_out=X001LISTE %titre%%spaces%"
)
set titre_out=%titre_out:~,28%
 
REM Longueur de valeur 1
set "val1_out=!val1!%spaces%"
set val1_out=%val1_out:~,52%
 
REM Longueur de valeur 2
if defined val2 (
	set "val2_out=!val2!%spaces%"
	set val2_out=!val2_out:~,52!
) else (
	set "val2_out=%spaces%"
)
 
REM Crée la ligne de sortie
set line_out=!cle_unique_out!!titre_out!!val1_out!!val2_out!
 
REM Supprime les espaces en trop, à la fin de la ligne de sortie
for /l %%a in (1,1,150) do if "!line_out:~-1!"==" " set line_out=!line_out:~0,-1!
 
REM Retour à l'envoyeur
goto :eof
 
 
:fin
pause

14/05/2019, 12h56
MAXJEREM

Bonjour,

Après plusieurs tests, je te confirme que ta dernière solution est la bonne et répond parfaitement à ma demande.

Je te remercie pour tout.

Voir 40 message(s) de cette discussion en une page