HEX

[ACkid]

У меня такой вопрос:

Например, в Label1 у меня лежит буква "Я" и мне нужно получить ее HEX код. Я пишу:
t = Hex(Asc(Label1.Caption))
и получаю в переменной "t" - "DF"

Но как быть, если в Label1 у меня лежит "DF", а мне надо получить "Я"?

[alibek]

Val("&hDF")

[GSerg]

Ещё одна тема с точно таким же названием, которое тот раз так порадовало RayShade

[ACkid]

Val("&hDF")

Эй, у меня нет "DF"... У меня есть некое содержимое Label1, которое представляет собой hex код какого-то символа.

[GSerg]

А в чём разница?

[GAGArin]

GSerg
Ну это же надо долго думать чтоб догадаться, что разницы то нет

ACkid
Val("&h" & label1.caption)
Жуть как трудно да?

[Konst_One]

может в кирпичи положить

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

Public Function Hex2Str(ByVal Value As String) As String
On Error Resume Next
 
  Dim MyCounter   As Long
  Dim CharLeft    As String
  Dim CharRight   As String
  Dim StringSoFar As String
  Dim CharSoFar   As String
  Dim OneChar     As String
 
  For MyCounter = 1 To Len(Value)
    CharLeft = Left(Value, MyCounter)
    CharRight = Right(CharLeft, 1)
    CharSoFar = CharSoFar & CharRight
    If Len(CharSoFar) = 2 Then
      OneChar = Chr(Val("&H" & CharSoFar))
      StringSoFar = StringSoFar & OneChar
      CharSoFar = ""
    End If
  Next
 
  Hex2Str = StringSoFar
 
End Function

Public Function Str2Hex(ByVal Value As String) As String
On Error Resume Next
 
  Dim MyCounter   As Long
  Dim CharLeft    As String
  Dim CharRight   As String
  Dim StringSoFar As String
  Dim OneChar     As String
 
  For MyCounter = 1 To Len(Value)
    CharLeft = Left(Value, MyCounter)
    CharRight = Right(CharLeft, 1)
    If CharRight <> "" Then
      OneChar = CStr(Hex(Asc(CharRight)))
      If Len(OneChar) = 1 Then OneChar = "0" & OneChar
      StringSoFar = StringSoFar & OneChar
    End If
  Next
 
  Str2Hex = StringSoFar

End Function

Dim s as String
s="Мама мыла раму"
s=Str2Hex(s)
debug.Print s
s=Hex2Str(s)
debug.Print s

[ACkid]

GSerg
Ну это же надо долго думать чтоб догадаться, что разницы то нет

Ну, это как сказать...

ACkid
Val("&h" & label1.caption)
Жуть как трудно да?

Когда не знаешь - ДА!..
Не пойму, чего ты такой "умный"?
Неужели сам ты никогда ничего не спрашивал?

Из всего здесь сказанного я сделал вывод:
t = Chr("&h" + Label1.Caption)
В результате получил в переменной "t" - "Я".
Всем спасибо!

[GAGArin]

[offtop]Я ведь написал ответ, да? А на счет того что я был злой, так у меня настроение было фиговое, очень фиговое. Да и догадаться как из двух строк собрать одну все же надо. Это все же даже в школе на уроках програмирования дают.[/offtop]

[RayShade]

Хм.

Хорошее все таки название. Да.