Напечатать слова из текста, в которых нет удвоенной буквы

@sasha121 · Регистрация: 14.03.2014

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

Напечатать слова из текста, в которых нет удвоенной буквы. Пожалуста помогите оешить!

@ikki · 19.06.2014, 09:02

Visual Basic

Sub t()
  s = "Напечатать слова из текста, в которых нет удвоенной буквы. ППожалуста помогите оешшить!"
  With CreateObject("vbscript.regexp")
    .Pattern = "[.,!?:;""']|\s(?=\s)": .Global = True
    s = .Replace(s, "")
    .Pattern = "([а-яё])(?=\1)": .ignorecase = True
    For Each e In Split(s)
      If Not .test(e) Then ss = ss & " " & e
    Next
    MsgBox Mid(ss, 2)
  End With
End Sub

Добавлено через 23 минуты
пс. если Вы не хотите увидеть недоверчивое выражение лица Вашего преподавателя, не советую показывать ему это решение.

@Sasha_Smirnov · 19.06.2014, 14:03

Сообщение от ikki

не советую показывать

А код, я считаю, вообще не надо открывать! Это как комп или телик: работает и ладно.

Добавлено через 2 часа 36 минут
На основе идеи из аналогичных тем: Определить количество слов строки, которые содержать ровно две буквы "а" (тоже 50 Кб!) и Выделить цветом и подсчитать слова, не имеющих рядом стоящих гласных — слепил проект в приложении Word.

А сама идея — в том, чтобы использовать макрорекордер и справку. Это организует.

@Sasha_Smirnov · 19.06.2014, 21:40

Конечно, можете ради интереса совсем не использовать объектов какого-либо VBA-приложения, наподобие вот этого: Сколько слов предложения начинается и кончается одной и той же буквой (но, имея Word, так делать не вижу причин).

Добавлено через 12 минут
Или вот тут (пост #13): Вывести на экран слова текста, начинающиеся и оканчивающиеся на гласные буквы.

Жду автора. Без его участия в собственной теме всё это бесполезно; пример: вода в ступе.

А вот та же тема плюс статистика букв (запуск через альт-F8): Определить наличие в слове повторяющихся букв!

Добавлено через 3 часа 46 минут
Принцип: нахожу (поиском в Word) нужные слова; скрываю их (скрытый текст); текст печатаю (Ctrl-F2).

Запуск макроса в приложенном документе по F6 (или как обычно: Alt-F8 → Выполнить):

@Sasha_Smirnov · 19.06.2014, 23:33

Сообщение от Sasha_Smirnov

нужные слова

Точнее сказать, ненужные. А нужные как раз идут на печать.

@sasha121 0 / 0 / 0 Регистрация: 14.03.2014 Сообщений: 15
		1
	Напечатать слова из текста, в которых нет удвоенной буквы 18.06.2014, 21:22. Показов 1545. Ответов 4 Метки нет (Все метки) Напечатать слова из текста, в которых нет удвоенной буквы. Пожалуста помогите оешить! 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	19.06.2014, 23:33	5
	Сообщение от Sasha_Smirnov нужные слова Точнее сказать, ненужные. А нужные как раз идут на печать. 0