Comparer variables avec extraction sans recherche

Version imprimable

18/01/2008, 15h47
Toine45

Comparer variables avec extraction sans recherche

Bonjour a tous, voila j'ai un petit probleme, je voudrais comparer 4 variables:

var1= salut okok
var2= salut
var3= salut non
var4= salut oui

On voit bien que 'salut' apparait dans les 4 variables .. je voudrais un msgbox qui me dit que 'salut' apparait bien dans les 4 ...

Mais sans rechercher 'salut' en rechercher un mot qui apparait 4 fois ...
Si quelqu'un m'a compris :)
Merci ! :mrgreen:

Salut,

J'avais pensé à un tableau et le parcourir
A vérifier bien sûr

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Dim Tableau()
Dim strSearch as string
Dim i as integer
Dim Cnt as integer
 
Tableau(0) = "salut okok"
Tableau(1) = "salut"
Tableau(2) = "salut non"
Tableau(3) = "salut oui"
 
strSearch = "salut"
Cnt = 0
 
For i = 0 to Ubound(Tableau)
  If instr(1, strSearch, Tableau(i)) > 0 then
    cnt = cnt + 1
  end if
Next i
 
if cnt = Ubound(Tableau) then
   msgbox "le mot : " & strSearch & " est présent dans toutes les variables"
end if

18/01/2008, 16h20
Toine45

Salut et merci, j'ai une erreur : L'indice n'appartient pas a la selection sur Tableau (0) = "salut okok"

Sinon j'ai pensé :

Lire les mots de la variable 1, les decouper exemple :
Var1=salut@okok@coucou"
Donnerais donc 3 variables, salut, okok, et coucou
ensuite regarder si dans Var2,var3 et var on retrouve un de ces 3 mots ..
Mais je ne sais pas trop utiliser les fonction boucles ...

Merci !
18/01/2008, 16h23
myrddin772

Je crois que la recherche est plus complexe que ça... puisque :

Citation:

Envoyé par Toine45

On voit bien que 'salut' apparait dans les 4 variables .. je voudrais un msgbox qui me dit que 'salut' apparait bien dans les 4 ...

Mais sans rechercher 'salut' en rechercher un mot qui apparait 4 fois ...
Si quelqu'un m'a compris :)
Merci ! :mrgreen:

Faudrait-il chercher chaque "mot" d'au moins 2 caractères dans toutes les variables... du genre :
Rechercher tous les mots de 2 car dans les chaines.
puis rechercher tous les mots de 3 car dans les chaines.
...
18/01/2008, 16h29
trollinou
Oui j'ai oublié d'initialiser le tableau :oops:
Code:

1 2 Dim Tableau(4)
ou
Code:

1 2 3 Dim Tableau() Redim Tableau(4)
Ensuite, si tu veux découper ta première variable, il faut que ce soit normé sinon ça risque d'être coton.

Ben pour les boucles, il y a plusieurs possibilités, regarde dans les tutos, je vais voir aussi si je trouve un lien a te filer.
[edit] http://www.developpez.com/vbasic/tut...tutoriel13.php

Merci a vous tous, je pense que j'y suis presque :oops: :

Code:

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
Dim monTab() As String
Dim strSearch As String
Dim X As Integer
Dim Cnt As Integer
 
Dim mesvariables() As String
ReDim mesvariables(0)
ReDim mesvariables(1)
ReDim mesvariables(2)
 
mesvariables(0) = strMessage2
mesvariables(1) = strMessage3
mesvariables(2) = strMessage4
 
 
monTab = Split(strMessage1, "@")
strSearch = monTab(1)
 
 
Cnt = 0
For X = 0 To UBound(monTab)
  If InStr(1, strSearch, mesvariables(X)) > 0 Then
    Cnt = Cnt + 1
  End If
Next X
 
If Cnt = UBound(monTab) Then
   MsgBox "le mot : " & strSearch & " est présent dans toutes les variables"
End If

Mais marche pô ! :s

18/01/2008, 16h36
trollinou

Oki je vois ce que voulais dire Myrddin .......

Il faut imbriquer les boucles sur deux tableaux pour faire la recherche de chaque variable dans le second tableau.

Code:

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
 
Dim Tableau(2) as String
Dim Tableau1(2) as String
Dim StrSearch as String
Dim i as integer
Dim j as integer
 
Tableau(0) = "Salut toto"
Tableau(1) = "Salut"
Tableau(2) = "Salut OK"
 
Set Tableau1 = Tableau
 
For i = 0 to Ubound(Tableau)
strSearch = Tableau(i)
	For j = 0 to Ubound(Tableau1)
		If strSearch = Tableau1(j) Then
			cnt = cnt + 1
		End if
	Next j
Next i
 
If Cnt = UBound(Tableau) Then
	MsgBox "le mot : " & strSearch & " est présent dans toutes les variables"
End If

Va falloir améliorer quand même

Voila j'ai reussi ! :

Code:

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
'decoupe de strmessage1
 
Dim monTab() As String
Dim strSearch As String
Dim X As Integer
Dim Y As Integer
Dim Cnt As Integer
 
Dim mesvariables() As String
ReDim mesvariables(0)
ReDim mesvariables(1)
ReDim mesvariables(2)
 
mesvariables(0) = strMessage2
mesvariables(1) = strMessage3
mesvariables(2) = strMessage4
monTab = Split(strMessage1, "@")
 
For Y = 0 To UBound(monTab) - 1
 
strSearch = monTab(Y)
 
 
'MsgBox strSearch
 
 
Cnt = 0
For X = 0 To UBound(mesvariables)
  If InStr(mesvariables(X), strSearch) > 0 Then
    Cnt = Cnt + 1
  End If
Next X
 
If Cnt = UBound(mesvariables) + 1 Then
   MsgBox strSearch & " a declenché au moins une fois par semaine"
   Else
  ' MsgBox "ya pas " & strSearch
   End If
 
Next Y

:king:

20/01/2008, 21h02
AlainTech

Citation:

Envoyé par Toine45

Voila j'ai reussi !

Un petit clic sur le bouton :resolu:, en bas de discussion pour le signaler à ceux qui cherchent à aider?

Merci