Discussion :

[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 :

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

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 :

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

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

[Ehjoe]

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 :

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

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 :

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

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 :

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

1
2
3
4
 
while ...
  msgbox("Le test est passé, ok")
loop

[Nathanael Marchand]

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

[PeD012]

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

[PeD012]

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

[Nathanael Marchand]

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

[PeD012]

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 ....