Список форумов Форум Libreoffice

Форум Libreoffice

Добро пожаловать на Форум Libreoffice!
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

English French German Italian Portuguese Russian Spanish
Разбиение текста на отдельные предложения (REPLACE+SPLIT)

 
Начать новую тему   Ответить на тему    Список форумов Форум Libreoffice -> Basic
Предыдущая тема :: Следующая тема  
Автор Сообщение
mathnew



Репутация: 0    

Зарегистрирован: 20.08.2011
Сообщения: 24

СообщениеДобавлено: Сб Сен 03, 2011 3:52 pm    Заголовок сообщения: Разбиение текста на отдельные предложения (REPLACE+SPLIT) Ответить с цитатой

Разбиение текста на отдельные предложения можно произвести очень простым способом, использовав функцию REPLACE и "уникальную" (практически невероятную) текстовую строку.

Следующий макрос иллюстрирует этот способ для текста
Цитата:
THE GENTLEMEN. For a sovereign? I've nothing less. Garn! Oh do buy a flower off me, Captain. I can change half-a-crown! Take this for tuppence.

Код:
Sub splitstr()

aStr0 = "THE GENTLEMEN. For a sovereign? I've nothing less. Garn! Oh do buy a flower off me, Captain. I can change half-a-crown! Take this for tuppence."

spl = Trim("@#$%^&*")

aStr0 = Replace(aStr0, ".", "." & spl)
aStr0 = Replace(aStr0, "!", "!" & spl)
aStr0 = Replace(aStr0, "?", "?" & spl)

aStr1 = Split(aStr0, spl)

l = LBound(aStr1)
u = UBound(aStr1)

aStr = ""

For n = l To u
    aStr = aStr & aStr1(n) & Chr(10)
Next n

MsgBox aStr

End Sub


Здесь выбрана такая "уникальная" (маловероятная) строка:
@#$%^&*

Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Форум Libreoffice -> Basic Часовой пояс: GMT
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group
Вы можете бесплатно создать форум на MyBB2.ru, RSS