Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Замена символов по условиям / 19 сообщений из 19, страница 1 из 1
17.09.2018, 17:00
    #39703763
No Spam
No Spam
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов по условиям
Ребят, всем привет и спасибо, что откликнулись и уделили время теме

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

если запятая идёт после буквы и перед точкой или запятой, то это ударение

Как быть, если ударение на последнем слоге и стоит пробел, я не знаю, но это уже будет для ручной правки, я полагаю.

Сам от любых программирований далёк. Подскажите, пожалуйста, скрипт, которым можно было бы провести данную замену ибо 578 страниц для ручного труда - это что-то слишком запредельное.

Всем признателен за помощь и желаю удачной трудовой недели!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.09.2018, 17:28
    #39703782
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов по условиям
No Spam,
Нужен файл-пример. А то непонятно даже о каком приложении речь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.09.2018, 20:06
    #39703855
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов по условиям
кросс http://www.programmersforum.ru/showthread.php?t=322725
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.09.2018, 08:02
    #39703954
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов по условиям
В принципе один достаточно несложный регэксп...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2018, 05:08
    #39706372
No Spam
No Spam
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов по условиям
Ребят, всех благодарю за уделённое время и приношу извинения, что сразу не указал.

.doc(х)

Файл прикладываю в аттаче
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2018, 05:22
    #39706374
No Spam
No Spam
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов по условиям
Прикладываю исходный и корректный варианты написания образца текста


Предыдущее вложение можно удалить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2018, 05:23
    #39706375
No Spam
No Spam
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов по условиям
Akina,

был бы признателен за помощь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2018, 15:24
    #39706421
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов по условиям
No Spam,

Медленно, но верно:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Sub FixCommas()
On Error GoTo Catch

Dim doc As Document
Dim l As Long
Dim sAfterCorrComma As String
Dim iPos As Integer

Application.ScreenUpdating = False
sAfterCorrComma = " "
Set doc = ActiveDocument
With doc.Range
    For l = .Characters.Count - 1 To 2 Step -1
        If .Characters(l) = "," And InStr(sAfterCorrComma, .Characters(l + 1)) = 0 Then
            .Characters(l - 1) = .Characters(l - 1) & ChrW(769)
            .Characters(l).Delete
        End If
    Next
End With

Catch:
    Application.ScreenUpdating = True

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2018, 13:48
    #39706541
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов по условиям
Быстро и без макросов :)
Ctrl+H, найти: ,([! ]) Заменить на: набрать на цифровой клавиатуре Alt+769 и \1 (будет отображаться только \1), Больше - Подстановочные знаки, Заменить все (можно сначала Найти далее - Заменить, чтобы убедиться, что замена работает правильно).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2018, 11:42
    #39710480
No Spam
No Spam
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов по условиям
Казанский, благодарю за ответ. А как убрать лишний пробел, который ставится после символа с ударением?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2018, 11:52
    #39710482
No Spam
No Spam
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов по условиям
Казанский,

прикладываю файл.

iMrTidy,

благодарю. Запустил, но скрипт почему-то "повесил" Ворд :) Отпишусь что получится
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2018, 20:13
    #39710638
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов по условиям
No SpamКазанский, благодарю за ответ. А как убрать лишний пробел, который ставится после символа с ударением?У меня не ставится пробел (Word 2007). Может Вы перед \1 пробел поставили?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2018, 22:05
    #39710664
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов по условиям
No Spam,

Если документ большой, то займет время. Я вроде бы писал, что работает медленно, но верно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2018, 22:07
    #39710666
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов по условиям
No Spam,

Да, и Вам предложили куда более оптимальный способ.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2018, 10:39
    #39711500
No Spam
No Spam
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов по условиям
iMrTidyNo Spam,

Если документ большой, то займет время. Я вроде бы писал, что работает медленно, но верно.
Больше 12 часов висел. В любом случае, благодарю за указанный вариант исполнения и уделённое время.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2018, 10:42
    #39711504
No Spam
No Spam
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов по условиям
КазанскийNo SpamКазанский, благодарю за ответ. А как убрать лишний пробел, который ставится после символа с ударением?У меня не ставится пробел (Word 2007). Может Вы перед \1 пробел поставили?На том компе вроде 2010 стоит. Перепроверю ещё раз. Он как-то избирательно (я приводил примеры): в одном месте ставится, а в других - нет. Потому и не понял принцип простановки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2018, 11:35
    #39714004
No Spam
No Spam
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов по условиям
Word 2007 оказался. Замена прошла спешно!

Спасибо огромное!

А символы со знаком ударения можно как-либо выделить болдом?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2018, 16:39
    #39714555
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов по условиям
No Spam,
вторым действием найти: (? Alt+769 ) , заменить на \1 , Формат - Шрифт - полужирный, подстановочные знаки, заменить все.
В поле Найти будет отображаться (?) и над знаком вопроса можно заметить черточку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.11.2018, 01:56
    #39734679
No Spam
No Spam
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов по условиям
Казанский,

огромная благодарность! Всё получилось.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Замена символов по условиям / 19 сообщений из 19, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 449ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2172195]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 56ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 289ms
total:  449ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]