Comparer un caractere en hexadecimal : syntaxe? pour definir une constante hexa

Pouff! Parfois je me dis que je ne suis pas trop malin, ou que je n'ai pas bien cherché dans les forums, ou dans la doc; parfois aussi je me dis que l'on pourrait faire simple......

Mon bête problème : j'ai un champ qui contient des caractères à remplacer par des espaces.
Ces caractères ne sont pas des caractères de type lettres ou chiffres : du genre en hexa 0D 0A ...
Je me réfère à la traduction ASCII via UltraEdit et j'obtiens ceci ( extrait)
pour mon champ ZCMP013A :

0D 0A 0D 0A 43 52 45 41 54 45 ...
5B 49 4E 52 5F 49 44 5D 20 5B ...

où 5B est le caractère [ que je veux par exemple remplacer par un espace .

Voilà tout ce que j'ai essayé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

While InStr(ZCMP013A, Hex(91)) <> 0 ZCMP013A = Replace(ZCMP013A, Hex(91), "") End While While InStr(ZCMP013A, Asc(91)) <> 0 ZCMP013A = Replace(ZCMP013A, Asc(91), "") End While While InStr(ZCMP013A, Hex("91")) <> 0 ZCMP013A = Replace(ZCMP013A, Hex(“91”), "") End While While InStr(ZCMP013A, Asc("91")) <> 0 ZCMP013A = Replace(ZCMP013A, Asc(“91”), "") End While While InStr(ZCMP013A, Asc("95")) <> 0 ZCMP013A = Replace(ZCMP013A, Asc(“95”), "") End While While InStr(ZCMP013A, Hex(&H5B)) <> 0 ZCMP013A = Replace(ZCMP013A, Hex(&H5B), "") End While While InStr(ZCMP013A, &H5B) <> 0 ZCMP013A = Replace(ZCMP013A, &H5B, "") End While While InStr(ZCMP013A, "&H5B") <> 0 ZCMP013A = Replace(ZCMP013A, “&H5B”, "") End While While InStr(ZCMP013A, Val(&H5B)) <> 0 ZCMP013A = Replace(ZCMP013A, Val(&H5B), "") End While While InStr(ZCMP013A, "[") <> 0 ZCMP013A = Replace(ZCMP013A, "[", " ") End While

---

il n'y a que la dernière comparaison qui satisfait à la condition c'est à dire

Code:

---

1 2 3

While InStr(ZCMP013A, "[") <> 0 ZCMP013A = Replace(ZCMP013A, "[", " ") End While

---

or [ en ascii egale 5B . mais je ne trouve pas la bonne syntaxe


Quelqu'un peut il me donner des indications sur la syntaxe?

Merci


Pierre

Citation:

---

Envoyé par PeD012

Pouff! Parfois je me dis que je ne suis pas trop malin, ou que je n'ai pas bien cherché dans les forums, ou dans la doc; parfois aussi je me dis que l'on pourrait faire simple......

Mon bête problème : j'ai un champ qui contient des caractères à remplacer par des espaces.
Ces caractères ne sont pas des caractères de type lettres ou chiffres : du genre en hexa 0D 0A ...
Je me réfère à la traduction ASCII via UltraEdit et j'obtiens ceci ( extrait)
pour mon champ ZCMP013A :

0D 0A 0D 0A 43 52 45 41 54 45 ...
5B 49 4E 52 5F 49 44 5D 20 5B ...

où 5B est le caractère [ que je veux par exemple remplacer par un espace .

Voilà tout ce que j'ai essayé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

While InStr(ZCMP013A, Hex(91)) <> 0 ZCMP013A = Replace(ZCMP013A, Hex(91), "") End While While InStr(ZCMP013A, Asc(91)) <> 0 ZCMP013A = Replace(ZCMP013A, Asc(91), "") End While While InStr(ZCMP013A, Hex("91")) <> 0 ZCMP013A = Replace(ZCMP013A, Hex(“91”), "") End While While InStr(ZCMP013A, Asc("91")) <> 0 ZCMP013A = Replace(ZCMP013A, Asc(“91”), "") End While While InStr(ZCMP013A, Asc("95")) <> 0 ZCMP013A = Replace(ZCMP013A, Asc(“95”), "") End While While InStr(ZCMP013A, Hex(&H5B)) <> 0 ZCMP013A = Replace(ZCMP013A, Hex(&H5B), "") End While While InStr(ZCMP013A, &H5B) <> 0 ZCMP013A = Replace(ZCMP013A, &H5B, "") End While While InStr(ZCMP013A, "&H5B") <> 0 ZCMP013A = Replace(ZCMP013A, “&H5B”, "") End While While InStr(ZCMP013A, Val(&H5B)) <> 0 ZCMP013A = Replace(ZCMP013A, Val(&H5B), "") End While While InStr(ZCMP013A, "[") <> 0 ZCMP013A = Replace(ZCMP013A, "[", " ") End While

---

il n'y a que la dernière comparaison qui satisfait à la condition c'est à dire

Code:

---

1 2 3

While InStr(ZCMP013A, "[") <> 0 ZCMP013A = Replace(ZCMP013A, "[", " ") End While

---

or [ en ascii egale 5B . mais je ne trouve pas la bonne syntaxe


Quelqu'un peut il me donner des indications sur la syntaxe?

Merci


Pierre

---

Bonjour Pierre,

Peux-tu déjà regarder si c'est le test qui ne va pas ou l'instruction dedans, soit :

Code:

---

1 2 3 4

while ... msgbox("Le test est passé, ok") loop

---

Une expression régulière ne serait elle pas plus adaptée que ca?

A HeJoe,

Je fais un trace ( deboguage ? pas a pas) et c'est le test qui est non satisfait : je ne rentre pas dans l'instruction après le while donc c'est vraiment la syntaxe de la représentation Hexa du caractère [ ou donc son code ascii 5

D'ailleurs quand je teste avec "[" je réussis bien à transfromer le caractère.
Mon problème est juste comment présenter formellement ce test.


Pierre

Citation:

---

Une expression régulière ne serait elle pas plus adaptée que ca?

---

Désolé, je ne comprends pas ce que tu veux dire.
Mais je suis fort nouveau en .NET


Pierre

Une expression régulière permet de détecter des motifs dans une chaine de caractère pour notamment y faire des remplacements.
Tu peux par exemple trouver tous les caractères qui ne sont pas des lettres.

Articles complets:
http://stormimon.developpez.com/dotn...ns-regulieres/ (C'est du C# mais facilement transposable en VB.Net)
http://dotnet.developpez.com/faq/vbn...x_remplacement
http://msdn.microsoft.com/fr-fr/libr...ons.regex.aspx
http://msdn.microsoft.com/fr-fr/library/hs600312.aspx

A Nathanael,

Effectivement l'expression régilière serait plus "régulier" à utiliser, plus dans les standards.
Mais cela ne resout pas mon problème : comment écrire dans une expression, une instruction la représentation hexa code ascii de ¨[


est ce &h5B, hex(5B) , val(&h5B) , etc
Dans tous les emples que j'ai montré, aucun n'a été signalé avec une erreur de syntaxe, ce qui est quand même bizarre.

En bref comment faire : IF mid(ZCMP013,1,1) = "["
mais en donnant la valeur HExa de [.

Remarque : je sais évidemmebt dans ce cas ci tester avec le caractère "imprimable", "visible" [ mais comment faire pour tester des bytes qui contiennent 0D, ou 0A ....

Chez moi, ce code marche:

Code:

---

1 2 3

Dim bla As new String("bla[bli]blo") bla = Replace(bla,Chr(&h5B)," ") bla = Replace(bla,Chr(&h5D)," ")

---

et m'affiche

Citation:

---

bla bli blo

---

Nathanael,

C'est exactement OK comme tu fais.

Je venais de préparer ma réponse après recherche où j'avais également trouver CHR ( et non pas HEX... )

Citation:

---

Bingo !

Après recherches et essais ( perte de temps ! en tout cas, consommation de temps !! ), voici ce qu'il faut faire.
Ne pas être omnubilé par le mot "conversion" mais simplement par la représentation.
Utiliser non pas HEX mais bien CHR

Code:

---

1 2 3

While InStr(ZCMP013A, chr(91)) <> 0 ZCMP013A = Replace(ZCMP013A, chr(91), "") End While

---

Donc le code qui fonctionne est

---

Tu m'as devancé mais un tout grand merci.

Bonne soirée

Pierre

N'oublie pas de cliquer sur :resolu: si la réponse te convient :)

OK mais comme je suis assez nouveau ici, j'avais mis résolu dans le titre, sans voir le bouton.


Salut

Pierre