Problème de recherche de position dans une chaine.

Question

Bonjour,

En VB6, INSTR et LIKE permettent ensemble de trouver une position de chaine dans une autre mais c'est lourd d'associer les deux.
N'y a-t-il pas une procédure simple pour trouver la position d'une chaine avec joker dans une autre chaine ?

Plus précisément, mon problème est de simplifier la recherche de la position d'un truc comme "91 91 9? 91 CF" dans une chaine longue, le ? étant le joker du code variable.

Avec Like, je peut savoir que la chaine existe bien parce que ? vaut n'importe quelle valeur entre 0 et F, ça marche mais je n'ai pas la position en retour par contre, ce qui m'oblige à refaire un autre test pour obtenir cette dernière ...

Ensuite, avec INSTR je dois calculer l'écart entre les 3 morceaux de chaine, vérifier la concordance, bref c'est chiant et lourd.
C'est vrai qu'entre 90 et 9F ça ne fait que 16 tests, mais bon si je tombe sur ?? je suis pas dans la m...

----------------------------- exemple---
Line Input #libre4, tout$                               ' lire tout le fichier texte, vérification de la pertinence du fichier concerné
rechercher$ = "91 91 9? 91 CF"

toto = tout$ Like "*" & rechercher$ & "*"
    If toto = True Then
        CodeSpecial.Text = "Trouvé " & rechercher$ & " dans " & Len(tout$)
    Else
        ...
     End if
-------------------------

Si vous avez une piste cela m'aiderai bien, merci d'avance :-)

NHenry · Answer

Autre solution, faire un Split sur le caractère puis un Join avec la valeur de remplacement ?

J'interviens principalement en VB6, VB.NET et C#, mais la modération m'amène souvent sur d'autre langages.
En VB.NET pensez à activer "Option Explicit" et "Option Strict".

Whismeril · Answer

Bonsoir

tu connais les regex?

Quand j'étais petit, la mer Morte n'était que malade.
George Burns

JeuDuTaquin · Answer

Salut,

Ce serai plus simple de mettre tes valeurs hexa dans un tableau avec un Split.
Tu gagnera en rapidité et traitement, en testant le n+0 ("91") et le n+4 ("CF")

Puis tu reforme ton fichier texte, mais là, on perd du temps...

En mode texte, tu dois couper ton texte avec un Right$() pour gagner du temps, en sauvegardent l'offset incrémental pour réduire la taille de la chaîne. Dans une variable de travail temporaire, bien sûr.

Après, il faut reconstruire la chaîne comme le précise NHenry.

Mais Whismeril fervent défenseur des Regex, te propose la solution la plus simple...

Whismeril · Answer

Non, le plus simple serait déjà de laisser tomber vb6 (je le rappelle, ce langage est obsolète depuis 20 ans...).

Les outils "de base" de VB.Net sont plus simples d'emplois. Et là aussi, on peut trouver des regex, mais pas que.

Quand j'étais petit, la mer Morte n'était que malade.
George Burns

Problème de recherche de position dans une chaine.

4 réponses

Votre réponse