Recherche d'une chaine dans une autre + gestion d'erreur + commentaire

0/5 (12 avis)

Vue 14 952 fois - Téléchargée 1 563 fois

Description

Bonjour,
J'ai fait cette fonction qui permet la recherche d'un caractère ou d'une chaine de caractère dans une chaine.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
parker13
Messages postés
33
Date d'inscription
vendredi 18 octobre 2002
Statut
Membre
Dernière intervention
31 mars 2009

7 juil. 2006 à 15:29
Mais comment faire une recherche d'une chaine de caractères dans un fichier ?
Rahemm
Messages postés
3
Date d'inscription
mardi 28 mars 2006
Statut
Membre
Dernière intervention
3 avril 2006

1 avril 2006 à 01:26
slt merci pour le code mais slp vous pouver m'aide a faire un code de recherch sur un bas de donne (titre de livre par ex)
et en resultat s'afich tt les info consernon cee livre
merci
cs_ABF
Messages postés
227
Date d'inscription
samedi 21 mai 2005
Statut
Membre
Dernière intervention
26 avril 2012

18 févr. 2006 à 18:54
Voilà : "améliorations"
cs_ABF
Messages postés
227
Date d'inscription
samedi 21 mai 2005
Statut
Membre
Dernière intervention
26 avril 2012

18 févr. 2006 à 09:49
Bonjour,

J'ai testé la rapidité des 2 codes soit : Instr() et ma fonction et y'a pas photo , la fonction est plus lente.
Pour katsankat: j'ai dit plus haut qu'il était possible d'allonger les possibilités de paramètres commes celles que tu as cité. De plus, pour les variants, y'a juste à mettre les variables les unes au dessous des autres donc je vais refaire cela dès que possible (pas complet car ce n'est pas mon objectif principale et que la ci belle fct Instr() existe).
Voila

Merci de vos commentaires.

ABF
katsankat
Messages postés
571
Date d'inscription
vendredi 30 décembre 2005
Statut
Membre
Dernière intervention
12 juillet 2012
3
18 févr. 2006 à 01:46
Bonjour,

Si c'est fait pour expliquer comment fonctionne InStr, il reste des choses à faire car InStr():

- accepte un argument supplémentaire: la position de départ
- prend également un 4e paramètre, facultatif (comparaison binaire et respect de la casse).
- retourne 0 si la chaine 1 est nulle
- retourne 0 si la chaine 2 est introuvable
- retourne 0 si posdépart > len(chaine2)
- retourne NULL si string 1 est NULL
- retourne NULL si string 2 est NULL
- retourne posdepart si string2 est de longueur nulle
- sinon retourne la position à laquelle la chaine 1 est trouvée.
Or la fonction ne retourne rien.

Déclarer 7 variants ça fait beaucoup juste pour obtenir une position.
J' explique: en faisant
Dim a, b, FinTxt, LongTxtTot, LongTxtRech As Long

Dim L1TxtTot, L1txtRech, MotTxt, MotRech As String
Tu déclares 7 variants, 1 long et 1 string. Un variant est stocké sur 22 octets+la longueur de la chaîne...

Dans:
MotRech = vbNullString

LongTxtRech = Len(MotRech)
...La fonction len() pourrait être évitée.

C'est un bon début.
Afficher les 12 commentaires

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.