Удаление из строки всех "!"

@Чайник_Валера · Регистрация: 27.12.2014

Студворк — интернет-сервис помощи студентам

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
 Private Sub CommandButton1_Click()
Dim s As String, s1 As String, s2 As String, i As Integer
s = TextBox1.Text
For i = 1 To Len(s)
If Mid(s, i, 1) = "!" Then
s1 = Mid(s, 1, i - 1)
s2 = Mid(s, s1 + 2, Len(s) - s1 + 2)
s = s1 + s2
End If
Next i
TextBox2.Text = s
End Sub

Выдает ошибку.Пожалуйста, помогите.SOS.

@ctac1412 · 06.04.2016, 17:10

Alex77755, Добрый день, не подскажете, может есть мысли как выйти из ситуации? Допустим ключевая фраза
" ...111qqq...111qqq..."

При

Visual Basic
1
2
3
4
5
    strOriginal = Email.Text
    strPattern = "\W$" 
    strReplace = "" 
    strResult = RegExpFindReplace(strOriginal, strPattern, strReplace)
    Me.Email.Text = strResult

Он удаляет все знаки и оставляет "111qqq111qqq"

А при

Visual Basic
1
2
3
4
5
    strOriginal = Email.Text
    strPattern = "\W$" 
    strReplace = "" 
    strResult = RegExpFindReplace(strOriginal, strPattern, strReplace,False)
    Me.Email.Text = strResult

Он удаляет только по 1 символу. с конца и упирается там где надо, но по 1 символу. А надо нам, удалить все символы кроме букв и цифра, С КОНЦА. То есть до буквы q. Почему при глобале он удаляет все? а при не глобале, по одному символу за операцию( что и подразумевает не глобал), и как нам надо дальше q не идет удалять.

Может можно как то вытащить значение = замена произошла? И зациклить без глобола, до тех пор, пока замена не произойдет? Как поймать этот момент в переменную? Или можно как то по другому написать паттерн?( мне нужно что бы в конце последняя была всегда только буква)

@Alex77755 · 06.04.2016, 21:49

ctac1412, Почему обращение именно ко мне? Я не специалист по регуляркам! Даже наоборот!
Если есть вопросы по регулярным выражениям задайте вопрос просто на форуме и, наверняка, помогут.

@ctac1412 · 06.04.2016, 21:50

Alex77755, именно ваш пост, открыл мне двери в регулярку

Мессадж понял, спасибо!

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	06.04.2016, 21:49
	ctac1412, Почему обращение именно ко мне? Я не специалист по регуляркам! Даже наоборот! Если есть вопросы по регулярным выражениям задайте вопрос просто на форуме и, наверняка, помогут. 0

@ctac1412 18 / 18 / 2 Регистрация: 12.02.2013 Сообщений: 387
	06.04.2016, 21:50
	Alex77755, именно ваш пост, открыл мне двери в регулярку Мессадж понял, спасибо! 0