Discussion :

[ameno_123]

Bonjour,
Je veux traiter un fichier txt comme suite :
le contenu du fichier :
Citation:
France 978EUR000000100000000000077918000001108361 0000000000000000000000001212
French Guiana 978EUR000000100000000000077918000001108361 0000000000000000000000001212
French Polynesia 953XPF000011933170000009298132000000009288 0000000000000000000000001212

Ce que je veux est simple mais je bloque!!
1) Par exemple pour: 978EUR000000100000000000077918000001108361 je dois prendre les 7 derniers chiffres 1108361 pour les diviser/10 000 pour avoir = 110.8361 et ainsi de suite..
2) Prendre le code devise, du 4ème au 6ème caractère de la trame.
3) Mettre tous cela dans un fichier csv

Merci pour l'aide

[Lolo78]

Pour extraire la devise et le montant, peut-être une expression régulière du genre:

Code :

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

my ($devise, $montant) = ($1, $2) if $ligne =~ /\d{3}(\w{3})\d+(\d{7}) \d+/;

Le reste est très simple, je suppose que tu n'as pas besoin d'aide pour cela.

[ameno_123]

Merci bcp, mais le problème c'est que c'est ma premiere approche du code perl votre aide me serait précieuse...

[messinese]

Bonjour,

ce que Lolo78 te donne est tout à fait fonctionnel voici donc un exemple complet qui marche:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#! /usr/bin/perl
 
use strict;
use 5.10.0;
use IO::File;
use warnings;
use diagnostics;
 
use constant INITIALIZE => (1);
 
my $Compteur   = INITIALIZE;
my $FileToRead = IO::File->new("FichierText.txt",'r') or die ("Impossible de lire le fichier : $! \n");
 
say ("[*] Debut du traitement du fichier");
 
while (my $lines = $FileToRead->getline()) {
    my ($devise, $montant) = ($1, $2) if $lines =~ /\d{3}(\w{3})\d+(\d{7})/;
    say ("Boucle  $Compteur -> Devise: $devise montant: $montant");
    $Compteur++;
}
$FileToRead->close() or warn (" Fermeture du fichier impossible : $! \n");
 
say ("[*] Fin du traitement du fichier");
exit(INITIALIZE);

ceci te renvois donc

Code :

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

1
2
3
4
5
[*] Debut du traitement du fichier
Boucle  1 -> Devise: EUR montant: 1108361
Boucle  2 -> Devise: EUR montant: 1108361
Boucle  3 -> Devise: XPF montant: 0009288
[*] Fin du traitement du fichier

Si tu veux une explication sur la regexp je te conseille ceci ou encore cela c'est bien expliqué et te permettra de mieux comprendre.

Ici en gros tu passes les 3 premiers chiffres

Code :

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

/\d{3}(

tu récuperes et stocke les 3 lettres en majuscules

Code :

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

(\w{3})

tu ignores ensuite les autre nombres à l'exception des 7 derniers que tu stocke en variable

Code :

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

\d+(\d{7})

enfin tu ignores ce qui se trouve derriere ( j'ai donc retire le dernier "match" \d+
qui est ici inutile ).
Cdlt.

[Lolo78]

( j'ai donc retire le dernier "match" \d+
qui est ici inutile ).
Cdlt.

Effectivement, j'avais mis ce "dernier match" sans trop y réfléchir pour être sûr de ne pas taper la seconde série de chiffres, mais la présence de l'espace suffit a garantir que l'on récupère bien les bons chiffres, ce "dernier match" ne nuisait pas, mais était inutile

[ameno_123]

Merci beaucoup pour l'aide, effectivement le code marche bien sauf que je dois prendre les 7 derniers chiffres que je dois divise par 10000
exp : United Kingdom 826GBP000000080576000000062782000001375574

1375574/10000 pour avoir 137,5574 et sauvegarder le tout sur fichier


nb: je suis un developpeur delphi je ne vous cache pas que avec perl c'est plus simple
Merci

[messinese]

Re,

et bien il ne te reste qu'a inclure ton petit calcul ou est le probleme ?

Cdlt.

[ameno_123]

a vrai dire je bloque, je suis nul

[messinese]

Code :

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

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
#! /usr/bin/perl
 
use strict;
use 5.10.0;
use IO::File;
use warnings;
use diagnostics;
 
use constant INITIALIZE => (1);
 
my $Compteur   = INITIALIZE;
my $FileToRead = IO::File->new("FichierText.txt",'r') or die ("Impossible de lire le fichier : $! \n");
 
say ("[*] Debut du traitement du fichier");
 
while (my $lines = $FileToRead->getline()) {
    my ($devise, $montant) = ($1, $2) if $lines =~ /\d{3}(\w{3})\d+(\d{7})/;
    my $MontantFin = $montant/10000;
    say ("Boucle  $Compteur -> Devise: $devise montant: $MontantFin");
    $Compteur++;
}
$FileToRead->close() or warn (" Fermeture du fichier impossible : $! \n");
 
say ("[*] Fin du traitement du fichier");
exit(INITIALIZE);

Output:

Code :

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

1
2
3
4
5
[*] Debut du traitement du fichier
Boucle  1 -> Devise: EUR montant: 110.8361
Boucle  2 -> Devise: EUR montant: 110.8361
Boucle  3 -> Devise: XPF montant: 0.9288
[*] Fin du traitement du fichier

[ameno_123]

merci bcp, une dernière question , je dois laisse le nom du pays et sauvegarder l'ensemble sous csv avec comme séparateur ;

exp : United Kingdom;GBP;137,5574

Merci

[messinese]

Easy :

Code :

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

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
#! /usr/bin/perl
 
use strict;
use 5.10.0;
use IO::File;
use warnings;
use diagnostics;
 
use constant INITIALIZE => (1);
 
my $Compteur   = INITIALIZE;
my $FileToRead = IO::File->new("FichierText.txt",'r') or die ("Impossible de lire le fichier : $! \n");
 
say ("[*] Debut du traitement du fichier");
 
while (my $lines = $FileToRead->getline()) {
    my ($devise, $montant) = ($1, $2) if $lines =~ /\d{3}(\w{3})\d+(\d{7})/;
    my $MontantFin = $montant/10000;
 
    my ($Pays)= $lines =~ /(\D+)/g;
    say ("$Pays;$devise;$MontantFin");
    $Compteur++;
}
 
$FileToRead->close() or warn (" Fermeture du fichier impossible : $! \n");
 
say ("[*] Fin du traitement du fichier");
say ("[Nombre de lignes traitees: $Compteur]");
exit(INITIALIZE);

te donne alors :

Code :

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

1
2
3
4
5
6
[*] Debut du traitement du fichier
France ;EUR;110.8361
French Guiana ;EUR;110.8361
French Polynesia ;XPF;0.9288
[*] Fin du traitement du fichier
[Nombre de lignes traitees: 4]

[messinese]

Bonjour,

juste une petite suggestion: penses au tag "résolu" si c'est bien le cas, merci

[ameno_123]

Merci beaucoup pour l'aide précieuse