CHAINE MULTILIGNE : remplir une table

**Totik** · 12/03/2018, 00h35

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** · 12/03/2018, 08h26

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** · 12/03/2018, 08h46

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** · 12/03/2018, 09h19

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é · 12/03/2018, 11h53

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** · 12/03/2018, 18h37

Envoyé par romulus001

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é · 13/03/2018, 09h21

Envoyé par philouZ

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

**philouZ** · 13/03/2018, 10h12

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

Je suis 100% d'accord avec toi. Perso je n'utilise jamais TableAjoute pour les problèmes cités c'était le moment de l'utiliser...

Invité · 13/03/2018, 10h35

Maintenant, j'utilise de moins en moins la fonction TableAjouteLigne, je fais plutôt un remplissage par databinding à l'aide d'une variable globale, je trouve que c'est encore plus souple de procéder ainsi, car si on insère une nouvelle colonne, mettre à jour les paramètres de TableAjouteLigne peut parfois être un vrai calvaire :p
En faisant un remplissage par databinding à l'aide d'une variable globale, il n'y a aucune question à se poser

**Totik** · 13/03/2018, 22h56

Bonjour

Je vous remercie tous c'est intéressant , grace à vous conseils j'arrive a avoir le resultat souhaité , avant de mettre cette discussion en resolue , une dernière question, supposons que j a'i la chaine suivante :

CDE+A100
REF+100100
Date+110717
QTE+50
REF+200200
Date+110717
QTE+60
CDE+A200
REF+100100
Date+110717
QTE+10
REF+200200
Date+110717
QTE+20

comment peut on avoir pour chaque CDE les valeurs correspondantes : on creant l'entete de la commande valeur "CDE" avec ses lignes les REF + DATE + QTE.

Merci infiniment.

Crdt
Totik

**Totik** · 15/03/2018, 02h12

Bonjour

Enfin , j ai trouvé ce que je souhaite avoir comme traitement, voici le code au cas cela peut servir à quelqu'un. merci à vous tous encore une fois :

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
 
//
Lignelue est une chaîne
SAI_commande est une chaîne = ""
COE est une chaîne = ""
CDE est une chaîne = ""
REF est une chaîne = ""
DATTE est une chaîne = ""
DATTTE est une Date 
QTE est un entier = 0
Scolonne est une chaîne = ""
Lignelue = fChargeTexte("D:\test.txt")
POUR TOUTE CHAINE sContenuLigne DE Lignelue SEPAREE PAR RC
  Scolonne=SansEspace(ExtraitChaîne(sContenuLigne,1,"+"))
  SELON Majuscule(Scolonne)
    CAS "COE"
      COE = SansEspace(ExtraitChaîne(sContenuLigne,2,"+"))
    CAS "CDE"
      CDE = SansEspace(ExtraitChaîne(sContenuLigne,2,"+"))	
      HLitRecherchePremier(Client,Code,COE)
      HLitDernier(Commande,IDCOMMANDE)
      ....
      HAjoute(Commande)
    CAS "REF"
      REF = SansEspace(ExtraitChaîne(sContenuLigne,2,"+"))	
    CAS "DATE"
      DATTE = SansEspace(ExtraitChaîne(sContenuLigne,2,"+"))	
    CAS "QTE"
      QTE = Val(SansEspace(ExtraitChaîne(sContenuLigne,2,"+")))
  FIN
  SI Majuscule(Scolonne)="QTE" ALORS
    HLitRecherchePremier(articles,Référence,REF)
    .....
    HAjoute(LigneCde)
    CDE = ""
    REF = ""
    DATTE = ""
    QTE = ""
    COE = ""
  FIN
FIN

Crdt

Invité · 15/03/2018, 09h06

Envoyé par Totik

SAI_commande est une chaîne = ""

ce choix de nom de variable n'est pas très judicieux car les champs de saisi ont par défaut, un nom qui commence par SAI, de plus, cette variable n'est pas utilisée dans le bout de code donc cette ligne peut être supprimée.

**tbc92** · 15/03/2018, 16h04

Ton problème est résolu... parfait.

Dans les lignes 31 à 40 de ton code, tu passes par un SI ... ALORS ...FIN.
Pourquoi ne pas avoir mis cela dans le SELON ... FIN ?

Par ailleurs, j'ajouterais des commentaires dans le code ; si tu ajoutes ces commentaires aujourd'hui, tu auras moins de problème le jour où tu en auras besoin.

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
 
// Ce code traite des fichiers  du type :
//CDE+A100
//REF+100100
//Date+110717
//QTE+50
//REF+200200
//Date+110717
//QTE+60
//CDE+A200
//REF+100100
//Date+110717
//QTE+10
//REF+200200
//Date+110717
//QTE+20
 
// A partir de ce fichier, le programme va écrire 4 enregistrements ( CDE=A100, REF=100100,DATE=110717,QTE=50  ; A100,200200,110717,100  ; A200,100100,110717,10  ;  A200,200200,110717,20 )
// L'ordre des enregistrements est très important, si au lieu d'avoir   REF puis DATE puis QTE  on a  REF puis QTE puis DATE, le programme donnera un résultat faux.

En effet, dans ton traitement, tu exploites le fait que la QTE arrive après la REF et la DATE.

CHAINE MULTILIGNE : remplir une table [WD18]

WinDev

Discussions similaires

Partager

Partager