Шестнадцатиричный код

[_Мика_]

Всем привет
У меня такой вопрос:
существует какой нибудь алгаритм по переводу обычного текста в шестнадцатиричный естественно на VB

[gaidar]

Не понял???? Что значит текст обычный в шестнадцатеричный??? Ты имеешь ввиду отображение кода символов - так это делается так - символ кода, его в Hex и все ... Не понятно в общем, чего хочешь.

[Vitaly1]

n = десятичное число

s =""

while n>=16
'получаем остаток
n1 = n mod 16
n= n \ 16
select case n1
case 0: s="0"+s
.
.
.
case 10: s="A"+s
case 11: s="B"+s
case 12: s="C"+s
case 13: s="D"+s
case 14: s="E"+s
case 15: s="F"+s
end select
wend

select case n
case 0: s="0"+s
.
.
.
case 10: s="A"+s
case 11: s="B"+s
case 12: s="C"+s
case 13: s="D"+s
case 14: s="E"+s
case 15: s="F"+s
end select


Ну, примерно так

[Amed]

Эх, вы, а ещё профессор...

MsgBox Hex(YourNumber)

Ещё есть Oct(YourNumber) - это в восьмиричную систему...

[_Мика_]

Спасибо всем
А особенно Amed'у

[alibek]

Ну если тебя не устравивает Hex$, то можно и поизвращаться

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

'Universal translator
Private Const Bases As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

Public Function Convert(ByVal Value As String, Optional ByVal FromBase As Integer = 10, Optional ByVal ToBase As Integer = 10, Optional ByVal MinPadSize As Integer = 0) As String
Dim V As Long, ret As String
If FromBase < 2 Or FromBase > 36 Then Exit Function
If ToBase < 2 Or ToBase > 36 Then Exit Function
If Len(Value) = 0 Then Exit Function
If InStr(Value, ".") > 0 Then Exit Function
V = ToUnary(UCase$(Value), FromBase)
ret = FromUnary(V, ToBase)
If Len(ret) < MinPadSize Then ret = String$(MinPadSize - Len(ret), Mid$(Bases, 1, 1)) & ret
Convert = ret
End Function

Private Function ToUnary(ByVal Value As String, Optional ByVal Base As Integer = 10) As Long
Dim ret As Long, I As Integer, C As Integer, P As Integer
For C = Len(Value) To 1 Step -1
  I = Len(Value) - C
  P = InStr(Bases, Mid$(Value, C, 1) - 1
  If P >= 0 Then ret = ret + P * Base^I
Next C
ToUnary = ret
End Function

Private Function FromUnary(ByVal Value As Long, Optional ByVal Base As Integer = 10) As String
Dim ret As String, I As Integer, P As Integer, V As Long
P = Fix(Log(Value) / Log(Base))
Do Until P < 0
  V = Base ^ P
  I = Fix(Value / V)
  Value = Value - I * V
  ret = ret & Mid$(Bases, I + 1, 1)
  P = P - 1
Loop
FromUnary = ret
End Function


Вроде бы ошибок нет, но я не проверял

[Vitaly1]

Эх, вы, а ещё профессор...

MsgBox Hex(YourNumber)

Ещё есть Oct(YourNumber) - это в восьмиричную систему...

Ничего, Amed, самую малость в моем алгоритме заменить, и можно задавать порядок системы, в какую переводишь, и тогда, хошь в двоичную, хошь в 16 чичную, хошь в троичную, хошь в пятиричную (хоть смеюсь, но все равно можно)

[Amed]

Да, это плюс...
Но зачем же из кожи вон лезть, когда есть три замечательные буквы - H.E.X.
Для многих задач этого имхо вполне хватитъ...

[sanches]

Эх, вы, а ещё профессор...

MsgBox Hex(YourNumber)

Ещё есть Oct(YourNumber) - это в восьмиричную систему...

Ничего, Amed, самую малость в моем алгоритме заменить, и можно задавать порядок системы, в какую переводишь, и тогда, хошь в двоичную, хошь в 16 чичную, хошь в троичную, хошь в пятиричную (хоть смеюсь, но все равно можно)

Это словно из пушки по воробьям

[SSecurity]

Ну а тут просто вместо KodLine пишешь строку символов системы в которую кодировать надо ... ето если у тебя есть желание чего-нить замудрить этакое ... например 152-ю СС

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

Function Convert(A) as String
KodLine1="01"     ' двоичная
KodLine2="01234567"  ' восьмиричная
' ...
KodLineN="0123456789ABCDEF" ' шестнадцатиричная
KodLine=KodLine1
Answer=""
WHILE int(A/len(KodLine))<>0
  F = A mod len(KodLine)+1
  Answer=Mid(KodLine,F ,1)+Answer
  A=int(A/len(KodLine))
WEND
F = A mod len(KodLine)+1
Answer=Mid(KodLine,F,1)+Answer
Convert = Answer
End Function


Просто вызывай функцию:))
даже в VBS работает

[SSecurity]

Ну а тут просто вместо KodLine пишешь строку символов системы в которую кодировать надо ... ето если у тебя есть желание чего-нить замудрить этакое ... например 152-ю СС

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

Function Convert(A) as String
KodLine1="01"     ' двоичная
KodLine2="01234567"  ' восьмиричная
' ...
KodLineN="0123456789ABCDEF" ' шестнадцатиричная
KodLine=KodLine1
Answer=""
WHILE int(A/len(KodLine))<>0
  F = A mod len(KodLine)+1
  Answer=Mid(KodLine,F ,1)+Answer
  A=int(A/len(KodLine))
WEND
F = A mod len(KodLine)+1
Answer=Mid(KodLine,F,1)+Answer
Convert = Answer
End Function


Просто вызывай функцию:))
даже в VBS работает

[Amed]

А зачем тебе 152-я система счисления?

И как в ней будет выглядеть число, скажем, 153? =))))

[SSecurity]

А зачем тебе 152-я система счисления?

И как в ней будет выглядеть число, скажем, 153? =))))

Ну это просто .... например для кодирования ... сначала формируй КОДЛАЙН как хочешь, но так чтобы там было 152 уникальных символа

Простая кодирущяя система - 10 символов, например, "8620937514" и теперь число 17 будет выглядеть не "17" а так - "65":)

[Vitaly1]

Есть множества путей в достижении цели. Естественно использовать готовое проще.
Есть такая еще фраза, придуманая мной:Ты не один во вселенной.
К сожалению, мы часто решаем проблемы с позиции: я один во вселенной.
Хотя, не всегда, легко найти то, что уже имеется. А иногда сам можешь быстро что то сделать, не подумав о том, что это уже есть.
Если меня поняли, что я сказал, хорошо, а иначе

[SSecurity]

Ну без лишней скромности заявлю - ВСЕ ПРОГРАММИСТЫ - БОГИ, (почти все), точнее те, кто реально что-то создает ... ну а остальные...