Discussion :

[Garamante]

Bonjour à tous,

Si vous pouviez m'aider ça serait bien cool ;o)

Je voudrais vérifier l'existence d'une phrase dans une chaine de caractères et renvoyer cette phrase si elle existe. Sachant que cette phrase fait partie d'un ensemble de phrase dans un tableau.

Exemple

chaine_de_caracteres = "Studio deux pièces - 35 mètre carré - Dernier étage"

dans mon tableau j'ai les éléments: "Cuisine - salle de bain - Studio deux pièces" par exemple.

Je voudrais donc scanner la chaine de caractère en prenant comme référence le tableau. Ici il trouverait une correspondance avec "Studio deux pièces" et renvoit donc "Studio deux pièces" en sortie


Merci de votre aide !!!

[iclic]

Bonjour,

Tu pourrais faire peut=être quelque chose de ce genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim es1, es2, es3 As String
Dim iv1 As Integer
 
es1 = "Cuisine - salle de bain - Studio deux pièces"
es2 = "Studio deux pièces - 35 mètre carré - Dernier étage"
 
iv1 = InStr(es2, "-")
es3 = Trim(Left(es2, iv1 - 1))
 
If InStr(es1, es3) <> 0 Then
    'sortie "Studio deux pièces - 35 mètre carré - Dernier étage
End If

[Garamante]

Bonjour,

merci pour ta réponse ! ;o)

Le problème c'est que j'utilise un logiciel developpé en interne dans ma boite pour faire des recherches sur des documents, extraire des données et les enregistrer dans une base. Le vbscript et le javascript sont les languages utilisés par ce logiciel afin de "filtrer" les chaines de caractères et de récupérer précisément certaines données. C'est pour ça que la structure en tableau me convenait bien pour ce type d'opération

[pc75]

Bonjour,

Je ne suis pas certain d'avoir bien compris ton problème.

Tu as une chaine de caractères :

chaine_de_caracteres = "Studio deux pièces - 35 mètre carré - Dernier étage"

Et un tableau :

tableau = "Cuisine - salle de bain - Studio deux pièces"

Tu veux trouver les éléments communs à ta chaine et à ton tableau ?

[spantemonium]

Pas certain de ce que tu veux, mais là tu remplis un tableau, et tu l'affiches sans les espaces avant et après...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
'Dim es1, es2 optionnel en VBS
 
 
es1 = "Cuisine - salle de bain - Studio deux pièces"
 
 
arrList = Split(es1, "-")
wscript.echo LTrim(RTrim(arrList(0))) 'affiche : Cuisine 
wscript.echo LTrim(RTrim(arrList(1))) 'affiche : salle de bain
wscript.echo LTrim(RTrim(arrList(2))) 'affiche : Studio deux pièces

enjoy^^

[ced600]

Dim es1, es2, es3 As String
Dim iv1 As Integer

Fonctionne pas en VBS, pas de typage de variable

Globalement, la réponse serait regarde ici :
http://vb.developpez.com/faqvbs/?pag...sExtraitChaine
Je pense qu'avec les exemples de la FAQ tu arriveras à faire ce que tu souhaites.

[omen999]

l'objet regexp a été créé pour régler ce genre de problème
un peu de lecture: http://www.developpez.net/forums/d44...ion-reguliere/
ou encore: http://www.developpez.net/forums/d60...ghlight=regexp

[Garamante]

Bonjour et merci pour vos réponses !!

En fait il faut absolument que les données de comparaison soient dans un tableau

J'ai commencé a travailler sur la fonction mais je galère

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
Function Main( strText )
 
	dim TableauElements()
	redim TableauElements(118)
 
TableauElements(0)="Tomates"
TableauElements(1)="Pommes de terre"
TableauElements(2)="Couteaux"
TableauElements(3)="ivre de recette"
TableauElements(4)="Citron"
TableauElements(5)="Bol"
 
 
tailleTableau = UBound(TableauElements)
 
For i = 0 to tailleTableau do
	dim pos
	pos=InStr (strText, TableauElements(i))
	if pos <> 0 then
	main = TableauElements(i)
        else
 
Next
 
end function

Le code ne marche pas bien sùr je ne suis pas très doué ;o) J'envisageais la chose ainsi:


Je vais lire mon tableau où se trouvent tous les éléments (il peut y en avoir 100 et plus) et pour chaque cellule lue de mon tableau rechercher l'élément de la cellule dans la chaine de caractère (Sachant que un seul élément du tableau à la fois peut se retrouver dans la chaine de caractere)

Ainsi en se basant sur mon tableau ci dessus et sur une chaine de caractere comme "Jus de pamplemousse. Farine - Riz-au-lait / Tomates. Lessive" (vraiment au hasard) il y aurait une correspondance avec la cellule "0" de mon tableau. Se serait donc le contenu de la cellule "0" qui serait renvoyé. Dur dur

Dans l'exemple ci-dessus j'ai utilisé InStr parce que je ne trouvais ien d'autre. Je me suis que si il renvoie la reference du premier caractere c'est qu'il trouve au moins quelque chose... J'enn aii maarrree


Merci pour votre aide !!!!!!!!!!!!!

[ced600]

Instr(p,ch1,ch2) recherche la chaîne ch2 dans ch1 à partir de la position p. Si ch2 est trouvée, la valeur renvoyée est la position de son premier caractère dans ch1, sinon la fonction renvoie 0.

Donc si tu n'as pas 0 alors c'est que ch2 a été trouvé au moins une fois dans ch1. Je crois que d'après l'expression de ton besoin c'est suffisant non ?

Donc tu me supprimes ton else et le remplace par un End If car un If Then se termine toujours par un End If, et pour être plus propre, tu remonte le dim pos, pour le sortir de la boucle. Une variable se déclare avant une boucle pas dedans, parce que là elle est redéclarer à chaque tour de boucle

Mais attention avec ce code, aux premiers éléments du tableau trouvé dans strText tu sors de la fonction en renvoyant cet élément.
Est ce bien ce que tu souhaites ?

[iclic]

Bonjour,

Mille excuses pour tous, mais je n'ai pas fait attention et j'ai cru en une question sur VB6 .
Je ferai plus attentif la prochaine fois.

A+

[Garamante]

et...ca marche !!! Super merci beaucoup !!!!!

Hey j'y suis presque arrivé tout seul lol: je vais bientôt monté mon SSII

Merci à tout en tout cas !!!