发送字符串到它的十六进制等效

Question

我想发送hex命令到我的设备，因为它只能理解hex。

正因为如此我设法创建一个可以验证，如果用户输入这是一个string有有效相应hex功能。问题是here。

因此，通过验证users input是否具有相应的hex等价物，我确信我的系统发送的内容将被我的设备读取。 By searching我意识到，这需要被转换为字节，它指出

使用ASCIIEncoding类convtert字符串字节 的阵列可以传送。

代码：

Dim str as String = "12345678" 
Dim bytes() as Byte = ASCIIEncoding.ASCII.GetBytes(strNumbers) 
' Then Send te bytes to the reader 
sp.Write(bytes, 0, bytes.Length) 

你并不需要的值隐蔽，以十六进制，在这种情况下HEX是 mearly显示同样的事情不同的方式。

我的代码：

'This is a string with corresponding hex value 
Dim msg_cmd as string = "A0038204D7" 
'Convert it to byte so my device can read it 
Dim process_CMD() As Byte = ASCIIEncoding.ASCII.GetBytes(msg_cmd) 
'Send it as bytes 
ComPort.Write(process_CMD, 0, process_CMD.Length) 

我的输出：

41 30 30 33 38 32 30 34 44 37 

所需的输出：

A0 03 82 04 D7 

Answer 1

要发送的字节的特定序列，不发一个字符串 - 只需发送字节：

Dim process_CMD() As Byte = { &HA0, &H03, &H82, &H04, &HD7 } 
ComPort.Write(process_CMD, 0, process_CMD.Length) 

正如我在上面的评论中提到的那样，这些值只是数值。关于十六进制没有什么特别的。十六进制是表示相同值的另一种方式。通过使用appropriate overload

Dim process_CMD() As Byte = { 160, 3, 130, 4, 215 } 
ComPort.Write(process_CMD, 0, process_CMD.Length) 

如果你有一个字符串的十六进制数字，你可以一个十六进制数字的字符串表示转换为字节值：换句话说，上面的代码不完全一样的东西，因为这的Convert.ToByte方法。然而，这只是一次一个字节的转换，所以，首先你需要分割字符串转换成字节（每个字节两个十六进制数字。比如：

Dim input As String = "A0038204D7" 
Dim bytes As New List(Of Byte)() 
For i As Integer = 0 to input.Length Step 2 
    bytes.Add(Convert.ToByte(input.SubString(i, 2), 16) 
Next 
Dim process_CMD() As Byte = bytes.ToArray() 
ComPort.Write(process_CMD, 0, process_CMD.Length) 

但是，如果字符串有空间会更容易。字节之间。然后，你可以只使用String.Split方法：

Dim input As String = "A0 03 82 04 D7" 
Dim hexBytes As String() = input.Split(" "c) 
Dim bytes As New List(Of Byte)() 
For Each hexByte As String in hexBytes 
    bytes.Add(Convert.ToByte(hexByte, 16) 
Next 
Dim process_CMD() As Byte = bytes.ToArray() 
ComPort.Write(process_CMD, 0, process_CMD.Length) 

或者更简单地说：

Dim input As String = "A0 03 82 04 D7" 
Dim process_CMD() As Byte = input.Split(" "c).Select(Function(x) Convert.ToByte(x, 16)).ToArray() 
ComPort.Write(process_CMD, 0, process_CMD.Length)