Discussion :

[Totik]

Bonjour

Je retourne vers vous après une journrnée de tentative afin d'extraire la chaine suivante pour remplir une table.
Voici la chaine à traiter contenue dans fichier texte

REF+100100
Date+110717
QTE+10
REF+200200
Date+110717
QTE+20

Resultat souhaite :

100100 110717 10
200200 110717 20

J arrive uniquement avoir les REF mais pas les dates ni les qtés , 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
 
/ ouvre le fichier à lire
Handelfichier = fOuvre("D:\Texte.txt",foLecture) //ouverture fichier à lire passé en paramètre
SI Handelfichier=-1 ALORS // traitement erreur
Info(ErreurInfo())
SINON
// Début lecture du fichier texte
LigneLue = fLitLigne(Handelfichier)
TANTQUE LigneLue<>EOT // tant qu'on n'a pas atteint la fin du fichier
Schaine = ExtraitChaîne(LigneLue,1,"+",DepuisDébut)
SI Schaine = "REF" ALORS
REF = ExtraitChaîne(LigneLue,2,"+",DepuisDébut)	
Tableajouteligne(Table_test,REF)

Merci.

[tatayo]

Bonjour,
Il suffit de remplacer ton SI dans la boucle par un SELON, de noter le numéro de la ligne ajoutée dans le cas d'une REF, et d'affecter les bonnes colonnes dans les autres cas.

Tatayo.

[Voroltinquo]

Bonjour,
Je traduis :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
nCompteur++
SELON Majuscule(sChaine) //On n'est pas à l'abri d'une faute de frappe dans le fichier txt
     CAS "REF":
          sRef=ExtraitChaîne(LigneLue,2,"+",DepuisDébut)
     CAS "DATE":
         sDate=ExtraitChaîne(LigneLue,2,"+",DepuisDébut)
     CAS "QTE":
        sQte=ExtraitChaîne(LigneLue,2,"+",DepuisDébut)
FIN
Si nCompteur=3 ALORS
     Tableajouteligne(Table_test,sRef,sDate,sQte)
     nCompteur=0
FIN

[philouZ]

Bonjour,

En plus simple,

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
sToto est une chaîne = [
	REF+100100
	Date+110717
	QTE+10
	REF+200200
	Date+110717
	QTE+20 
]
Chaine_a_ajouter est chaîne 
 
// Début lecture du fichier texte
POUR TOUTE CHAÎNE schaine DE sToto SEPAREE PAR RC
	Chaine_a_ajouter += [TAB] + ExtraitChaîne(schaine,2,"+",DepuisDébut)
	SI ExtraitChaîne(schaine,1,"+",DepuisDébut) ~= "qte" ALORS
		TableAjoute(TABLE_SansNom1,Chaine_a_ajouter)
		Chaine_a_ajouter = ""
	FIN
FIN

Adapté à ton code ça donne:

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
// ouvre le fichier à lire
Handelfichier = fOuvre("D:\Texte.txt",foLecture) //ouverture fichier à lire passé en paramètre
SI Handelfichier=-1 ALORS // traitement erreur
	Info(ErreurInfo())
SINON
	// Début lecture du fichier texte
	LigneLue = fLitLigne(Handelfichier)
	TANTQUE LigneLue<>EOT // tant qu'on n'a pas atteint la fin du fichier
		Chaine_a_ajouter += [TAB] + ExtraitChaîne(LigneLue,2,"+",DepuisDébut)
		SI ExtraitChaîne(LigneLue,1,"+",DepuisDébut) = "QTE" ALORS
			TableAjoute(TABLE_SansNom1,Chaine_a_ajouter)
			Chaine_a_ajouter = ""
		FIN
	FIN
FIN

[Invité]

Bonjour,

Dans la documentation de la fonction fOuvre, il est dit cela:

Pour manipuler des fichiers externes de type texte, il est conseillé d'utiliser les fonctions fChargeTexte/fSauveTexte et fChargeBuffer/fSauveBuffer.

En suivant cette recommandation, le code serait plutôt comme cela:

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
Handelfichier=fChargeTexte("D:\Texte.txt")
sREF est une chaine=""
sDate est une chaine=""
sQTE est un numérique=0
sColonne est une chaine=""
POUR TOUTE CHAÎNE sContenuLigne DE sToto SEPAREE PAR RC
      sColonne=SansEspace(ExtraitChaine(sContenuLigne,1,"+"))
      SELON Majuscule(sColonne)
           CAS "REF"
                  sREF=SansEspace(ExtraitChaine(sContenuLigne,2,"+"))
           CAS "DATE"
                  sDate=SansEspace(ExtraitChaine(sContenuLigne,2,"+"))
           CAS "QTE"
                  sQTE=Val(ExtraitChaine(sContenuLigne,2,"+"))
      FIN
 
      SI Majuscule(sColonne)="QTE" Alors
            TableAjouteLigne(TABLE_SansNom1,sREF,sDate,sQTE)
            sREF=""
            sDate=""
            sQTE=0
      FIN
FIN

@philouZ: dans la documentation de la fonction TableAjoute, il est marqué cela :

Remarque : Il est conseillé d'utiliser la fonction TableAjouteLigne.

[philouZ]

Bonjour,
@philouZ: dans la documentation de la fonction TableAjoute, il est marqué cela :

Yes je sais !!! Mais dans son cas, cela va beaucoup plus vite car il n'y a pas de tabulation dans sa chaine. Le TableAjoute pose problème si dans une de tes chaines tu as des tabulations, sinon dans ce cas précis, simplification de code.

[Invité]

Le TableAjoute pose problème si dans une de tes chaines tu as des tabulations

Je suis au courant de cela et c'est justement pour cela que je n'en sers pas, en même temps, ce qui est pratique avec TableAjouteLigne, c'est qu'on voit les noms des attributs (à condition de ne pas faire de saut de ligne), contrairement à TableAjoute.
Ce que j'ai voulu dire c'est qu'il fallait prendre de bonnes habitudes en suivant les recommandations de PC SOFT, c'est tout