[VB6] Fonction inStr incorrecte

Bonjour à tous,

Voilà je viens vous exposer un problème assez bizzard, mais je ne trouve pas de solution à ce problème :cry:

Au départ, je souhaite savoir si un caractère est présent dans une string ou pas, et pour cela j'utilise la fonction inStr.

Le problème est que celle-ci me donne des droles de résultats, et ne fonctionne pas correctement.

Par exemple, si j'utilise ce code :

Code:

---

1 2 3 4 5 6

Dim caractereRecherche As String Dim ChaineALire As String ChaineALire = ListeEntity(i).WholeName(j) 'est égale à "dddddddddd ? ????" caractereRecherche = "?" Dim res As Integer res = InStr(1,ChaineALire ,caractereRecherche , vbTextCompare

---

Le résultat me donne 0. Le problème est qu'il y a bien le caractère "?" dans la chaine.

Si en revanche, je fais le code suivant, ca fonctionne correctement :

Code:

---

1 2 3 4 5

Dim caractereRecherche As String Dim ChaineALire As String caractereRecherche = "?" Dim res As Integer res = InStr(1,"dddddddddd ? ????","?" , vbTextCompare

---

Ca retourne 12, donc ca fonctionne bien.

J'ai bien essayé de convertir mon ListeEntity(i).WholeName(j) en string avec la fonction Cstr, mais ca ne change rien (c'est déja un string en plus).
J'ai essayé de changer de type de comparaison, de binaire à texte, mais rien ne se passe également, ca retourne toujours 0.

Enfin, si j'essaye de recherche un autre caractère, ca fonctionne bien !

Code:

---

1 2 3 4 5 6

Dim caractereRecherche As String Dim ChaineALire As String ChaineALire = ListeEntity(i).WholeName(j) 'est égale à "dddddddddd ? ????" caractereRecherche = "d" Dim res As Integer res = InStr(1,ChaineALire ,caractereRecherche , vbTextCompare

---

Ca va bien me retourner 1.

C'est un problème assez bizzard, mais peut-etre avez-vous déja eu le cas.

Mon but étant juste de savoir si le caractère "?" est présent, je n'ai pas besoin de connaitre sa position.

Une autre fonction existe peut-etre pour cela ?

D'avance merci, et j'espère que mon problème est assez claire :?

Je ne vois qu'une possiblilité, ton texte ne contient pas le ?
Comment sais tu qu'il existe dans ta chaine ? par un dump de ta variable ?
dans ce cas tu devrais faire une petite routine qui dump le contenu de ta vartiable en format hex, car il arrive que l'affichage de certains textes pose des difficultés dans une certaine police.

Code:

---

for ipnt= 1 to len(MaChaine): print ipnt,asc(mid(machaine,ipnt,1)):next

---

Effectivement, ca provient surement de la police, car en faite je récupère des noms d'un fichier XML, mais certains sont en arabes, et vb ne reconnais pas la police, du coup il remplace ces caractères arabes par des "?".
Cependant, quand je vérifie avec le débugger, il y a bien la présent de "?" :?

Si je fais :

Code:

---

1 2 3 4 5 6 7

Dim caractereRecherche As String Dim ChaineALire As String ChaineALire = ListeEntity(i).WholeName(j) 'est égale à "dddddddddd ? ????" msgBox ChaineALire caractereRecherche = "?" Dim res As Integer res = InStr(1,ChaineALire ,caractereRecherche , vbTextCompare

---

Le msgBox me retourne bien : "dddddddddd ? ????"

à mon avis si c'est une transformation de VB, alors le code ascii du point d'interrogation de ta chaine n'est pas le même que le point d'interrogation conventionnel.

C'est un caractère générique qui veut dire "caractère inconnu" c'est tout.

Pour vérifier retourne le code ascii de chaque caractère de ta chaîne à lire, tu en auras le coeur net.

Il me retourne le code ascii 63, ce qui correspond bien au point d'interrogation "?".:(

comment obtiens-tu ça ? fait voir ton code ...

Comme ceci, dans une boucle FOR :

Code:

---

msgbox Asc(mID(NoeudBaliseName.Text, Q, 1))

---

Au final, pour éviter ce problème, j'ai fait comme ceci :

Code:

---

1 2 3 4 5 6 7

For Q = 1 To Len(NoeudBaliseName.Text) If Asc(mID(NoeudBaliseName.Text, Q, 1)) = 63 Then AExclure = True ListeEntity(i).WholeName(j) = "" Exit For End If Next Q

---

Malgrès tout, ca prend plus de temps je pense, mais ca fonctionne...

J'aimerais tout de meme comprendre pourquoi inStr ne fonctionne pas, c'est un mystère pour moi !

j'aurais bien voulu que tu mettes le test pile poil à l'endroit qui déconnait .. avec en entrée de ta boucle for

ListeEntity(i).WholeName(j)

Perso je pense que le problème ne vient pas de la fonction InStr mais de ta chaine. J'ai essayé ceci (au passage j'ai enlevé certain paramètres de la fonction InStr) :

Code:

---

1 2 3 4 5 6 7 8

Dim caractereRecherche As String Dim ChaineALire As String ChaineALire = "dddddddddd ? ????" caractereRecherche = "?" Dim res As Integer res = InStr(ChaineALire, caractereRecherche) MsgBox res

---

Et cela retourne bien 12.
Par contre j'ai du mal à suivre : la chaine que tu "analyse" est ListeEntity(i).WholeName(j) ou bien NoeudBaliseName.Text ?