Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.69/29: Рейтинг темы: голосов - 29, средняя оценка - 4.69
13 / 1 / 0
Регистрация: 10.03.2011
Сообщений: 25

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

18.03.2011, 10:25. Показов 5911. Ответов 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
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
18.03.2011, 10:25
Ответы с готовыми решениями:

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

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

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

2
1712 / 579 / 76
Регистрация: 10.04.2009
Сообщений: 9,327
18.03.2011, 11:16
как вариант сначала всё в таблицу Ворда, можно с цветомм границ таблицы None, затем построчно делаем что хотим
Или наколько я понял у Вас там не Знак обзаца, а Разрыв строки «^l»
0
0 / 0 / 0
Регистрация: 19.05.2011
Сообщений: 5
25.05.2011, 07:42
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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
25.05.2011, 07:42
Помогаю со студенческими работами здесь

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

Подстановочные поля
Здравствуйте, столкнулась с такой проблемой, для курсовой работы хочу в DataGridView отображать не Id работника, а его ФИО. Не смогла найти...

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

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

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


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru