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 ?

Whismeril · Answer

Bonsoir

tu connais les regex?

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.

ravida_1351 · Answer

In VB6, you can use the InStr function with the Like operator to find the position of a wildcard string in another string. Here's an example:

Dim myString As String
myString = "This is a test string 91 91 9A 91 CF"

Dim searchPattern As String
searchPattern = "91 91 9? 91 CF"

Dim startPosition As Integer
startPosition = InStr(1, myString, searchPattern, vbTextCompare)

If startPosition > 0 Then
    ' Match found, startPosition contains the starting position of the match
    Debug.Print "Match found at position " & startPosition
Else
    ' No match found
    Debug.Print "No match found"
End If

In the above example, the InStr function is used to find the starting position of the searchPattern string in myString. The vbTextCompare parameter is used to perform a case-insensitive comparison.

Note that the InStr function returns 0 if no match is found, so we check if startPosition is greater than 0 to determine if a match was found.

I hope this helps!

Problème de recherche de position dans une chaine.

5 réponses

Votre réponse

Discussions similaires