VBNet - Форум - Кодировка в инет код

Вопрос: Кодировка в инет код Добавлено: 18.11.10 18:28

Автор вопроса: MISTER X | Web-сайт: studioartf.ru | ICQ: 463865965

Почти вернулся к своему предыдущему топику...надо то же самое но не только выдавать по отдельности ascii код каждого символа в текст боксе,но и если выполняется какое либо условие его выполнять причем корректно...Посмотрите что у меня сдесь неверно?

Dim br As String
Dim D As String
Private Sub Command1_Click()
If Text1 <> "" Then
For n = 1 To Len(Text1)
D = D & Asc(Mid$(Text1, n, 1))
Next
If D >= 192 Then
br = "&#" & D + 848 & ";"
Text2.Text = br
End If
If D = 168 Then
br = "Ё"
Text2.Text = br
End If
If D = 184 Then
br = "ё"
Text2.Text = br
End If
If D < 192 Then
Text2.Text = "&#" & D & ";"
End If
End If
End Sub

По идее так:например пишу в текст1 123 Должен получить : &# 49;&# 50;&# 51; (без пробелов между # цифра)123 а получаю 񹄛
Где недосмотрел?
Ответить

Ответы Всего ответов: 12

Номер ответа: 1 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #1	Добавлено: 18.11.10 19:07
	если что то вот предыдущий топик - http://vbnet.ru/forum/show.aspx?id=211763&tolastpage=true Ответить

Номер ответа: 2 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #2	Добавлено: 18.11.10 22:57
	Ты создал строку "495051" потом по условию If D >= 192 прибавил к ней 848 (бейсик сам перевел строку в число) и присвоил текстовому полю. Вот и думай где ошибся) Ответить

Номер ответа: 3 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #3	Добавлено: 20.11.10 22:18
	Winand пишет: Вот и думай где ошибся) Я незнаю уже..как мне это исправить подскажите плз..весь моцк поцарапал Ответить

Номер ответа: 4 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #4	Добавлено: 21.11.10 11:21
	думай думай енто полезно Ответить

Номер ответа: 5 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #5	Добавлено: 21.11.10 17:01
	AgentFire пишет: думай думай енто полезно Блин.Не честно) Я нашел способ который работает,но он у меня в этом случае читает последний введенный символ а не все.и если я удалю 1 символ то ниче не изменится.мне надо чтобы он каждый символ читал и писал его в другой текстбокс,и читал все символы поочереди Ответить

Номер ответа: 6 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #6	Добавлено: 22.11.10 19:17
	лан...поставим вопрос по другому...как прочитать каждый символ отдельно? Ответить

Номер ответа: 7 Автор ответа: Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561	Web-сайт: houselab.narod.ru Профиль \| \| #7	Добавлено: 22.11.10 22:52
	Mid(String,Start,[Length]) Ответить

Номер ответа: 8 Автор ответа: Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561	Web-сайт: houselab.narod.ru Профиль \| \| #8	Добавлено: 22.11.10 22:54
	Функция Mid используется для считывания заданного числа символов или байт подряд от заданной позиции в строке слева направо. Нумерация символов в строке всегда начинается с единицы. Ответить

Номер ответа: 9 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #9	Добавлено: 22.11.10 23:03
	А процедура Mid ? Ответить

Номер ответа: 10 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #10	Добавлено: 23.11.10 19:23
	Допустим... Mid(Text1, 1, Len(Text1)) а как каждый символ по отдельности получить аский код? Asc(Mid(Text1, 1, Len(Text1))) врятли сработает.выдает первый сивол Ответить

Номер ответа: 11 Автор ответа: Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561	Web-сайт: houselab.narod.ru Профиль \| \| #11	Добавлено: 23.11.10 21:00
	вторым параметром должен быть порядковый номер символа, а третьим требуемое количество символов, т.е. 1. Ответить

Номер ответа: 12 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #12	Добавлено: 24.11.10 10:56
	Народ, к VB6 прекрасно цепляется MSDN 2001. Нажимаем F1 на нужной функции и не задаем реально глупых вопросов. Ответить

Страница: 1 |