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

zoglub14 62 Messages postés mardi 25 mars 2003Date d'inscription 16 octobre 2007 Dernière intervention - 8 mars 2006 à 14:03 - Dernière réponse : crenaud76 4172 Messages postés mercredi 30 juillet 2003Date d'inscription 9 juin 2006 Dernière intervention
- 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
crenaud76 4172 Messages postés mercredi 30 juillet 2003Date d'inscription 9 juin 2006 Dernière intervention - 8 mars 2006 à 16:24
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

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 102 internautes ce mois-ci

Charles Racaud 3181 Messages postés dimanche 15 février 2004Date d'inscription 9 avril 2017 Dernière intervention - 8 mars 2006 à 14:14
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.
Charles Racaud 3181 Messages postés dimanche 15 février 2004Date d'inscription 9 avril 2017 Dernière intervention - 8 mars 2006 à 14:17
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.