Discussion :

[speedservice]

Bonjour,

Lorsque je flashe un Datamatrix en Base256, j’obtiens la liste des caractères Ascii suivants :

([HT]tŸ[NUL]š[ETB]”À[NUL][EOT]#s[STX]iòØ—sb§†ÂŒ‰"W°òÑ]z$yùïµÛÙC¿µFJ]èË[CR]

Je souhaiterais pouvoir récupérer la valeur de chaque code Ascii.

Merci d'avance pour votre aide.

SpeedService

[Pierre Fauconnier]

Salut.

Voilà une fonction qui réalise cela et renvoie un tableau indicé 1 des codes ascii de la chaine passée

Code :

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

1
2
3
4
5
6
7
8
9
Function AsciiList(Value As String)
  ReDim t(1 To Len(Value))
 
  Dim i As Long
  For i = 1 To Len(Value)
    t(i) = Asc(Mid(Value, i, 1))
  Next
  AsciiList = t
End Function

[speedservice]

merci, mais il me reste une conversion exemple : [HT] en 009 à solutionner ?

[patricktoulon]

regarde peu etre par ici
https://en.wikibooks.org/wiki/Visual...Hashing_in_VBA

[pijaku]

Bonjour,

Une autre version :

Code :

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

1
2
3
Function CarToAscii(s As String) As Byte()
   CarToAscii = StrConv(s, vbFromUnicode)
End Function

[pijaku]

Bonjour,

Pas compris... Désolé.

Comment le(s) code(s) ascii de [HT] pourraient donner 009 ?

[speedservice]

Bonjour,

Pas compris... Désolé.

Comment le(s) code(s) ascii de [HT] pourraient donner 009 ?

Je me suis mal exprimée :
Tabulation horizontale : "HT" en ASCII = 09

[pijaku]

Dans ton code d'appel, utilise la fonction Replace pour remplacer [HT] par une tabulation (Chr(9)) :

Code :

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

1
2
3
4
5
6
Sub demo()
Dim s As String, tb() As Byte
   s = "([HT]tŸ[NUL]š[ETB]”À[NUL][EOT]#s[STX]iòØ—sb§†ÂŒ‰""W°òÑ]z$yùïµÛÙC¿µFJ]èË[CR]"
   s = Replace(s, "[HT]", Chr(9))
   tb = CarToAscii(s)
End Sub

Idem pour les autres particularités : [CR] etc...

[Pierre Fauconnier]

, Franck,

Je pense rarement à strconv