- Код: Выделить всё
FF FF FF FF FF FF 00 0C 30 6B 78 1C 08 06 00 01
08 00 06 04 00 01 00 0C 30 6B 78 1C 0A 00 00 01
00 00 00 00 00 00 0A 00 01 80 80 BA 01 10 00 01
00 00 00 00 00 00 20 46 48 45 50 46
FF FF FF FF FF FF 00 0C 30 6B 78 1C 08 06 00 01
08 00 06 04 00 01 00 0C 30 6B 78 1C 0A 00 00 01
00 00 00 00 00 00 0A 00 01 80 80 BA 01 10 00 01
00 00 00 00 00 00 20 46 48 45 50 46
Option Explicit
Public Function hex2text(ByVal hexString As String) As String
Dim arr() As String
Dim i As Long
arr() = Split(hexString, " ")
For i = 0 To UBound(arr)
arr(i) = Chr$("&h" & arr(i))
Next
hex2text = Join(arr, vbNullString)
Erase arr()
End Function
Сейчас этот форум просматривают: Yandex-бот и гости: 8