RECHERCHE D'UNE CHAINE DANS UNE AUTRE + GESTION D'ERREUR + COMMENTAIRE

Commentaire de babboss le 17/02/2006 18:16:19

Salut,
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 @++

Commentaire de ABF le 17/02/2006 18:51:22

Bonsoir,

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

Commentaire de DARKSIDIOUS le 17/02/2006 19:54:55 administrateur CS

Oui tout à fait, surtout que la fonction InStr doit être plus rapide que la tienne, donc évitez d'utiliser cette fonction si votre seul but est de trouver l'occurence d'une chaîne dans une autre : la fonction InStr donnera le même résultat en plus rapide.

DarK Sidious

Commentaire de katsankat le 18/02/2006 01:46:42

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.

Commentaire de ABF le 18/02/2006 18:54:41

Voilà : "améliorations"