Преобразовать регистр текста, как в предложении. С небольшими нюансами.

Desko77

Гость

08.04.2012 12:02:01

Добрый день.
Есть текст в ячейках, из-за некорректного внесения, имеет примерно следующий вид "Аааа Вввв ZXY".
Как его можно преобразовать в нормальное предложение: первая буква предложения прописная, остальные строчные, но английский текст не трогать, а оставить в том регистре в котором он есть?

LightZ Пользователь Сообщений: 1748 Регистрация: 22.12.2012	#2 08.04.2012 12:21:32 а можно пример увидеть? Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?

ikki

Пользователь

Сообщений: 9709 Регистрация: 22.12.2012

08.04.2012 12:29:59

{quote}{login=Desko77}{date=08.04.2012 12:02}{thema=Преобразовать регистр текста, как в предложении. С небольшими нюансами.}{post}первая буква предложения{/post}{/quote}
мне интересно увидеть формальный признак начала предложения, с учетом нюансов (напр., сокращения вида "т.к.", "напр.", многоточия, прямая речь и т.п.)
:)

фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг

Владимир Пользователь Сообщений: 8196 Регистрация: 21.12.2012	#4 08.04.2012 13:24:33 Отделить кириллицу от латиницы можно, но как потом обратно в слово слить, вопрос интересный? "..Сладку ягоду рвали вместе, горьку ягоду я одна."

ran Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#5 08.04.2012 13:34:30 Function qqq(cell As String) As String Dim strText, strT strText = Split(cell) For Each strT In strText If strT Like ("[A-Z]") Then qqq = qqq & " " & strT Else strT = LCase(strT) qqq = qqq & " " & strT End If Next qqq = Trim$(qqq): Mid$(qqq, 1, 1) = UCase(Mid$(qqq, 1, 1)) End Function

Desko77 Гость	#6 08.04.2012 14:28:34 Началом предложения считаем начало строки. В одной ячейке, одно предложение

Desko77 Гость	#7 08.04.2012 14:43:15 Отличная функция! то что надо, огромное спасибо!

Читают тему