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

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Demonx
Бывалый
Бывалый
 
Сообщения: 237
Зарегистрирован: 25.06.2003 (Ср) 0:08
Откуда: Литва/Висагинас

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

Сообщение Demonx » 24.03.2004 (Ср) 15:52

Как вот это
Код: Выделить всё
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
Брехман
Брехман
 
Сообщения: 1578
Зарегистрирован: 30.12.2002 (Пн) 16:35
Откуда: Russia, Mosсow

Сообщение Vitaly1 » 24.03.2004 (Ср) 16:34

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
Идеолог
Идеолог
Аватара пользователя
 
Сообщения: 1386
Зарегистрирован: 25.06.2002 (Вт) 15:52

Сообщение skiperski » 24.03.2004 (Ср) 16:54

Код: Выделить всё
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
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 24.03.2004 (Ср) 16:59

Э... Лучше Chr$(Val("&h" & arr(i)))
Lasciate ogni speranza, voi ch'entrate.

skiperski
Идеолог
Идеолог
Аватара пользователя
 
Сообщения: 1386
Зарегистрирован: 25.06.2002 (Вт) 15:52

Сообщение skiperski » 24.03.2004 (Ср) 17:03

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

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 24.03.2004 (Ср) 18:00

Хм... Мнэ... (расшаркиваясь и краснея) Весьма польщен :)
Lasciate ogni speranza, voi ch'entrate.

Vitaly1
Брехман
Брехман
 
Сообщения: 1578
Зарегистрирован: 30.12.2002 (Пн) 16:35
Откуда: Russia, Mosсow

Сообщение Vitaly1 » 24.03.2004 (Ср) 18:57

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

SSecurity
Служба безопасности
Аватара пользователя
 
Сообщения: 1283
Зарегистрирован: 19.08.2003 (Вт) 1:11
Откуда: Россия, Мурманск

Сообщение SSecurity » 25.03.2004 (Чт) 0:50

Алгоритм хорош, немного громоздок, можно попробовать уменьшить его ...
Программист - это маленький Бог, а все его ошибки - это самостоятельные творения:)
Так задумано:)

Шурик
Самогонщик
Самогонщик
Аватара пользователя
 
Сообщения: 1657
Зарегистрирован: 30.06.2003 (Пн) 13:27
Откуда: из запоя :))))) Матных сообщений: 972

Сообщение Шурик » 25.03.2004 (Чт) 11:51

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


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 13

    TopList