FoxClub Forums > Visual Foxpro, Foxpro for DOS > Вырезать слова из строки ::

• Войти

Вырезать слова из строки
dfr Автор Сообщений: 254 Откуда: Барнаул Дата регистрации: 29.07.2005	dfr 01.11.17 05:05:52 Надо из текстовой строки убрать (вырезать) слова. Под словом понимается совокупность только букв разного регистра длиной не менее, например, 4. В строке могут быть знаки препинания, цифры и т.д. Может есть у кого готовое решение?

dfr
Автор

Сообщений: 254
Откуда: Барнаул
Дата регистрации: 29.07.2005

dfr

01.11.17 05:05:52

Надо из текстовой строки убрать (вырезать) слова. Под словом понимается совокупность только букв разного регистра длиной не менее, например, 4.
В строке могут быть знаки препинания, цифры и т.д.

Может есть у кого готовое решение?

Re: Вырезать слова из строки
akvvohinc Сообщений: 4219 Откуда: Москва Дата регистрации: 11.11.2008	akvvohinc 01.11.17 07:49:39 Если ничего, кроме результата, не важно, то бегите посимвольно от начала к концу строки. Встречая букву, запоминайте ее позицию, и начинайте считать последовательные буквы. Как только встретите небукву, то проверьте счетчик и удалите слово (STUFF), если счетчик не меньше требуемого. И так до конца строки. Алгоритм наверняка не самый оптимальный - это первое, что пришло в голову.

Re: Вырезать слова из строки

akvvohinc

Сообщений: 4219
Откуда: Москва
Дата регистрации: 11.11.2008

akvvohinc

01.11.17 07:49:39

Если ничего, кроме результата, не важно, то бегите посимвольно от начала к концу строки.
Встречая букву, запоминайте ее позицию, и начинайте считать последовательные буквы.
Как только встретите небукву, то проверьте счетчик и удалите слово (STUFF), если счетчик не меньше требуемого.
И так до конца строки.

Алгоритм наверняка не самый оптимальный - это первое, что пришло в голову.

Re: Вырезать слова из строки
vnkor Сообщений: 324 Дата регистрации: 04.10.2007	vnkor 01.11.17 08:53:20 dfr Надо из текстовой строки убрать (вырезать) слова. А пример можно?

Re: Вырезать слова из строки
dfr Автор Сообщений: 254 Откуда: Барнаул Дата регистрации: 29.07.2005	dfr 01.11.17 09:13:23 Ну если например минимальная длина 3, то из: Протяжённость железных дорог — около 4 тыс. км. Из них 1,1 тыс. км — узкоколейные пути, электрифицировано 283 км (2005). должно получиться: — 4 км. Из 1,1 км — 283 км (2005).

Re: Вырезать слова из строки
akvvohinc Сообщений: 4219 Откуда: Москва Дата регистрации: 11.11.2008	akvvohinc 01.11.17 09:18:37 dfr Ну если например минимальная длина 3, то из: Протяжённость железных дорог — около 4 тыс. км. Из них 1,1 тыс. км — узкоколейные пути, электрифицировано 283 км (2005). должно получиться: — 4 км. Из 1,1 км — 283 км (2005). По-моему, результат не соответствует заданию - исчезла часть небукв.

Re: Вырезать слова из строки

akvvohinc

Сообщений: 4219
Откуда: Москва
Дата регистрации: 11.11.2008

akvvohinc

01.11.17 09:18:37

dfr
Ну если например минимальная длина 3, то из:
Протяжённость железных дорог — около 4 тыс. км. Из них 1,1 тыс. км — узкоколейные пути, электрифицировано 283 км (2005).
должно получиться:
— 4 км. Из 1,1 км — 283 км (2005).

По-моему, результат не соответствует заданию - исчезла часть небукв.

Re: Вырезать слова из строки
Pliskin Сообщений: 2959 Откуда: Новосибирск Дата регистрации: 19.11.2003	Pliskin 01.11.17 09:21:28 getwordcount() getwordnum()

Re: Вырезать слова из строки
dfr Автор Сообщений: 254 Откуда: Барнаул Дата регистрации: 29.07.2005	dfr 01.11.17 12:15:10 akvvohinc По-моему, результат не соответствует заданию - исчезла часть небукв. Ну да, я там удалил еще точки сразу после удаляемых слов, считаю это буквой в слове )

