Discussion :

[oliviernouhi]

Bonjour,

Je dois récupérer des infos précise dans un fichier ligne par ligne et les stocker dans un tableau

Voici un extrait du fichier en entrée:

Code :

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

1
2
3
4
5
6
7
8
9
10
				String: COD_SYNTHE = "10325SYNTHE"
				String: COD_TCHSAIIND = "10330SAIIND"
				String: COD_PRMADRSTR		= "10340PRMADRSTR"
				String: COD_INFOTCH		= "10175INFOTCH"
				String: COD_TYPINF		= "10342TYPINF"
				String: COD_TYPPRD		= "10344TYPPRD"
				String: COD_LIMINF		= "10346LIMINF"
				String: COD_DMDBCHABOCNT = "20110CNT"
				String: COD_DMDAFFCRS = "20120AFFCRS"
				String: COD_DMDAFFCRS2 = "20122AFFCRS"

il faudrait que je stocke dans un tableau, pour la première ligne par exemple le COD_SYNTHE et dans une autre colonne le 10325SYNTHE. Et ainsi de suite pour toutes les lignes.

Afin d'avoir dans la première colonne de mon tableau tout les :

Code :

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

1
2
3
4
5
6
7
8
9
COD_TRTMASCPR
COD_TRTMASPNTLVR
COD_TRTMASPNTCPG
COD_SYNTHE
COD_TCHSAIIND
COD_PRMADRSTR
COD_INFOTCH
COD_TYPINF
COD_TYPPRD

et dans une autre colonne les valeurs correspondantes :

Code :

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

1
2
3
4
5
6
7
8
9
10321TRTMASCPR
10322TRTMASPNTLVR
10323TRTMASPNTCPG
10325SYNTHE
10330SAIIND
10340PRMADRSTR
10175INFOTCH
10342TYPINF
10344TYPPRD

J'ai commencé avec ce code :

Code :

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

1
2
3
4
5
	if ( $ligne =~ m/^\s*String: COD_(.+)/){
		$trtInt_ligne++;
		$trtInt[$trtInt_ligne][0]=$1;
		print $trtInt[$trtInt_ligne][0], "\n";
	}

J'obtiens ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
SYNTHE = "10325SYNTHE"
TCHSAIIND = "10330SAIIND"
PRMADRSTR               = "10340PRMADRSTR"
INFOTCH         = "10175INFOTCH"
TYPINF          = "10342TYPINF"
TYPPRD          = "10344TYPPRD"
LIMINF          = "10346LIMINF"
DMDBCHABOCNT = "20110CNT"
DMDAFFCRS = "20120AFFCRS"
DMDAFFCRS2 = "20122AFFCRS"

Mais il faut via la substitution que je stocke dans 2 cases différentes mon résultats, mais cette substitution semble un peu compliqué... !

Merci d'avance pour votre aide

[mamax29]

salut,

j'aurais bien vu un truc du genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
my $code;
my $donnee;
my $cpt = 0;
 
while ( my $ligne = <FILE> )
{
	($code,$donnee) = $ligne =~ m/:\s+(COD_.[^\s]*)\s+=\s+\"(.[^\"]*)\"/;
	$tab[$cpt][0] = $code;
	$tab[$cpt][1] = $donnee;
	$cpt++;
}

Je stocke dans la première colonne ($tab[$cpt][0]) la partie qui est COD_xxxxx (tout ce qui commence par COD_ jusqu'à trouver un espace)
et ensuite je stocke dans la seconde colonne ($tab[$cpt][1]) la partie qui suit et qui est contenue entre les deux "

[oliviernouhi]

ok merci,

j'ai essayé ton code en rajoutant un print pour voir se que le tableau contien et ça ne marche pas :

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
while ( my $ligne = <FICHIER>) {
 
 
	my $code;
	my $donnee;
	my $cpti = 0;
 
 
 
	($code,$donnee) = $ligne =~ m/:\s+(COD_.[^\s]*)\s+=\s+\"(.[^\"]*)\"/;
	$tab[$cpti][0] = $code;
	$tab[$cpti][1] = $donnee;
	$cpti++;
	print $tab[$cpti][0], $tab[$cpti][1], "\n";
}

tu as une idée?

[oliviernouhi]

c'est bon avec ce code, tout 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
25
26
27
28
29
30
31
32
33
34
35
36
37
my @tab =([0]); # Tableau des TRT INT
my $code;
my $donnee;
my $cpti = 0;
 
#######################################################################################################
#                         Début du traitement et ouverture fichiers                                   #
#######################################################################################################
 
    print "\n-------------------------------------------------------\n";
    print "|---------------  Debut du traitement  ---------------|\n";
    print "-------------------------------------------------------\n";
 
open FICHIER, '<', "X7_sans_com.apt" or die("E/S : $!\n");
open ECRIRE,  '>', "parserMenu.sql" or die("Erreur de création de parserMenu.sql");
 
 
$tab[0][0]="code";
$tab[0][1]="donnée";
 
#tant qu'il y a des lignes dans mon fichier
 
while ( my $ligne = <FICHIER>) {
 
	if ( $ligne =~ m/^\s*String: COD_/){
 
		$cpti++;
		$tab[$cpti][0]="NULL"; # code
		$tab[$cpti][1]="NULL"; # donnée
 
		($code,$donnee) = $ligne =~ m/:\s+(COD_.[^\s]*)\s+=\s+\"(.[^\"]*)\"/;
 
		$tab[$cpti][0] = $code;
		$tab[$cpti][1] = $donnee;
 
		print "compteur: ", $cpti, "   ",$code, "   ",$donnee, "\n";
	}

merci encore