Discussion :

[moradsoft]

bonjour j'aimerais lire un fichier texte a partir la détection d'une combinaison et finir la lecture après détection d'une autre combinaison

mon fichier est de cette forme
A0033860351311011A0
A013386035201311
A023386035201311100733487KOUJANA HAFIDA 00000000000000000000
A023386035201311101645392RKHAOUI SALEK 00000000000000000000
A023386035201311101645491MEROUANI BOUCHETA 00000000000000000000
A023386035201311199548061EZZINE KARIMA 00000000000000000000
A033386035201311000097000000000000000000000000000000000000000000000013081560868

j'aimerais comencer la lecture par la ligne qui commence par A02
et finir la lecture quand on detecte la ligne qui commence par A03

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
NomFichier est une chaîne = fSélecteur(SAI_FIC1, "Sélectionnez un fichier.....", "Tous fichiers (*.*)"+TAB+"*.*", "*", fselOuvre+fselExiste)
IDFichier est un entier
ResLecture est une chaîne
nLig est un entier = 1
 
 
IDFichier = fOuvre(NomFichier, foLecture)
SI IDFichier <> -1 ALORS
	// Lecture de la première ligne
	ResLecture = fLitLigne(IDFichier)
	TANTQUE ResLecture <> EOT 
 
		SI nLig >=A02
		TableAjouteLigne(TABLE_EFI,"",ResLecture[[1 A 3]],ResLecture[[4 A 10]],ResLecture[[11 A 16]],ResLecture[[17 A 25]],ResLecture[[26 A 85]],ResLecture[[86 A 88]],ResLecture[[89 A 94]],ResLecture[[95 A 100]],ResLecture[[101 A 105]],ResLecture[[106 A 259]])
 
 
	FIN
 
	ResLecture = fLitLigne(IDFichier)
	nLig++
FIN
FIN

MERCI

[dsr57]

Bonjour,

Ton test est pas bon, tu test ton compteur de ligne nlig avec le contenu 'A02'

Code :

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

1
2
 
SI nLig >=A02

Tu dois tester le début (les 3 premiers caractères) de ta ligne, un code possible :

Code :

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

1
2
3
4
 
si gauche(reslecture,3)='A02' alors
    Tableajouteligne(.....)
Fin

Pour sortir quand tu lis une ligne 'A03', même principe

Code :

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

1
2
3
4
 
si gauche(reslecture,3)='A03' alors
    sortir
Fin

[moradsoft]

j'ai tester ce code mais ça marche pas il me donne rien

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
NomFichier est une chaîne = fSélecteur(SAI_FIC1, "Sélectionnez un fichier.....", "Tous fichiers (*.*)"+TAB+"*.*", "*", fselOuvre+fselExiste)
IDFichier est un entier
ResLecture est une chaîne
nLig est un entier = 1
 
// Ouverture d'un fichier externe
IDFichier = fOuvre(NomFichier, foLecture)
SI IDFichier <> -1 ALORS
	// Lecture de la première ligne
	ResLecture = fLitLigne(IDFichier)
	SI nLig >=3 
SI Gauche (ResLecture,3)="A02"ALORS
 
		// Seulement les lignes de 8 à 23
 
		TableAjouteLigne(TABLE_EFI,"",ResLecture[[1 A 3]],ResLecture[[4 A 10]],ResLecture[[11 A 16]],ResLecture[[17 A 25]],ResLecture[[26 A 85]],ResLecture[[86 A 88]],ResLecture[[89 A 94]],ResLecture[[95 A 100]],ResLecture[[101 A 105]],ResLecture[[106 A 259]])
 
	FIN
	SI Gauche (ResLecture,3)="A03"ALORS
		RETOUR
 
		FIN
 
 
	FIN
	// Lecture des lignes suivante
	ResLecture = fLitLigne(IDFichier)
	nLig++
FIN

[moradsoft]

je suis bloquer de l'aide svp

[Yusep]

Bonsoir
Il te manque la boucle:

Code :

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

1
2
3
4
5
6
7
// Lecture du fichier
ResLecture = fLitLigne(nIDFichier)
TANTQUE ResLecture <> EOT
 
   ResLecture = fLitLigne(nIDFichier)
FIN