Работа со строками

@Алиса Дмитриева · Регистрация: 07.04.2018

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

Здравствуйте! Как сделать так: если в строке найдено две рядом стоящие заглавные буквы, то выдается ImputBox?
Пробовала так, но это естественно не работает, подскажите, пожалуйста варианты:

Visual Basic

1
2
3

If InStr(TextBox8.Text, "(Mid(m, i, 1) = UCase(Mid(m, i, 1)) And Mid(m, i + 1, 1) = UCase(Mid(m, i + 1, 1)))") Then
   m = Application.InputBox("Введите полностью:", "Сообщение")
End If

(Нужно именно в TextBox8)

@Hugo121 · 14.07.2018, 23:18

Что, вот прямо так там в текстбоксе и написано: "(Mid(m, i, 1) = UCase(Mid(m, i, 1)) And Mid(m, i + 1, 1) = UCase(Mid(m, i + 1, 1)))"? Тогда сработает.

Кавычки зачем? Вот без кавычек и в цикле перебирайте строку, пока не найдёте совпадение.

@Алиса Дмитриева · 14.07.2018, 23:47 **[ТС]**

То есть так?

Visual Basic

If Mid(TextBox8.Text, i, 1) = UCase(Mid(TextBox8.Text, i, 1)) And Mid(TextBox8.Text, i + 1, 1) = UCase(Mid(TextBox8.Text, i + 1, 1)) Then
   m = Application.InputBox("Введите название полностью:", "Сообщение")
 
End If

Добавлено через 7 минут
просто если делать цикл for, он это сообщение будет выдавать несколько раз, в случае ЕГЭ (ЕГ, ГЭ). А мне нужно один раз, если нашел первое совпадение, выдал и всё. Это как то возможно?

@Burk · 15.07.2018, 05:08

Сообщение от Алиса Дмитриева

Это как то возможно?

да просто. После Input поставьте Exit For

@Step_UA · 15.07.2018, 23:26

И зачем здесь цикл

Visual Basic

1	If TextBox8.Text Like "[A-ZА-ЯЁ][A-ZА-ЯЁ]" Then m = Application.InputBox("Введите полностью:", "Сообщение")

@Hugo121 6878 / 2810 / 534 Регистрация: 19.10.2012 Сообщений: 8,573
	14.07.2018, 23:18	2
	Что, вот прямо так там в текстбоксе и написано: "(Mid(m, i, 1) = UCase(Mid(m, i, 1)) And Mid(m, i + 1, 1) = UCase(Mid(m, i + 1, 1)))"? Тогда сработает. Кавычки зачем? Вот без кавычек и в цикле перебирайте строку, пока не найдёте совпадение. 0

@Burk 1837 / 1153 / 353 Регистрация: 11.07.2014 Сообщений: 4,072
	15.07.2018, 05:08	4
	Сообщение от Алиса Дмитриева Это как то возможно? да просто. После Input поставьте Exit For 1

Опции темы

Работа со строками

Решение