RECHERCHE DANS UNE STRING (ASTERISQUE, ÉTOILE)

Signaler
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004
-
Messages postés
30
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
3 mai 2004
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/4532-recherche-dans-une-string-asterisque-etoile

Messages postés
30
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
3 mai 2004

moi je trouve plus simple->

if "*bonj*vb*e" Like "Bonjour Vb France !" then

(lol)
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014

Bin sur que c'est utile, si jme souvient bien Like n'est pas en ASP (ASP = VB + HTML), alors cette function serais très utile surtout sur ASPfr.com

@+
Messages postés
28
Date d'inscription
mardi 2 juillet 2002
Statut
Membre
Dernière intervention
3 décembre 2005

merci au fete pour cette astuce, je savais que cette operteur existait sous SQL mais j'avais jamais essayé en vb.. envore un truc qui sert a rien ;(
Messages postés
466
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
20 avril 2007

Exact, en plus tu pouvais quand même faire moins long, genre :

Private Function MieuxQueAsterisk(ByVal NomEntier As String, ByVal Nom As String) As Boolean
Dim i, j As Integer
If String(Len(Nom), "*") = Nom Then
MieuxQueAsterisk = True
Exit Function
End If
i = 0
j = 1
Do
i = i + 1
If Mid(Nom, i, 1) = "*" Then
Do
i = i + 1
Loop Until Mid(Nom, i, 1) <> "*" Or i = Len(Nom)
If i > Len(Nom) Then i = Len(Nom)
Do Until Mid(NomEntier, j, 1) = Mid(Nom, i, 1) Or j >= Len(NomEntier)
j = j + 1
Loop
End If
If Mid(NomEntier, j, 1) <> Mid(Nom, i, 1) And Mid(Nom, i, 1) <> "*" Then
MieuxQueAsterisk = False
Exit Function
Else
j = j + 1
End If
Loop Until j >= Len(NomEntier)
MieuxQueAsterisk = True
End Function

(fais en 10-15 minutes, à optimiser je pense...)
C'est tjrs bon de développer des codes existants pour les débutants... ici l'opérateur LIKE
Tch@o
Afficher les 6 commentaires