| Вопрос: ASCII 2 | Добавлено: 26.07.05 21:48 |
Автор вопроса:  dimailer
|
|
Я хочи перевести весь текст из RichTextBox в ASCII!!!
Как это сделать??? --- Пожалуйста полный код!!! И Испробованный!!! |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 26.07.05 23:32 |
| Я в прошлом аналогичном твоём вопросе дал в полне рабочий код! Теперь слушаем твои старания по его приминению, выкладывай что и где не получилось, мы расскажем почему... | ||
|
Номер ответа: 2 Автор ответа: dimailer Вопросов: 9 Ответов: 27 |
Профиль | | #2 | Добавлено: 27.07.05 22:44 |
|
txt$ = RichTextBox.text
for i = 1 to len (txt$) s$ = s$ & format(asc(mid(txt$,i,1)),"000" 
next i msgbox s$ [B]по памяти, сорри если чё не так... ][/B] --- Я не врубаюсь!!! В код!!! объясни пожалуйста!!! |
||
|
Номер ответа: 3 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 28.07.05 01:34 |
|
блин, берёш любой учебник по вб и смотриш чё делает каждая ф-ця... блин, ну ладно, и так, слушай внимательно!
s$ = "aaa" q = Len(s$) 'Определяет длинну текста (q = 3) ---------------- s$ = s$ & format(asc(mid(txt$,i,1)),"000"
напишем по человечески 
tmp = mid(txt$,i,1) 'Берёт текст у txt$ с i по 1 символ в право tmp = asc(tmp) 'Получает asс код символа в tmp tmp = format(tmp,"000" 'Форматинует полученный код символа в 3 цифры, т.е. если код был 10, то будет 010, а если 210, то так и будет 210
Ну цикл думаю понятно... for i = 1 to 10 msgbox i next i |
||
|
Номер ответа: 4 Автор ответа: CyRax  Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #4 | Добавлено: 28.07.05 10:55 |
| http://www.vbnet.ru/vbguide/ | ||
|
Номер ответа: 5 Автор ответа: dimailerВопросов: 9 Ответов: 27 |
Профиль | | #5 | Добавлено: 28.07.05 21:00 |
| Большое спасибо HACKER и CyRax!!! | ||
Страница: 1 |