Преобразовать в текст?

[Demonx]

Как вот это

Код: Выделить всё

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

преобразовать в обычный текст?

[Vitaly1]

s="FF FF FF FF FF FF 00 "
preob=""
while s<>""
s1=mid(s,1,2)
s=mid(s,3)
i=0
r = array( 1, 16, 1)
for j=1 to 2

Select Case mid(s1,j,1)
Case "1": i = i+1*r(j)
Case "2": i = i+2*r(j)
Case "3": i = i+3*r(j)
Case "4": i = i+4*r(j)
Case "5": i = i+5*r(j)
Case "6": i = i+6*r(j)
Case "7": i = i+7*r(j)
Case "8": i = i+8*r(j)
Case "9": i = i+9*r(j)
Case "A": i = i+10*r(j)
Case "B": i = i+11*r(j)
Case "C": i = i+12*r(j)
Case "D": i = i+13*r(j)
Case "E": i = i+14*r(j)
Case "F": i = i+15*r(j)
End Select
next j
preob=preob+chr(i)

s= trim(s)
wend

[skiperski]

Код: Выделить всё

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

[alibek]

Э... Лучше Chr$(Val("&h" & arr(i)))

[skiperski]

Можно и так. Как скажешь, Большой Человек.

[alibek]

Хм... Мнэ... (расшаркиваясь и краснея) Весьма польщен

[Vitaly1]

skiperski, Alibek - чем мой алгоритм то плох?

[SSecurity]

Алгоритм хорош, немного громоздок, можно попробовать уменьшить его ...

[Шурик]

Это можно просто посмотреть в обычном HEX редакторе