Re: Вырезать слова из строки
dfr Автор Сообщений: 254 Откуда: Барнаул Дата регистрации: 29.07.2005	dfr 01.11.17 12:18:07 Pliskin getwordcount() getwordnum() В этих функциях можно указать из чего должен состоять выделяемый фрагмент? Мне надо только буквы, ну и точки/запятые (не обязательно), и с минимальной длиной.

Re: Вырезать слова из строки
of63 Сообщений: 25254 Откуда: Н.Новгород Дата регистрации: 13.02.2008	of63 01.11.17 13:08:59 Еще такой способ: - строим образ исходной строки, а именно CHRTRAN(исх.строка, все возможные буквы, REPICATE("X", сколько возможных букв)) && будет проще искать вхождения понятия "слово для удаления" - ищем в строке-образе AT() сначала максимальную последовательность "X" (потом меньше и меньше, до 4х, пока не найдем) - если нашли - удаляем найденное в исходной строке. Если не нашли - то конец цикла - повторить с шага 1

Re: Вырезать слова из строки

of63

Сообщений: 25254
Откуда: Н.Новгород
Дата регистрации: 13.02.2008

of63

01.11.17 13:08:59

Еще такой способ:
- строим образ исходной строки, а именно CHRTRAN(исх.строка, все возможные буквы, REPICATE("X", сколько возможных букв)) && будет проще искать вхождения понятия "слово для удаления"
- ищем в строке-образе AT() сначала максимальную последовательность "X" (потом меньше и меньше, до 4х, пока не найдем)
- если нашли - удаляем найденное в исходной строке. Если не нашли - то конец цикла
- повторить с шага 1

Re: Вырезать слова из строки
Рома Сообщений: 1079 Дата регистрации: 06.06.2001	Рома 01.11.17 13:44:52 Local lcInput as String lcInput = "Протяжённость железных дорог — около 4 тыс. км. Из них 1,1 тыс. км — узкоколейные пути, электрифицировано 283 км (2005)." Local re as VBScript.RegExp re = CreateObject("VBScript.RegExp") re.Pattern = "[A-ZА-ЯЁ]{3,}[\.,]?" re.IgnoreCase = .t. re.Global = .t. ?re.Replace(lcInput, "") Исправлено 2 раз(а). Последнее : Рома, 01.11.17 13:48

Re: Вырезать слова из строки

Рома

Сообщений: 1079
Дата регистрации: 06.06.2001

Рома

01.11.17 13:44:52


Local lcInput as String

lcInput = "Протяжённость железных дорог — около 4 тыс. км. Из них 1,1 тыс. км — узкоколейные пути, электрифицировано 283 км (2005)."

Local re as VBScript.RegExp
re = CreateObject("VBScript.RegExp")
re.Pattern = "[A-ZА-ЯЁ]{3,}[\.,]?"
re.IgnoreCase = .t.
re.Global = .t.
?re.Replace(lcInput, "")

Исправлено 2 раз(а). Последнее : Рома, 01.11.17 13:48

Re: Вырезать слова из строки
Igor Korolyov Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 01.11.17 13:49:44 dfr Pliskin getwordcount() getwordnum() В этих функциях можно указать из чего должен состоять выделяемый фрагмент? Мне надо только буквы, ну и точки/запятые (не обязательно), и с минимальной длиной. Нет, но кто мешает проанализировать найденное "слово" и если оно не удовлетворяет критериям удаления (короткое, или с цифрами) то оставить его. Аналогично (возможно более эффективно) можно использовать ALINES() с 3 и последующими параметрами (если версия фокса позволяет, конечно) - эта функция побьёт исходную строку на "слова" по указанным разделителям (их сами можно включать в слова, а можно и сразу выкинуть), а далее в цикле собрать обратно строку, выкидывая то что нужно выкинуть, ну и, возможно, "облагораживая" оставляемые элементы - убирая "пустые" или состоящие только из разделителей (точек/запятых/тире) элементы. По поводу "цифр" - к примеру слово "H1N1" - это слово из скольки букв? И нужно ли его по алгоритму оставить или убрать, или вообще считать за 2 однобуквенных слова побитых "цифрами"? В общем ТЗ требует серьёзного уточнения ------------------ WBR, Igor

Re: Вырезать слова из строки

Igor Korolyov

Сообщений: 34580
Дата регистрации: 28.05.2002

Igor Korolyov

01.11.17 13:49:44

