Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/15: Рейтинг темы: голосов - 15, средняя оценка - 4.73
gauss_gauss
13 / 1 / 0
Регистрация: 10.03.2011
Сообщений: 25
1

Подстановочные знаки

18.03.2011, 10:25. Просмотров 2980. Ответов 2
Метки нет (Все метки)

Требуется: убрать лишний текст в тв-программе
Пример:
06.00 «Герой нашего времени». Телесериал (Россия, 2006). 1-я серия
07.05 «Главный калибр». Телесериал (Россия, 2006). 1-я и 2-я серии
08.55 Обзор прессы
09.00, 13.00, 16.00, 18.00, 22.00 НОВОСТИ
09.15 «Главный калибр». Телесериал (Россия, 2006). 3-6 серии
13.15 «Большой репортаж»
14.15 ЛЮБИМЫЕ ФИЛЬМЫ БЕЗ РЕКЛАМЫ. «Мимино» («Мосфильм»,1977)
16.20 «Особый отдел». Документальный сериал. «Операция «Туман», «Операция «Арийцы»
18.30 «Доктор Живаго». Телесериал (Россия, 2006). 1-я серия
19.30 «Отечественное стрелковое оружие». Документальный сериал. «Автоматы»
20.15 «В полосе прибоя». Художественный фильм (Свердловская к/ст.,1990)
22.30 «Хозяин тайги». Художественный фильм («Мосфильм»,1968)
00.10 «Зеленый огонек». Художественный фильм («Мосфильм»,1964)
Для Москвы и Московской области профилактические работы с 01.45 до 06.00
01.45 «Последняя репродукция». Телесериал (Россия, 2007). 1-4 серии

Мне нужно оставить только название фильма, или название серии из цикла. Соответственно ключевое слово в строчке это "Телесериал" или "Художественный фильм"
тогда поиск должен сводиться примерно к этому запросу

([0-9][0-9].[0-9][0-9])(*[!^0013])(Телесериал)(*)^0013
однако ворд выделяет лишние строки: от последней найденой до текущего совпадения. Игнорируется почему-то [!^0013] "не знак абзаца". Вопрос почему? И как по другом тогда быть?
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.03.2011, 10:25
Ответы с готовыми решениями:

Знаки & %
В VBA иногда объявляют переменные так например: Dim a%, b& as Variant что значит % и &?(я знаю...

Подстановочные знаки и ТВ-Программа
Требуется: убрать лишний текст в тв-программе Пример: 06.00 «Герой нашего времени». Телесериал...

Подстановочные знаки {n,m}, неверный шаблон поиска
Здрасти, не подскажете как пользоваться выражением {n,m} В справке ворда написано: От n до m...

Подстановочные поля
Чтобы в подстановочном поле отображалось через запятую два значения (одно значение из одного поля,...

Подстановочные поля
Здравствуйте, столкнулась с такой проблемой, для курсовой работы хочу в DataGridView отображать не...

2
Ципихович Эндрю
1414 / 324 / 28
Регистрация: 10.04.2009
Сообщений: 5,170
18.03.2011, 11:16 2
как вариант сначала всё в таблицу Ворда, можно с цветомм границ таблицы None, затем построчно делаем что хотим
Или наколько я понял у Вас там не Знак обзаца, а Разрыв строки «^l»
0
dust2
0 / 0 / 0
Регистрация: 19.05.2011
Сообщений: 5
25.05.2011, 07:42 3
gauss_gauss,

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub find_action()
 
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
   .Text = " в боевике "
   .Replacement.Text = " в боевике "
   .Forward = True
   .Wrap = wdFindContinue
   .MatchWildcards = True
End With
Selection.Find.Execute
With Selection
If .Find.Forward = True Then
    Selection.HomeKey unit:=wdLine
    With Selection.Find
        .Text = "([0-9][0-9].[0-9][0-9] ~ )(*)(«*»)(^13)"
        .Replacement.Text = "\1Х/ф \3\4"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
    End With
    Selection.Find.Execute
         With Selection
             If .Find.Forward = True Then
                 .Find.Execute Replace:=wdReplaceOne
             Else
                Selection.HomeKey unit:=wdStory
                 End If
                  Selection.HomeKey unit:=wdStory
         End With
Else
Selection.HomeKey unit:=wdStory
End If
End With
Selection.HomeKey unit:=wdStory
End Sub
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2011, 07:42

Подстановочные символы в расширенном фильтре
Здравствуйте. Объясните пожалуйста, почему у меня не работает расширенный фильтр, приложил пример,...

Криптография. Подстановочные шифры (шифр Цезаря)
Доброго времени суток, нужна Ваша помощь! Имеется шифрованный текст, полученный с помощью шифра...

Найти строку через подстановочные символы
есть кавычки, такие " " внутри них может быть что угодно, длиной до 10 символов. Может быть и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.