#!/usr/bin/perl
use strict;
use warnings;
use autodie;
 
my @block;
open my $fhin, "<", "lines.txt";
open my $fhout, ">", "lines1.txt";
while (<$fhin> ) {
  my (@nom, @adresse, @ville);
  chop;
  push @block, $_;
  # si on a lu quatre lignes
  if (@block == 4 || eof) {
    # si le contenu a le bon pattern on range les 3 valeurs dans un tableau ad-hoc (ici @nom) 
    if (defined($block[0]) && ($block[0] =~ /^(.{37})\s{7}(.{37})\s{7}(.{37})\s*$/)) {
      push @nom, $1, $2, $3;
      map {s/^\s+|\s+$//g} @nom; # vire les blancs en trop autour le cas échéant
    } else {
      die "ligne de noms incorrecte: $block[0]!";
    }
    if (defined($block[1]) && ($block[1] =~ /^(.{37})\s{7}(.{37})\s{7}(.{37})\s*$/)) {
      push @adresse, $1, $2, $3;
      map {s/^\s+|\s+$//g} @adresse;
    } else {
      die "ligne d'adresse incorrecte: $block[1]!";
    }
    if (defined($block[2]) && ($block[2] =~ /^(.{37})\s{7}(.{37})\s{7}(.{37})\s*$/)) {
      push @ville, $1, $2, $3;
      map {s/^\s+|\s+$//g} @ville;
    } else {
      die "ligne de ville incorrecte: $block[2]!";
    }
    if (defined($block[3]) && ($block[3] !~ /^\s*$/)) {
      die "ligne de separation incorrecte: $block[3]!";
    }
    # on imprime maintenant dans l'ordre voulu
    foreach my $i (0..2) {
      print $fhout "$nom[$i];$adresse[$i];$ville[$i]\n";
    }
    # raz pour traiter le prochain groupe de 4 lignes
    @block = ();
  }
}
close $fhout;
close $fhin;

1. echo off
3. cls
5. echo la recuperation des donnees est en cours - veuillez patienter.
7. echo off
9. set VResult=result-etiquette.csv
10. set VModel=Modele-etiquette.odt
12. if exist %VResult% del %VResult%
14. echo Lign1;Lign2;Lign3;Lign4;Lign5;Lign6;Lign7 >>%VResult%
16. :: Initialisation des variables
17. set VTexte=test.txt
18. set VNumPaq=4
19. set VNumligne=%VNumPaq%
20. set VNumChamp=0
22. :recupligne
24. set /a VNumChamp+=1
26. set VAffLigne=
28. :: Recuperation de la ligne n° VNumLigne dans la variable VAffLigne
29. for /F "delims=" %%a in ('findstr /n "^" %VTexte% ^| findstr "^%VNumligne%:"') do set VAffLigne=%%a
32. :: Recuperation des blocs de données dans la ligne récupéré au dessus
33. :: le point après l'echo permet de gerer les blocs vides
34. :: je dois décalé mes blocs de 2, 3 ou 4 caratères car la commande findstr ajoute le n° de ligne au début
36. if %VNumLigne% LEQ 9 (for /F "delims=" %%b in ('echo.%VAffLigne:~2,41%') do set VL%VNumChamp%1=%%b
37. goto :suite1)
38. if %VNumLigne% LEQ 99 (for /F "delims=" %%b in ('echo.%VAffLigne:~3,41%') do set VL%VNumChamp%1=%%b
39. goto :suite1)
40. if %VNumLigne% LEQ 999 (for /F "delims=" %%b in ('echo.%VAffLigne:~4,41%') do set VL%VNumChamp%1=%%b
41. goto :suite1)
42. if %VNumLigne% GEQ 1000 (for /F "delims=" %%b in ('echo.%VAffLigne:~5,41%') do set VL%VNumChamp%1=%%b)
44. :suite1
45. if %VNumLigne% LEQ 9 (for /F "delims=" %%c in ('echo.%VAffLigne:~46,41%') do set VL%VNumChamp%2=%%c
46. goto :suite2)
47. if %VNumLigne% LEQ 99 (for /F "delims=" %%c in ('echo.%VAffLigne:~47,41%') do set VL%VNumChamp%2=%%c
48. goto :suite2)
49. if %VNumLigne% LEQ 999 (for /F "delims=" %%c in ('echo.%VAffLigne:~48,41%') do set VL%VNumChamp%2=%%c
50. goto :suite2)
51. if %VNumLigne% GEQ 1000 (for /F "delims=" %%c in ('echo.%VAffLigne:~49,41%') do set VL%VNumChamp%2=%%c)
53. :suite2
55. if %VNumLigne% LEQ 9 (for /F "delims=" %%d in ('echo.%VAffLigne:~90,41%') do set VL%VNumChamp%3=%%d
56. goto :suite3)
57. if %VNumLigne% LEQ 99 (for /F "delims=" %%d in ('echo.%VAffLigne:~91,41%') do set VL%VNumChamp%3=%%d
58. goto :suite3)
59. if %VNumLigne% LEQ 999 (for /F "delims=" %%d in ('echo.%VAffLigne:~92,41%') do set VL%VNumChamp%3=%%d
60. goto :suite3)
61. if %VNumLigne% LEQ 9999 (for /F "delims=" %%d in ('echo.%VAffLigne:~93,41%') do set VL%VNumChamp%3=%%d)
64. :suite3
66. :: Je vérifie si j'arrive au bout d'un bloc de 7 lignes
67. :: si c'est le cas, je lance la copie des donnees dans mon fichier result, sinon, je continue à récuperer les blocs de données
68. set /a VNumligne+=1
69. set /a VComp=%VNumPaq%+6
70. If %VNumligne% LEQ %VComp% goto :recupligne
72. :: Copie des blocs de données remis dans l'ordre dans le fichier résultat
73. echo %VL11%;%VL21%;%VL31%;%VL41%;%VL51%;%VL61%;%VL71% >>%VResult%
74. echo %VL12%;%VL22%;%VL32%;%VL42%;%VL52%;%VL62%;%VL72% >>%VResult%
75. echo %VL13%;%VL23%;%VL33%;%VL43%;%VL53%;%VL63%;%VL73% >>%VResult%
77. :: Vidage des variables sinon si une ligne est vide la variable conserve l'ancienne valeur
79. for /L %%N in (11,1,73) do set VL%%N=
81. :: Mise à jour des variables
82. set /a VNumPaq+=9
83. set /a VNumligne=%VNumPaq%
84. set /a VNumChamp=0
85. set VAffLigne2=
86. set VLvide=
88. :: Controle de la fin du texte. Si la ligne a traité est vide alors arret de la commande
89. for /F "delims=" %%z in ('findstr /n "^" %VTexte% ^| findstr "^%VNumligne%:"') do set VAffLigne2=%%z
91. for /F "delims=" %%y in ('echo.%VAffLigne2:~5,36%') do set VLvide=%%y
92. If "%VLvide%" EQU "" goto :fin
94. goto :recupligne
96. :fin
97. "C:\Program Files\LibreOffice 3.5\program\swriter.exe" %VModel%