Comparaison d'une liste de string à un string
Voila, j'ai besoin de comparer un String à une liste de String.
Tout d'abord, je suis ultra débutant de quelques heures pour les infos -:)
J'ai trouvé sur le site un formule qui compare deux chaines de caractère, j'ai testé elle marche impek.
J'aimerai maintenant l'utiliser pour comparer un champs à une liste de champs.
Mon problème est que je ne sais pas comment appeler un champs typer auparavant.
Du coup je suis bloqué.
ci dessous le code :
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
|
' Prend en paramètre le String (S1) à comparer et '
' la liste de String (ListeString) attaché à un indice (IndiceString)
' Déclaration des données d'entree'
Type Enreg
Dim ListeIndice() As Long 'identifiant du string'
Dim ListeString() As String 'un string de la liste'
End Type
' Déclaration du résultat '
Type Resultat
Dim StringRes() As String 'concaténation indice et string'
End Type
Public Function ComparerStringEtListe(ByVal string1 As String, UnEnreg As Enreg)
Dim TabResult(10) As Resultat ' on prend les 10 premiers résultats'
Dim n As Byte 'indice de parcours de la liste de champs d'entree'
Dim i As Byte 'indice de rentrée des résultats en sortie'
i = 0
For n = 0 To Len(Enreg)
If (Comparer(string1, Enreg.ListeString(n)) > 0.75)
Then Resultat.SringRes(i) = Ereng.ListeIndice(n)
n = n + 1
i = i + 1
Else
n = n + 1
Next
End Sub |
Donc le if c'est du n'importe quoi, mais bon je viens de débuter VB il y a 2 heures donc faut pas m'en vouloir.
De plus, pour retourner le résultat, j'arrive pas à voir ou faut le déclarer.
Merci amis programmeurs ! -:)
