Discussion :

[loloxp]

Bonjour à tous
je cherche a extraire des informations d'un fichier texte.
je me positionne sur la valeur %INDEX%PLAYER
je veux récupérer la ligne au dessus dans une table mais a chaque fois j'ai de donnée erronées.

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
38
39
40
41
42
43
44
45
46
47
48
49
 
ChaineBalise est une chaîne 
Num,sPrenom,sNom,sDate est une chaîne
sCtr_ball,sDribbles,sFinitions,sPuss_tirs,sTirs_Loin,sRepr_Volée est une chaîne
sCentre,sPasses,sPasses_Longues,sPrec_tete,sTacle_debout,sTacle_glissé,sMarquage_ind est une chaîne
sAcceleration,sVitesse,sAgilite,sDetente_verticale,sPuissance,sEndurance,sEquilibre est une chaîne
sIdfichier est une chaîne
 
 
TableSupprimeTout(TABLE_Joueurs)
sIdfichier = SAI_Chemin_texte
ChaineOrigine est une chaîne = fChargeTexte(SAI_Chemin_texte)
v_indice est un entier 
BOUCLE
	v_indice++
	ChaineBalise = ExtraitChaîne(ChaineOrigine ,v_indice+1,"%INDEX%PLAYER")
	SI ChaineBalise = EOT ALORS SORTIR
 
	// on recuperre le numero
	Num  				= 	ExtraitChaîne(ChaineBalise ,2,RC,DepuisFin) 
	sPrenom  			= 	ExtraitChaîne(ChaineBalise ,1,"|",DepuisDébut)
	sNom 				= 	ExtraitChaîne(ChaineBalise ,4,"|",DepuisFin)
	sDate 				= 	ExtraitChaîne(ChaineBalise,6,RC)
	sCtr_ball 			= 	ExtraitChaîne(ChaineBalise,22,",")
	sDribbles 			=	ExtraitChaîne(ChaineBalise,23,",")
	sFinitions			=	ExtraitChaîne(ChaineBalise,24,",")
	sPuss_tirs			=	ExtraitChaîne(ChaineBalise,25,",")
	sTirs_Loin			=	ExtraitChaîne(ChaineBalise,26,",")
	sRepr_Volée			=	ExtraitChaîne(ChaineBalise,27,",")
	sCentre				=	ExtraitChaîne(ChaineBalise,28,",")	
	sPasses				=	ExtraitChaîne(ChaineBalise,29,",")
	sPasses_Longues		=	ExtraitChaîne(ChaineBalise,30,",")
	sPrec_tete			=	ExtraitChaîne(ChaineBalise,31,",")
	sTacle_debout		=	ExtraitChaîne(ChaineBalise,32,",")
	sTacle_glissé		=	ExtraitChaîne(ChaineBalise,33,",")
	sMarquage_ind		=	ExtraitChaîne(ChaineBalise,34,",")
	sAcceleration		=	ExtraitChaîne(ChaineBalise,35,",")
	sVitesse			=	ExtraitChaîne(ChaineBalise,36,",")
	sAgilite			=	ExtraitChaîne(ChaineBalise,37,",")
	sDetente_verticale	=	ExtraitChaîne(ChaineBalise,38,",")
	sPuissance			=	ExtraitChaîne(ChaineBalise,39,",")
	sEndurance			=	ExtraitChaîne(ChaineBalise,40,",")
	sEquilibre			=	ExtraitChaîne(ChaineBalise,41,",")
 
	TableAjouteLigne(TABLE_Joueurs,Num,sPrenom,sNom,sDate,sCtr_ball,sDribbles,sFinitions,sPuss_tirs,sTirs_Loin,...
				   sRepr_Volée,sCentre,sPasses,sPasses_Longues,sPrec_tete,sTacle_debout,sTacle_glissé,sMarquage_ind,...
				   sAcceleration,sVitesse,sAgilite,sDetente_verticale,sPuissance,sEndurance,sEquilibre)
 
FIN

merci d'avance de votre aide..

[Fred 57220]

Bonjour

a la grosse

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
// Ouvre le sélecteur de fichiers
sFichier est une chaîne = "D:\Programmation (WinDev)\Essai\test.txt"
NumFic est un entier 
ligne est une chaîne
 
NumFic = fOuvre(sFichier,foLecture)
 
SI NumFic = -1 ALORS
	// Une erreur a été détectée pendant l'ouverture du fichier
	Erreur(ChaîneConstruit("Erreur d'ouverture du fichier %1",sFichier),ErreurInfo())
	RETOUR
SINON
 
	TableSupprimeTout(TABLE_DataGridViewCharge)
	nposition est un entier 
 
	BOUCLE
		// Lecture ligne par ligne du fichier
		ligne=fLitLigne(NumFic)
		nposition++
       TableAjouteLigne(TABLE_DataGridViewCharge,nposition,ligne )
	SI ligne = EOT ALORS SORTIR
  FIN
 
  TableSupprimeTout(TABLE_DataGridViewData)
  POUR nLigne = 1 _A_ TableOccurrence(TABLE_DataGridViewCharge)
  	IF TABLE_DataGridViewCharge[nLigne,2] = "%INDEX%PLAYER" ALORS
  	   TableAjouteLigne(TABLE_DataGridViewData,nLigne-1,TABLE_DataGridViewCharge[nLigne-1,2] )
  	FIN
  FIN
 
// Fermeture du fichier
fFerme(NumFic)
 
FIN

maintenant tu peux faire cela avec juste un tableau , je l'ai fait avec deux tables

Fred

[loloxp]

merci pour la solution je test.