ReSQL.ru
     
powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Замена символов по условиям
19 сообщений из 19, страница 1 из 1
Замена символов по условиям
    #39703763
No Spam
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
No Spam
Гость
Ребят, всем привет и спасибо, что откликнулись и уделили время теме

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

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

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

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

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

.doc(х)

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


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

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

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

iMrTidy,

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

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

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

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

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

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

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


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