Discussion :

[jolatouf]

Bonjour,

J'ai un soucis de recherche de présence du caractère 63 dans une chaine.

Je m'explique.

Voici ma chaine : EUROPƓKE FIRMAGRUPPER

Vous Remarquerez le Ɠ

Dans une fonction si je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim valeur As String
Dim Carac As Integer
 
valeur = la chaine
 
For nCar = 1 To Len(valeur)
    Carac = Asc(Mid(valeur, nCar, 1))
    MsgBox "Valeur : " & Mid(valeur, nCar, 1) & " = " & Carac
Next

J'ai en valeur de Carac -> 63 , le chr(63) est '?' donc je penche pour une mauvaise gestion du caractère spécial.

Mais quand je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If (InStr(valeur, Chr(63))) Then
    MsgBox " Presence du caractère " & Chr(63)
End If

Il ne rentre pas dans mon test, pour lui le caractère 63 n'est pas présent dans la chaine.

Avez vous une idée?

Merci

[jolatouf]

Bon je me suis bricoler une rustine.

J'ai mis le caractère dans une cellule excel et je compare par rapport à cette cellule plutôt que à la valeur ascii.

C'est pas top mais çà tiendra faute de mieux pour le moment.

Merci

[l_autodidacte]

Salut
Ɠ : Il s'agit tout simplement d'un caractère unicode qui n'est pas pris en charge par ta configuration logicielle actuelle. Tout caractère unicode sera affiché comme étant un point d'interrogation (?).

Si tu es en VBS, la déclaration "Dim valeur As String, Carac As Integer" conduit à une erreur.
Il faut déclarer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Valeur, Carac

sans ajouter le type.

[jolatouf]

Ok,

Merci beaucoup. Je vais aller tester tous çà.

A bientôt

Après test en supprimant les types, j'ai toujours le caractères 63 sur mon caractère spécial.

Merci pour ton aide, ma rustine suffira pour ce petit bout de code sans grande importance dans mon projet.

Bonne journée