Hex перекодировка

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
young
Обычный пользователь
Обычный пользователь
 
Сообщения: 95
Зарегистрирован: 19.06.2003 (Чт) 15:12
Откуда: Липецк

Hex перекодировка

Сообщение young » 10.03.2004 (Ср) 21:56

Есть коды символов в шестнадцатиричной системе... То есть по типу:
203d..... и т.д. Вот задача, написать программу, что-бы в одно поле Text вводили эти самые коды, а в другом получали перевод.
А какой функцией этого добиться? Голова овета не даёт :roll:
Помогите уж....

Kostyan
Постоялец
Постоялец
 
Сообщения: 439
Зарегистрирован: 20.09.2002 (Пт) 4:14
Откуда: Россия, Уссурийск

Сообщение Kostyan » 11.03.2004 (Чт) 2:02

Код: Выделить всё
Private Sub Text1_Change()
Text2.Text = ""
For i = 1 To Len(Text1.Text) Step 2
  Text2.Text = Text2.Text & Chr$(Val("&H" & Mid$(Text1.Text, i, 2)))
Next
End Sub

Вводить HEX-значения символов в первое поле нужно по 2 цифры, т.е. если символ означается цифрой F, то вводить нужно 0F.
Нет ничего невозможного для человека с интеллектом.

young
Обычный пользователь
Обычный пользователь
 
Сообщения: 95
Зарегистрирован: 19.06.2003 (Чт) 15:12
Откуда: Липецк

Сообщение young » 13.03.2004 (Сб) 11:56

Спасибо большое! Сам бы не допёр :)


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

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

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

    TopList