| Вопрос: есть ли в VB 6 что-то похожее на HexToBin()?? | Добавлено: 03.06.08 21:27 |
Автор вопроса:  Nick
|
| есть ли в VB 6 что-то похожее на HexToBin()?? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  s12 Вопросов: 24 Ответов: 363 |
Профиль | | #1 | Добавлено: 04.06.08 00:44 |
|
Насколько я знаю нет.
Такая замена подойдет? Function HexToBin(ByVal s As String) As String
Dim i As Long, t As Long, sRez As String, sTmp As String Dim Numb Dim bNumb Numb = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "  ", "E", "F"
bNumb = Array("0000", "0001", "0010", "0011", "0100", "0101", "0110", "0111", "1000", "1001", "1010", "1011", "1100", "1101", "1110", "1111"
For i = 1 To Len(s) sTmp = Mid$(s, i, 1) For t = 0 To 15 If sTmp = Numb(t) Then sRez = sRez & bNumb(t): t = 15 Next t Next HexToBin = sRez End Function |
||
|
Номер ответа: 2 Автор ответа: Nick Вопросов: 2 Ответов: 4 |
Профиль | | #2 | Добавлено: 04.06.08 19:52 |
| да вполне. огромное спасибо | ||
Страница: 1 |