dfr
Pliskin
getwordcount()
getwordnum()

В этих функциях можно указать из чего должен состоять выделяемый фрагмент? Мне надо только буквы, ну и точки/запятые (не обязательно), и с минимальной длиной.

Нет, но кто мешает проанализировать найденное "слово" и если оно не удовлетворяет критериям удаления (короткое, или с цифрами) то оставить его.
Аналогично (возможно более эффективно) можно использовать ALINES() с 3 и последующими параметрами (если версия фокса позволяет, конечно) - эта функция побьёт исходную строку на "слова" по указанным разделителям (их сами можно включать в слова, а можно и сразу выкинуть), а далее в цикле собрать обратно строку, выкидывая то что нужно выкинуть, ну и, возможно, "облагораживая" оставляемые элементы - убирая "пустые" или состоящие только из разделителей (точек/запятых/тире) элементы.
По поводу "цифр" - к примеру слово "H1N1" - это слово из скольки букв? И нужно ли его по алгоритму оставить или убрать, или вообще считать за 2 однобуквенных слова побитых "цифрами"?
В общем ТЗ требует серьёзного уточнения

------------------
WBR, Igor

Re: Вырезать слова из строки
dfr Автор Сообщений: 254 Откуда: Барнаул Дата регистрации: 29.07.2005	dfr 02.11.17 05:10:31 Рома Local lcInput as String lcInput = "Протяжённость железных дорог — около 4 тыс. км. Из них 1,1 тыс. км — узкоколейные пути, электрифицировано 283 км (2005)." Local re as VBScript.RegExp re = CreateObject("VBScript.RegExp") re.Pattern = "[A-ZА-ЯЁ]{3,}[\.,]?" re.IgnoreCase = .t. re.Global = .t. ?re.Replace(lcInput, "") Спасибо! То что и нужно. А таким же способом можно пробел вставить между знаком препинания и буквой?

Re: Вырезать слова из строки

dfr
Автор

Сообщений: 254
Откуда: Барнаул
Дата регистрации: 29.07.2005

dfr

02.11.17 05:10:31

Рома


Local lcInput as String

lcInput = "Протяжённость железных дорог — около 4 тыс. км. Из них 1,1 тыс. км — узкоколейные пути, электрифицировано 283 км (2005)."

Local re as VBScript.RegExp
re = CreateObject("VBScript.RegExp")
re.Pattern = "[A-ZА-ЯЁ]{3,}[\.,]?"
re.IgnoreCase = .t.
re.Global = .t.
?re.Replace(lcInput, "")

Спасибо! То что и нужно.

А таким же способом можно пробел вставить между знаком препинания и буквой?

Re: Вырезать слова из строки
dfr Автор Сообщений: 254 Откуда: Барнаул Дата регистрации: 29.07.2005	dfr 02.11.17 05:14:47 Igor Korolyov По поводу "цифр" - к примеру слово "H1N1" - это слово из скольки букв? И нужно ли его по алгоритму оставить или убрать, или вообще считать за 2 однобуквенных слова побитых "цифрами"? Цифры нельзя удалять ни в каких вариантах, слова на удаление только без цифр.

Re: Вырезать слова из строки

dfr
Автор

Сообщений: 254
Откуда: Барнаул
Дата регистрации: 29.07.2005

dfr

02.11.17 05:14:47

Igor Korolyov
По поводу "цифр" - к примеру слово "H1N1" - это слово из скольки букв? И нужно ли его по алгоритму оставить или убрать, или вообще считать за 2 однобуквенных слова побитых "цифрами"?

Цифры нельзя удалять ни в каких вариантах, слова на удаление только без цифр.

Re: Вырезать слова из строки
Рома Сообщений: 1079 Дата регистрации: 06.06.2001	Рома 02.11.17 11:02:35 dfr А таким же способом можно пробел вставить между знаком препинания и буквой? re.Pattern = "[A-ZА-ЯЁ]{3,}(\s*[.,])?" Почитай о синтаксисе регулярных выражений msdn.microsoft.com

Re: Вырезать слова из строки
dfr Автор Сообщений: 254 Откуда: Барнаул Дата регистрации: 29.07.2005	dfr 02.11.17 11:42:17 Спасибо Роман! Рома Почитай о синтаксисе регулярных выражений msdn.microsoft.com Периодически пытался, не шибко нужно было наверно ...

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 20 (Гостей: 20)