Или на одной линии
Dim hex = String.Join(" ", "Hello" _
.Select(Function(c) Convert.ToByte(c).ToString("x2")))
без Заменить
.
Если вы хотите показать высокие байты (потому что каждый Char
на самом деле два Byte
s, потому что строки Unicode)
Dim hex = String.Join(" ", "Hello" _
.SelectMany(Function(c) BitConvertor.GetBytes(c)) _
.Select(Function(b) b.ToString("x2")))