我试过搜索这个,但大多数人只想将十六进制值转换为它们的ASCII等价物.这不是我想要做的.
Private Function NibbletoString(ByVal Nibble As Byte) As String Dim retval As String = String.Empty Select Case Nibble Case &H0 retval = "0" Case &H1 retval = "1" Case &H2 retval = "2" Case &H3 retval = "3" Case &H4 retval = "4" Case &H5 retval = "5" Case &H6 retval = "6" Case &H7 retval = "7" Case &H8 retval = "8" Case &H9 retval = "9" Case &HA retval = "A" Case &HB retval = "B" Case &HC retval = "C" Case &HD retval = "D" Case &HE retval = "E" Case &HF retval = "F" End Select Return retval End Function
是否有更优雅的方式来完成与该代码相同的事情？
与
X format specifier一起使用ToString：
Dim b As Byte = &HA3
Console.WriteLine(b.ToString("X")) ' displays "A3"
Dim i As Integer = &H12AB89EF
Console.WriteLine(i.ToString("X")) ' displays "12AB89EF"
如果你只是想出于某种原因一次只做一个半字节,那么你可以事先掩盖/移出数字的各个位：
Dim b As Byte = &H5E
Console.WriteLine((b And &HF).ToString("X")) ' displays "E" (low nibble)
Console.WriteLine((b >> 4).ToString("X")) ' displays "5" (high nibble)
原文地址：https://www.jb51.cc/vb/255055.html
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
