VBNet - Форум - HELP!Строки!

Вопрос: HELP!Строки! Добавлено: 17.11.10 17:16

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

Народ помогите плз!Цель такая-есть текст1 и текст2 ну и кнопка что надо:пишем любые символы в текст1,нажимаем кнопку и они все меняются на Ascii код.Формулу аского знаю -
Asc(символ)
Хотел сделать так-

Dim replacestring1 As String
replacestring1 = Replace(Text1.Text, "1", Asc(1))
Text2.Text = replacestring1
но если делать так это надо каждый симв прописывать...не подскажите более умную идею?причем надо чтобы писал текст а он все переводил а не 1 симв
Ответить

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

Номер ответа: 1 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #1	Добавлено: 17.11.10 17:47
	для начала, не плохо было уточнить на каком наречии ты все пытаешься сделать.. Ответить

Номер ответа: 2 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #2	Добавлено: 17.11.10 17:54
	Ах да,совсем забыл...VB6 юзаю Ответить

Номер ответа: 3 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #3	Добавлено: 17.11.10 18:41
	Циклом посимвольно Ответить

Номер ответа: 4 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #4	Добавлено: 17.11.10 19:55
	MISTER X пишет: Ах да,совсем забыл...VB6 юзаю ну вот смотри: использовал бы дотнет, было бы куда проще TextBox2.Text = TextBox1.Text.Select(Function(T) If(T >= "0"c And T <= "9"c, Convert.ToChar(Byte.Parse(T)), T)).ToArray Ответить

Номер ответа: 5 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #5	Добавлено: 17.11.10 20:20
	Ты вообще читал условие задачи? Ответить

Номер ответа: 6 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #6	Добавлено: 17.11.10 20:44
	AgentFire пишет: ну вот смотри: использовал бы дотнет ну дотнет не дотнет,а юзаю совсем другое Artyom пишет: Циклом посимвольно непойму как? Ответить

Номер ответа: 7 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #7	Добавлено: 17.11.10 21:02
	Почем дотнэт для народа? Отсыпьте полкило. Ответить

Номер ответа: 8 Автор ответа: Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561	Web-сайт: houselab.narod.ru Профиль \| \| #8	Добавлено: 17.11.10 21:15
	Private Function Text2Ascii(Text As String) Dim i As Long For i = 1 To Len(Text) Text2Ascii = Text2Ascii + CStr(Asc(Mid(Text, i, 1))) + "," Next i Text2Ascii = Left(Text2Ascii, Len(Text2Ascii) - 1) End Function Ответить

Номер ответа: 9 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #9	Добавлено: 17.11.10 21:19
	dim D as string for n=1 to len(txt) d = d & asc(mid$(txt,n,1)) next msgbox d Ответить

Номер ответа: 10 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #10	Добавлено: 18.11.10 09:46
	Artyom пишет: Ты вообще читал условие задачи? Ну, сегодня с утра таки вкурил, что нужно автору. TextBox2.Text = String.Join(", ", TextBox1.Text.Select(Function (T) Convert.ToByte(T).ToString).ToArray) MISTER X пишет: ну дотнет не дотнет,а юзаю совсем другое А почему ? Ответить

Номер ответа: 11 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #11	Добавлено: 18.11.10 15:56
	Ну пока на дотнете не шарю ваще..там синтаксис другой к тому же..)Мне б пока с вб6 ))а потом и дот.нет) Ответить

Номер ответа: 12 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #12	Добавлено: 18.11.10 16:24
	На вопрос вроде ответили, решение рабочее. Так что завязывайте и радуйтесь. Не то сейчас опять начнется дебильный троллинг про .NET. Ответить

Номер ответа: 13 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #13	Добавлено: 18.11.10 17:26
	да уж)спасиб всем Ответить

Номер ответа: 14 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #14	Добавлено: 18.11.10 19:38
	Новый вопрос по той же теме пчти...http://vbnet.ru/forum/show.aspx?id=211846 Ответить

Номер ответа: 15 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #15	Добавлено: 18.11.10 21:15
	MISTER X пишет: Мне б пока с вб6 зачем? в освоении дотнет не сложней. Ответить

Страница: 1 | 2 |