| Вопрос: как конвертировать текст в шестнадцатиричный вид? | Добавлено: 17.04.07 22:28 |
Автор вопроса:  Hookmat | ICQ: 349977329 |
| как конвертировать текст в шестнадцатиричный вид? (что-то типа CHex ;) |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа: ZagZag ICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #1 | Добавлено: 17.04.07 23:37 |
|
Если число, то Hex(число)
Для конвертирования строки прийдется функцию самому писать |
||
|
Номер ответа: 2 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #2 | Добавлено: 17.04.07 23:40 |
|
Private Function Str2Hex(strString As String) As String
Dim lngIndex As Long, lngCount As Long lngCount = Len(strString) For lngIndex=1 To lngCount Str2Hex = Str2Hex & Hex(Asc(Mid$(strString, lngIndex, 1))) Next End Function |
||
|
Номер ответа: 3 Автор ответа:  Hookmat ICQ: 349977329 Вопросов: 1 Ответов: 1 |
Профиль | | #3 | Добавлено: 18.04.07 22:01 |
|
Юлагодарю за ответ
Я не профи поэтому написал так 
Private Function hex_transl(sim As String) As String
Dim fer As Integer Dim sec As Double Dim s_fer As String, s_sec As String fer = Fix((Asc(sim)) / 16) sec = ((Asc(sim)) / 16) - fer 'MsgBox CStr(sec) Select Case fer Case 10 s_fer = "A" Case 11 s_fer = "B" Case 12 s_fer = "C" Case 13 s_fer = "  "
Case 14 s_fer = "E" Case 15 s_fer = "F" Case Else s_fer = CStr(fer) End Select Select Case sec Case 0 s_sec = "0" Case 0.0625 s_sec = "1" Case 0.125 s_sec = "2" Case 0.1875 s_sec = "3" Case 0.25 s_sec = "4" Case 0.3125 s_sec = "5" Case 0.375 s_sec = "6" Case 0.4375 s_sec = "7" Case 0.5 s_sec = "8" Case 0.5625 s_sec = "9" Case 0.625 s_sec = "A" Case 0.6875 s_sec = "B" Case 0.75 s_sec = "C" Case 0.8125 s_sec = " "
Case 0.875 s_sec = "E" Case 0.9375 s_sec = "F" End Select hex_transl = s_fer + s_sec End Function |
||
|
Номер ответа: 4 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #4 | Добавлено: 19.04.07 02:50 |
|
А... как это вообще работает?
Я тоже не профи, но твой код... фиг знает как работает
Причем обрезает строку до 2х байт. |
||
Страница: 1 |