RECHERCHE D'UNE CHAINE DANS UNE AUTRE + GESTION D'ERREUR + COMMENTAIRE
cs_ABF
Messages postés
227
Date d'inscription
samedi 21 mai 2005
Statut
Membre
Dernière intervention
26 avril 2012
-
17 févr. 2006 à 16:50
Utilisateur anonyme - 7 juil. 2006 à 15:29
Utilisateur anonyme - 7 juil. 2006 à 15:29
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/36114-recherche-d-une-chaine-dans-une-autre-gestion-d-erreur-commentaire
https://codes-sources.commentcamarche.net/source/36114-recherche-d-une-chaine-dans-une-autre-gestion-d-erreur-commentaire
7 juil. 2006 à 15:29
1 avril 2006 à 01:26
et en resultat s'afich tt les info consernon cee livre
merci
18 févr. 2006 à 18:54
18 févr. 2006 à 09:49
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
18 févr. 2006 à 01:46
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.
17 févr. 2006 à 22:49
1-meme si,je peux me tromper,tu ne cainnaisser pas la fonction instr ou meme instrrev, tu as penser a creer une solution au cas present.bien pensé
17 févr. 2006 à 19:54
DarK Sidious
17 févr. 2006 à 19:34
17 févr. 2006 à 18:51
Justement, j'ai fait cela pour les débutants qui voudraient s'initier aux boucles mais aussi pour expliquer comment fonctionne cette fonction VB. Et je pense qu'avec ma source il est possible de faire des chose plus chiadés en la modifiant qu'avec Instr.
ABF
17 févr. 2006 à 18:17
17 févr. 2006 à 18:16
Il ya deja une fonction en VB pour faire ca ;)
InStr(La_Ou_On_Commence_A_Chercher, String_Dans_Laquelle_Chercher, String_A_Trouvé)
exemple:
Chaine = "totoabcdMuhahahaLOL32687"
Position = Instr(0, Chaine, "LOL")
On a position qui vaut : 17
Voila @++
17 févr. 2006 à 16:50
Oups Désolé pour l'.exe je l'ai vu trop tard
Merci de laisser vos commentaire et notes.
ABF