VBNet - Форум - помогите еще раз, пожалуйста!!!

Вопрос: помогите еще раз, пожалуйста!!! Добавлено: 20.12.08 19:05

Автор вопроса: Smiley_loo | ICQ: 194467334

я пытаюсь написать программу,которая предлагает с помощью UserForm ввести 2 произвольные строки символов и после нажатия на кнопку RUN, удаляет из первой строки все вхождения в нее второй строки. Т.е., если первая строка : "фывафыукепрфыцукемафыва", а вторая "фы", то в результате должно получиться "ваукепрцукемава"
Результат (получившаяся строка и число - количество сделанных замен) выводится в этой же UserForm, но у меня никак не получается!

помогите с написанием, заранее спасибо!
Ответить

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

Номер ответа: 1 Автор ответа: Kardinal ICQ: 360041513 Вопросов: 1 Ответов: 164	Web-сайт: kg7.ru Профиль \| \| #1	Добавлено: 20.12.08 19:45
	А что конкретно не получаеться? Поиск или вывод. Ответить

Номер ответа: 2 Автор ответа: Smiley_loo ICQ: 194467334 Вопросов: 3 Ответов: 8	Профиль \| \| #2	Добавлено: 20.12.08 19:46
	да, я просто уже второй день занимаюсь этим всем и я уже физически не соображаю, что делать(( Ответить

Номер ответа: 3 Автор ответа: Smiley_loo ICQ: 194467334 Вопросов: 3 Ответов: 8	Профиль \| \| #3	Добавлено: 20.12.08 20:34
	ну, помогите кто-нибудь.. мне нужно до 12 часов сделать.... пожалуйста.. Ответить

Номер ответа: 4 Автор ответа: chanchikela Вопросов: 12 Ответов: 21	Профиль \| \| #4	Добавлено: 20.12.08 21:07
	Просто удалить его или заменит чем-то другим? Ответить

Номер ответа: 5 Автор ответа: Smiley_loo ICQ: 194467334 Вопросов: 3 Ответов: 8	Профиль \| \| #5	Добавлено: 20.12.08 21:14
	просто удалить Ответить

Номер ответа: 6 Автор ответа: chanchikela Вопросов: 12 Ответов: 21	Профиль \| \| #6	Добавлено: 20.12.08 21:25
	Я уже сделал так На форме надо создать следующие поле Text1 – текст который надо обработать Text2 - текст который надо найти в первом тексте Text3 – текст на который надо заменить Text4 – а него попадает уже замененный текст В Label5 пишется количество замен Кроме этого на форме надо кнопка Command1 Option Explicit Dim text_new Dim len1 Dim len2 Dim a Dim n_zamen Private Sub Command1_Click() Label5.Caption = "" text_new = "" n_zamen = 0 len1 = Len(Text1.Text) len2 = Len(Text2.Text) For a = len1 To len2 Step -1 * len2 If Left$(Right$(Text1.Text, a), len2) = Text2.Text Then text_new = text_new + Text3.Text n_zamen = n_zamen + 1 Else text_new = text_new + Left$(Right$(Text1.Text, a), len2) End If Next a Text4.Text = text_new Label5.Caption = "Количество замен " + Str(n_zamen) End Sub Ответить

Номер ответа: 7 Автор ответа: chanchikela Вопросов: 12 Ответов: 21	Профиль \| \| #7	Добавлено: 20.12.08 21:26
	Пиши мило, вышлю проект Ответить

Номер ответа: 8 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #8	Добавлено: 20.12.08 21:26
	Sub q() Dim t As String t = "фывафыукепрфыцукемафыва" Dim a() As String a = Split(t, "фы") t = Replace(t, "фы", "") MsgBox "Строка: " + t + " кол-во замен: " + Str(UBound(a)) End Sub Ответить

Номер ответа: 9 Автор ответа: Smiley_loo ICQ: 194467334 Вопросов: 3 Ответов: 8	Профиль \| \| #9	Добавлено: 20.12.08 21:29
	smiley_loo@list.ru спасибо) Ответить

Номер ответа: 10 Автор ответа: chanchikela Вопросов: 12 Ответов: 21	Профиль \| \| #10	Добавлено: 20.12.08 21:37
	Skywalker Круто ! Я про Split и Replace не додумался Ответить

Страница: 1 |