Décodabilité BASE256 en ASCII

Version imprimable

25/05/2018, 11h35
speedservice

Décodabilité BASE256 en ASCII

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

Salut.

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

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

25/05/2018, 12h40
patricktoulon

re

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

Bonjour,

Une autre version :

Code:

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

25/05/2018, 13h23
Pierre Fauconnier

:plusser:, Franck,

Je pense rarement à strconv :oops:
31/05/2018, 09h56
speedservice

merci, mais il me reste une conversion exemple : [HT] en 009 à solutionner ?
31/05/2018, 09h59
pijaku

Bonjour,

Pas compris... Désolé.

Comment le(s) code(s) ascii de [HT] pourraient donner 009 ?
31/05/2018, 10h07
speedservice

Citation:

Envoyé par pijaku

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

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

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

Mille mercis, je n'avais pas pensé à cette façon d'opérer.
C'est tout bon, a suivre pour d'autres utilisateurs :

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
31
32
33
s = Replace(s, "[NUL]", Chr(0))
s = Replace(s, "[SOH]", Chr(1))
s = Replace(s, "[STX]", Chr(2))
s = Replace(s, "[ETX]", Chr(3))
s = Replace(s, "[EOT]", Chr(4))
s = Replace(s, "[ENQ]", Chr(5))
s = Replace(s, "[ACK]", Chr(6))
s = Replace(s, "[BEL]", Chr(7))
s = Replace(s, "[BS]", Chr(8))
s = Replace(s, "[HT]", Chr(9))
s = Replace(s, "[LF]", Chr(10))
s = Replace(s, "[VT]", Chr(11))
s = Replace(s, "[FF]", Chr(12))
s = Replace(s, "[CR]", Chr(13))
s = Replace(s, "[SO]", Chr(14))
s = Replace(s, "[SI]", Chr(15))
s = Replace(s, "[DLE]", Chr(16))
s = Replace(s, "[DC1]", Chr(17))
s = Replace(s, "[DC2]", Chr(18))
s = Replace(s, "[DC3]", Chr(19))
s = Replace(s, "[DC4]", Chr(20))
s = Replace(s, "[NAK]", Chr(21))
s = Replace(s, "[SYN]", Chr(22))
s = Replace(s, "[ETB]", Chr(23))
s = Replace(s, "[CAN]", Chr(24))
s = Replace(s, "[EM]", Chr(25))
s = Replace(s, "[SUB]", Chr(26))
s = Replace(s, "[ESC]", Chr(27))
s = Replace(s, "[FS]", Chr(28))
s = Replace(s, "[GS]", Chr(29))
s = Replace(s, "(RS]", Chr(30))
s = Replace(s, "[US]", Chr(31))
s = Replace(s, "(SP]", Chr(32))

re
bonjour

Code:

1
2
3
4
Sub test()
    s = "([HT]tŸ[NUL]š[ETB]""À[NUL][EOT]#s[STX]iòØ—sb§†ÂŒ‰""W°òÑ]z$yùïµÛÙC¿µFJ]èË[CR]"
    Debug.Print Join(convert_to_asc(s), "-")
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
Function convert_to_asc(s)
    s = Replace(s, "[HT]", vbTab)
    s = Replace(s, "[NUL]", ChrW(0))    'je suppose
    's = Replace(s, "[ETB]", "?")' a compléter
    's = Replace(s, "[EOT]", "?")' a compléter
    's = Replace(s, "[STX]", "?")' a compléter
    'etc....
    For i = 1 To Len(s): res = res & " " & Format(Asc(Mid(s, i, 1)), "0#"): Next
    'tu peux spliter par les " " pour en faire un tableau en sortie
    convert_to_asc = Split(Trim(res), " ")
End Function

resultat

Citation:

40-09-116-159-00-154-91-69-84-66-93-34-192-00-91-69-79-84-93-35-115-91-83-84-88-93-105-242-216-151-115-98-167-134-194-140-137-34-87-176-242-209-93-122-36-121-249-239-181-219-217-67-191-181-70-74-93-232-203-91-67-82-93

A ta place, je me construirai une petite fonction de remplacement des caractères spécifiques.

Voici ce que cela donne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
 
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 = Remplace(s)
   tb = CarToAscii(s)
End Sub
 
Function Remplace(s As String) As String
Dim v As Variant, i As Long, temp As String
   temp = s
   v = Array("[NUL]", "[SOH]", "[STX]", "[ETX]", "[EOT]", "[ENQ]", "[ACK]", "[BEL]", "[BS]", "[HT]", "[LF]", "[VT]", "[FF]", "[CR]", "[SO]", "[SI]", "[DLE]", "[DC1]", "[DC2]", "[DC3]", "[DC4]", "[NAK]", "[SYN]", "[ETB]", "[CAN]", "[EM]", "[SUB]", "[ESC]", "[FS]", "[GS]", "[RS]", "[US]", "[SP]")
   For i = LBound(v) To UBound(v)
      temp = Replace(temp, v(i), Chr(i))
   Next i
   Remplace = temp
End Function
 
Function CarToAscii(s As String) As Byte()
   CarToAscii = StrConv(s, vbFromUnicode)
End Function