Discussion :

[devalender]

Bonjour a tous
je voudrais recupérer des mots d'un fichier texte (pièce jointe),
voici mon code :

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
//ouverture du fichier 
IdFichier est un entier= fOuvre(NOM_FICHIER,foLectureEcriture)
SI IdFichier > 0 ALORS
BOUCLE      LigneLue est une chaîne = fLitLigne(IdFichier)
      SousChaîne est une chaîne = ExtraitChaîne(LigneLue,rangPremier, "TAB ")
		
	TANTQUE SousChaîne <> EOT  ET SousChaîne <>""
	ListeAjoute(LISTE_Liste1,	LigneLue)
	Trace(LigneLue) 
	SousChaîne = ExtraitChaîne(LigneLue, rangSuivant, "TAB")
             FIN
A FAIRE TANTQUE LigneLue <> EOT
fFerme(IdFichier) //fermeture du fichier
FIN

a l'éxécution voici ce que me donne la fonction trace :

0000009<TAB>baba<TAB>tata<TAB>09041960<TAB>12<TAB>07101992<TAB>O mali<TAB>
0000013<TAB>boubou<TAB>hama yves<TAB>07102008<TAB><TAB>07101993<TAB>B bulgarie<TAB>

et le champ liste n'affiche pas correctement les données or elle devait être pareille a la fonction trace .

maintenant moi je voulais les données sous le forme :

00009
baba
tata
09041960
12
07101992
O mali
0000013
boubou
hama yves
07102008
07101993
B bulgarie

c'est dire découper quand j'ai le caractère TAB !
Merci a tous

[tatayo]

Bonjour,
Si tu veux découper ta ligne en fonction des tabulations, il faut utiliser TAB, et non "TAB".
Je ferai ainsi:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
//ouverture du fichier 
IdFichier est un entier= fOuvre(NOM_FICHIER,foLectureEcriture)
SI IdFichier > 0 ALORS
    lignelue = flitligne(idfic)
    TANTQUE LigneLue <> EOT
        POUR TOUTE CHAINE SousChaine de LigneLue SEPAREE PAR TAB
            SI SousChaine <> "" ALORS ListeAjoute(LISTE_Liste1,SousChaine)
        FIN
        LigneLue = flitligne(IdFichier)
    FIN
fFerme(IdFichier) //fermeture du fichier
FIN

Tatayo.

[hpascal]

Salut

Tu peux aussi faire pour chaque ligne lue :

Code :

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

1
2
LigneLue = Remplace(LigneLue, TAB, RC)
ListeAjoute(Lst_Annee_Bud, LigneLue)

Cependant la solution de tatayo permet de contrôler les valeurs pour éviter par exemple d'ajouter une ligne vide

[devalender]

Si tu veux découper ta ligne en fonction des tabulations, il faut utiliser TAB, et non "TAB".

en effet la solution proposée par tatayo est celle qui m'interesse
Merci a tous