Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Макрос для word  (Прочитано 13658 раз)
0 Пользователей и 1 Гость смотрят эту тему.
КИС
Гость
« : 10-09-2010 11:24 » 

Макрос для word
Добрый день, уважемые форумчане...
Прошу прошение, если уже есть такая тема, дайте тогда ссылку, я пользовался поиском, соответственно не нашел.
в общем такая проблема, не могли бы подсказать, как правильно написать скрипт на VBA, работать должен вот так(пример):
Дается текст:

15.25 "ИНТЕРНЫ". Ситком.
16.00 "ИНТЕРНЫ". Ситком.
16.30 "ИНТЕРНЫ". Ситком.

Нужно чтобы было вот так:

15.25, 16.00, 16.30 "ИНТЕРНЫ". Ситком.

Или еще вот так (к примеру):
Дается текст:

15.25 "ИНТЕРНЫ". Ситком.
16.00 "УНИВЕР". Ситком.
16.30 "ИНТЕРНЫ". Ситком.

Нужно чтобы было вот так:

15.25, 16.30 "ИНТЕРНЫ". Ситком.
16.00 "УНИВЕР". Ситком.

Все обыскал, не могу решить...
Помогите решить, может кто-нибудь натыкался, дайте ссылку, если есть. Спасибо за внимание.
Записан
Алексей++
глобальный и пушистый
Глобальный модератор

ru
Offline Offline
Сообщений: 13


« Ответ #1 : 10-09-2010 11:40 » 

сгруппировать время  по ключу "имя"
Записан

КИС
Гость
« Ответ #2 : 10-09-2010 11:45 » 

сгруппировать время  по ключу "имя"

А именно? какой именно нужен оператор, подскажите хотя бы одну строчку, я б разобрался, поскольку я и сам учусь этому почти год, много чего достиг, но вот эту проблему никак не могу решить, как правильно, в каком порядке?
Записан
Алексей++
глобальный и пушистый
Глобальный модератор

ru
Offline Offline
Сообщений: 13


« Ответ #3 : 10-09-2010 11:55 » 

дык, я VBA не знаю (
я только метод решения задачи увидел

Записан

КИС
Гость
« Ответ #4 : 10-09-2010 11:57 » 

дык, я VBA не знаю (
я только метод решения задачи увидел



Понятно, жду помощи, пока не разобрался, как разберусь, потом отпищусь...
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #5 : 10-09-2010 12:04 » 

Как ты получаешь нужную строку?

Как ты можешь распарсить строку?
т.е. как ты определишь время, название, канал?

Когда ты разобрал строку - заполняешь массив (время, название,канал)
Сортируешь массив по названию

время =""
старое_название =""
Пробегаешь по массиву 
  если старое название равно массив(название) то
            время = время + массив(время)
            старое название = массив(название)
  иначе старое название =""

дальше писать мне лень Жаль
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
КИС
Гость
« Ответ #6 : 10-09-2010 12:27 » 

дальше писать мне лень Жаль

Ты чо с телефона на Т9 пишешь?
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #7 : 10-09-2010 12:29 » 

я пишу с РАБОТЫ.

Но ты не ответил на мои вопросы.
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
КИС
Гость
« Ответ #8 : 10-09-2010 12:49 » 

Все названия программы передач, будут в базе, работать будут по поиску, типа нашел "название", потом ищем еще такое же, если есть, копируем время, вставляем в первое "название", ну и так и далее...
Здесь я и сам никак не могу разобраться, возможно нужен другой подход, может кто то подскажет...
Ну смысл макроса в первом сообщении
Записан
Джон
просто
Администратор

de
Offline Offline
Пол: Мужской

« Ответ #9 : 10-09-2010 13:03 » 

дальше писать мне лень Жаль

Ты чо с телефона на Т9 пишешь?

Улыбаюсь) Улыбаюсь) Улыбаюсь)
Записан

Я вам что? Дурак? По выходным и праздникам на работе работать. По выходным и праздникам я работаю дома.
"Just because the language allows you to do something does not mean that it’s the correct thing to do." Trey Nash
"Physics is like sex: sure, it may give some practical results, but that's not why we do it." Richard P. Feynman
"All science is either physics or stamp collecting." Ernest Rutherford
"Wer will, findet Wege, wer nicht will, findet Gründe."
Джон
просто
Администратор

de
Offline Offline
Пол: Мужской

« Ответ #10 : 10-09-2010 13:04 » 

Все названия программы передач, будут в базе,

А при чём здесь тогда VBA? Может тебе SQL больше поможет?
Записан

Я вам что? Дурак? По выходным и праздникам на работе работать. По выходным и праздникам я работаю дома.
"Just because the language allows you to do something does not mean that it’s the correct thing to do." Trey Nash
"Physics is like sex: sure, it may give some practical results, but that's not why we do it." Richard P. Feynman
"All science is either physics or stamp collecting." Ernest Rutherford
"Wer will, findet Wege, wer nicht will, findet Gründe."
КИС
Гость
« Ответ #11 : 10-09-2010 17:35 » new

Все названия программы передач, будут в базе,

А при чём здесь тогда VBA? Может тебе SQL больше поможет?

Нет, наверное уже не осилю SQL, поскольку времени нет, все в притык... Пробую только тем, что я могу...

Тогда еще другой вариант, посоветуйте пожалуйста!!!

Например мне нужно обработать 1 канал, к примеру ТНТ. Как мы понимаем практически каждую неделю показывают одно и тоже, практически 70 %, ну имею ввиду сами передачи телепрограмм. Так вот это один текстовый документ в формате *.txt (назовем 1) там будет только понедельник, и еще будет один документ тоже в *.txt (назовем 2) - там будут названия сами программы передач. Суть заключается в том, что будут копироваться названия программ из документа 2, и искать по тексту документа 1, и тоже таким же образом, одинаковые объединяются в одну строку, как в первом сообщении этой темы...
Нормальный ли этот вариант, или я слишком загибаю, чет я совсем запарился, возможно мне нужен отдых... Все таки подскажите...
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines