Определить количество предложений в тексте

@yassechkaa · Регистрация: 04.04.2014

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

Ввести текст. Определить количество предложений в тексте.

toiai · 07.05.2014, 14:47

Скуповато информации, но примем условно, что предложение всегда заканчивается "." (точкой):

Visual Basic

Sub pr()
    Dim predl$, s, w, k&, nom$
    predl = "Даны несколько предложений в них встречаются точка и пробел." _
        & "Найти предложение с минимальным кол-вом слов и в нем заменить" _
        & "гласные буквы на заданный символ. " _
        & "Если можно то по проще сделать на форме должно быть мемо " _
        & "в котором пишутся предложения."
    predl = Application.Trim(predl) 'удалить лишние пробелы
    predl = Mid(predl, 1, Len(predl) - 1) ' убрать в конце точку
    s = Split(predl, ".")
    MsgBox "Количество предложений - " & UBound(s) + 1
End Sub

@yassechkaa 2 / 2 / 2 Регистрация: 04.04.2014 Сообщений: 35
		1
	Определить количество предложений в тексте 07.05.2014, 14:19. Показов 1467. Ответов 1 Метки нет (Все метки) Ввести текст. Определить количество предложений в тексте. 0

	07.05.2014, 14:47