Discussion :

[Mordehai]

Bonjour,

j'ai la chaine de caracteres suivante:
{ZESTRIL {20 mg} cp grid:1:0:0:0 {} {} Ald {}}

qui contient
1- le nom du medicament (ZESTRIL)
2- le dosage(20 mg)
3- la forme(cp pour comprimé)
4- la posologie(grid:1:0:0:0 pour 1 matin 0 midi 0 soir 0 nuit)
5- le type d'affection(Ald pour Affection longue durée)

Comment avec quelques lignes de code recupérer ces informations sans les {} sans faire une usine a gaz.

Merci d'avance pour votre aide.

Motti.

[mail.spam]

Bonjour,

Indique nous ce que tu as déjà fait et quelle piste tu as déjà explorer et nous pourrons t'aider.
Mais sur le principe il faut que tu arrive à décomposer ta chaîne avec logique.

en gros pour avoir "le nom du medicament" il faut récupérer la chaîne à gauche du premier {
exemple

Code :

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

1
2
3
4
 
sChaine est chaine = "{ZESTRIL {20 mg} cp grid:1:0:0:0 {} {} Ald {}}"
sNomMédicament est chaine
sNomMédicament = schaine[[2 A Position(sChaine,"{")]]

ensuite je te laisse faire.

[Mordehai]

voici le code que j'ai commencé a ecrire:

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
PROCEDURE ExtraireListeMedicaments(sLigne est une chaîne)
 
 
nPos1,  nPos2, nNbrAccolOuvert, nNbrAccolFerme, longueur sont des entiers
sValeur, sMedicament, sPoso, sOrdo est une chaîne
 
sValeur 	= ""
sMedicament	= ""
sPoso		= ""
sOrdo		= ""
 
nNbrAccolOuvert = ChaîneOccurrence(sLigne, "{")
nNbrAccolFerme	= ChaîneOccurrence(sLigne, "}")
 
SI nNbrAccolOuvert = 1 ET nNbrAccolFerme = 1 ALORS
	RENVOYER sValeur
SINON
	nPos1 = PositionOccurrence(sLigne,"{",1)
	nPos2 = PositionOccurrence(sLigne,"}",nNbrAccolFerme)
	longueur = (nPos2 - 1) - nPos1
	sValeur = Milieu(sLigne, nPos1+1,longueur)
	// Construire la chaine suivant le modele: sMedicament + TAB + sPoso + RC
	TANTQUE Taille((sValeur) <> 0)
		nPos1		= PositionOccurrence(sValeur,"{",1)
		sMedicament	= SansEspace(Gauche(sValeur,nPos1-1))
		sValeur		= Milieu(sValeur, nPos1+1)
		nPos2 		= PositionOccurrence(sValeur,"}",1)
		longueur 	= (nPos2 - 1) - 1 
		sMedicament = sMedicament + " " + Milieu(sValeur, 1, longueur) 
		sValeur		= Milieu(sValeur, nPos2+1)
	FIN
	RENVOYER sOrdo
FIN

mais il me semble que je me dirige vers une usine a gaz

Cordialement

Motti

[laurent30s]

Bonjour

Penses d'utiliser les balises codes pour encadrer ton code ça permet de conserver les alignements et de le rendre plus compréhensible...

Si le format est relativement stable voici un code qui permet de récupérer les différentes valeurs
En 1er on fait en sorte d'avoir un seul caractère séparateur "}"
Après il suffit de récupérer chaque valeur en fonction de sa position en faisant attention que Forme et Posologie sont ensemble mais séparé par un espace

Code :

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

1
2
3
4
5
6
7
8
9
10
sMedicament, sDosage, sForme_Poso, sForme, sPoso, sType_Affect est une chaîne
sLigne est une chaîne = "{ZESTRIL {20 mg} cp grid:1:0:0:0 {} {} Ald {}}"
sLigne = Remplace(sLigne,"{","}")
 
sMedicament 	= SansEspace(ExtraitChaîne(sLigne,2,"}"))
sDosage		= SansEspace(ExtraitChaîne(sLigne,3,"}"))
sForme_Poso	= SansEspace(ExtraitChaîne(sLigne,4,"}"))
sForme		= SansEspace(ExtraitChaîne(sForme_Poso,1," "))
sPoso		= SansEspace(ExtraitChaîne(sForme_Poso,2," "))
sType_Affect	= SansEspace(ExtraitChaîne(sLigne,8,"}"))

a toi de l'ajuster en fonction de tes besoins...

[Nullosse]

un truc complètement nul à essayer :

Code :

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

1
2
3
4
5
sMedicament, sDosage,sForme, sPoso,chp1,chp2,sType_Affect,chp3 est une chaîne
sLigne est une chaîne = "{ZESTRIL {20 mg} cp grid:1:0:0:0 {} {} Ald {}}"
VérifieExpressionRégulière(sLigne,"\{(.+) +\{(.*)\} +(.*) +(.*) +\{(.*)\} +\{(.*)\} +(.*) +\{(.*)\}\}",
                           sMedicament,sDosage, sForme, sPoso,
                            chp1,chp2, sType_Affect,chp3)

[Nullosse]

un peu moins nul :

Code :

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

1
2
3
4
5
sMedicament, sDosage,sForme, sPoso,chp1,chp2,sType_Affect,chp3 sont des chaînes
sLigne est une chaîne = "{ZESTRIL       {20 mg}     cp grid:1:0:0:0       {} {}        Ald                       {}}"
VérifieExpressionRégulière(sLigne,"\{([^ ]+)[ ]+\{(.*)\}[ ]+([^ ]+)[ ]+([^ ]+)[ ]+\{(.*)\}[ ]+\{(.*)\}[ ]+([^ ]+)[ ]+\{(.*)\}\}",
                           sMedicament,sDosage, sForme, sPoso,
                            chp1,chp2, sType_Affect,chp3)

[wimbish]

Bonjour,

C'est du JSON non ?
Si oui, fait une recherche sur les parseurs JSON cela sera peut êtres utile dans le reste de ton dev.

[Mordehai]

Bonjour,

Tout d'abord merci a Nullosse, l'utilisation de la fonction VérifieExpressionRégulière() m'a fait gagner beaucoup de temps.

Je suis confronté a un autre probleme:
quelque fois le Medicament apparait avec un espace apres l'accolade ex:
{{ BRONCHOKOD SANS SUCRE }
et quelquefois le Medicament apparait avec 2 espaces apres l'accolade ex: {{ MINISINTROM}

j'ai essayé d'enlever les espaces avec la fonction Remplace ainsi:
Remplace(sValeur, "{ ", "{")
mais ca ne marche pas.
Est-ce que quelqu'un a eu idée pour enlever ces espaces. j'en ai besoin pour compter le nombre de medicaments afin de faire une boucle sur la chaine qui contient plusieurs medicaments dans la meme chaine.

Merci d'avance.

EDIT :
Finallement apres revérification la commande suivante:
Remplace(sValeur, "{ ", "{")
fonctionne bien. je m'etais juste trompé sur le nombre d'epaces a mettre après l'accolade.

Cordialement

[zouzoukha]

j'ai essayé d'enlever les espaces avec la fonction Remplace ainsi:
Remplace(sValeur, "{ ", "{")
mais ca ne marche pas.

Salut,

Pourquoi pas ?

Code :

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

Remplace(sValeur, " ", "")

avant ton

Code :

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

Remplace(sValeur, "{   ", "{")

Bon DEV

[frenchsting]

Je pense qu'il faudrait que tu fasses un analyseur syntaxique/lexicographique. Je m'explique, il faut que tu listes les cas "tordu" pour les traiter :
Si tu as "{ { Médicament}", il faut que tu réussisses à le transformer en "{Médicament}".
La suppression directes de tous les espaces ne fonctionnera pas car tu auras : " { { Nom du Médicament}" qui deviendra " {{NomduMédicament}".

Il faut que tu reconstruises une chaine "correcte" en parcourant la chaine initiale. Pour cela, écris un automate à états finis.

[laurent30s]

Bonjour

Essaye le code de mon précédent message il semble qu'il résout ton problème d'espace.

Code :

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

1
2
3
4
5
6
7
8
9
10
sMedicament, sDosage, sForme_Poso, sForme, sPoso, sType_Affect est une chaîne
sLigne est une chaîne = "{ZESTRIL {20 mg} cp grid:1:0:0:0 {} {} Ald {}}"
sLigne = Remplace(sLigne,"{","}")
 
sMedicament 	= SansEspace(ExtraitChaîne(sLigne,2,"}"))
sDosage		= SansEspace(ExtraitChaîne(sLigne,3,"}"))
sForme_Poso	= SansEspace(ExtraitChaîne(sLigne,4,"}"))
sForme		= SansEspace(ExtraitChaîne(sForme_Poso,1," "))
sPoso		= SansEspace(ExtraitChaîne(sForme_Poso,2," "))
sType_Affect	= SansEspace(ExtraitChaîne(sLigne,8,"}"))

[mogwai162]

Salut

Je te conseille également d'utiliser les expressions régulières. Cependant celles de windev étant faiblardes, tu devrais utiliser le le regex de vbs.

Je n'ai plus le lien mais quelqu'un a déjà posté tout ce qu'il faut a ce sujet. fais une recherche au besoin.