Caractère générique dans instruction INSTR [Résolu]

Messages postés
62
Date d'inscription
mardi 25 mars 2003
Dernière intervention
16 octobre 2007
- - Dernière réponse : crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Dernière intervention
9 juin 2006
- 8 mars 2006 à 16:24
Bonjour,





Je souhaite inclure dans la chaîne de texte à chercher de ma fonction INSTR(ouf !!) un caractère générique.


Je m’explique :


Je cherche dans un fichier texte, un ou des chaînes de texte du style : « Dede.hmtl/user.id=2256.html »


Je peux avoir aucune, une ou plusieurs chaînes. La seule chose qui change, et que je ne connais pas à l’avance, est le numero ID du User inclus dans la chaîne. Dans mon exemple le : 2256. Je n’ai aucun moyen de le récupérer avant.


En faites dans ma fonction INSTR il faudrait que j’ajoute un caractère générique du type « * ». Comme ceci :


If instr(1,Texte, « Dede.hmtl/user.id=”&”*”&”.html”) <>0 then


Comment faire ?


Merci d’avance


Zoglub
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Dernière intervention
9 juin 2006
3
Merci
Utilises l'opérateur Like

If Str Like "Dede.hmtl/user.id=*.html" Then
' La chaine est a priori OK
EndIf

Christophe R

Merci crenaud76 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 105 internautes ce mois-ci

Messages postés
3181
Date d'inscription
dimanche 15 février 2004
Dernière intervention
9 avril 2017
0
Merci
Salut,

Pourquoi un If ? , tu veut ajouter un caractère, pas besoins de condition

Dim Str As String
Str = "Dede.hmtl/user.id=2256.html"
Str = Left(Str, InStrRev(Str, "=")) & "*" & Right(Str, Len(Str) - InStrRev(Str, "="))

Kenji

Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
Messages postés
3181
Date d'inscription
dimanche 15 février 2004
Dernière intervention
9 avril 2017
0
Merci
Petite erreur,
J'ai ajouter "*" après le "=" au lieu d'après le "."

Dim Str As String
Str = "Dede.hmtl/user.id=2256.html"
Str = Left(Str, InStrRev(Str, ".")) & "*" & Right(Str, Len(Str) - InStrRev(Str, "."))

Voilà,

Kenji

Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.