Извлечь максимум из новостей в интернете, часть 3

Часть 3

Как я автоматизировал доставку аудиоподкастов на свой плеер

Продолжение статьи про новости - как я скачиваю подкасты. Предыдущие части тут и тут.

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

У аудиокнижек и подкастов плюс в том, что можно эффективно занять время, когда держать книгу в руках просто неудобно - путь пешком до метро, беговая дорожка или другие способы активного время провождения.

Я прошёл долгий путь по выбору конкретного аудиопроигрывателя (и, возможно, этот путь ещё не закончен) - bluetooth-наушники в связке со смартфоном, наушники со встроенным плеером, и прочее и прочее. Сейчас у меня есть простенький китайский mp3-плеер (которых было заказано сразу несколько штук и в случае поломок можно просто выкинуть один и взять другой). Цена вопроса - около 300 рублей за штуку. Если плеер проработает хотя бы 1 год, то это просто удача. В моём случае один плеер работает уже с декабря 2019, что я считаю, признак успеха китайской промышленности.

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

Мне очень « зашли » подкасты радио Маяк. В школе я не любил историю - все эти сухие даты, непонятные события (когда алая Роза напала на Белую Розу или наоборот? и чем вообще эта буза закончилась?). Но сейчас мне эта тема почему-то стала интересна, особенно если тему раскрывает интересный рассказчик. История страны, история мира. Интересны подкасты про общее развитие, про новые технологии. Аудио-книги, которые в своё время не успел прочитать. Всё очень интересно. И очень удобно.

Кстати, буду признателен, если в комментариях оставите ссылки на свои подкасты.

Задача: Хочется скачивать аудиофайлы с сайта радио Маяк, и раскладывать их по каталогам, чтобы потом в дальнейшем легко копировать на плеер.

Для начала посмотрим, что же пишется в файле новостей из радио Маяк. Возьмём для примера подкаст «30 сюжетов цивилизации»:

Как видим, у каждой новости (одна новость = одна радио-передача = rss.channel.item) есть тэг enclosure с гиперссылкой (атрибут url) на mp3-файл. Это именно то, что нам нужно.

Надо скачать все файлы и сохранить их на диске, сохраняя структуру папок, чтобы потом скопировать на плеер.

Не помешает база данных. Что бы использовать? Я для себя выбрал 1С - там встроенная база данных (как в MS Access), есть работа с интернетом (загрузка файлов), парсинг xml, работа с файловой системой, можно буквально мышкой нарисовать интерфейс - и всё это "из коробки"! Плюс у меня есть некоторый опыт работы с 1С.

У 1С есть бесплатный вариант (версия «для обучения  программированию»), которую можно бесплатно и без смс скачать с сайта (http://online.1c.ru/catalog/programs/program/28765768/) - это свежая версия на текущий момент. Для загрузки потребуется только емейл.

У версии «для обучения программированию» есть ограничения по количеству записей в таблицах. Но это не проблема - вместо одной большой базы данных можно создать несколько маленьких.

По лицензионному соглашению мы можем использовать «версию для обучения», как ни странно, только для обучения, а не для реального учёта. Ну мы же и будем учиться?

Итак, я скачал версию 1С «для обучения программированию»…

Опустим процесс инсталляции. Там всё просто.

Почти по аналогии с MS Access (где одна база = один файл), В 1С одна база = один каталог. При запуске 1С надо будет указать какой-то каталог в качестве каталога нужной базы данных. После этого можно нажать «Конфигуратор», чтобы открыть IDE для редактирования кода и интерфейса.

Информационная база 1С состоит, грубо говоря, из непосредственно данных и из метаданных. Метаданные - код на языке 1С, описание интерфейса и прочая информация.

Можно хранить данные и метаданные в системе баз данных (MS SQL, Postgres), но 1С умеет работать и с локальной базой данных (формат 1С). Локальная файловая база данных 1С - это один файл с фиксированным именем «1Cv8.1CD», который лежит в заданном каталоге. Версия для обучения позволяет работать только с файловой базой, прикрутить Postgres к ней не получится.

Таблицы баз данных (в терминологии систем баз данных) в 1С будут называться «Справочниками» (условно постоянная информация), «Документами» (информация об изменении данных), всякими «Регистрами сведений», «Регистрами накоплений», «Регистрами бухгалтерии» (непосредственно значения изменённых данных).

Для моих целей нужно будет создать:

• справочник «Подкасты», где хранится список интересных мне подкастов с URL на всю RSS-ленту новостей этого подкаста;

• справочник «Аудиоматериалы», где хранятся URL на конкретные файлы MP3;

• регистр сведений «ГлобальныеНастройки», где хранятся прочие настройки, например корневой каталог в файловой системе, куда скачивать mp3-файлы.

Формы для ввода данных для этих справочников рисуются буквально мышкой.

Вот, например, настроенный внешний вид справочника «Подкасты» (ни строчки кода!):

Если форму не рисовать, то платформа 1С сама её создаст, «на лету». Собственно, форма ввода для справочника «Подкасты» - единственная, которую я делал сам, «ручками». Остальные формы ввода платформа 1С генерирует автоматически.

Например, формы «1» и «2» платформа 1С нарисовала сама:

Данные для подкастов пришлось вводить ручками, но это одноразовое действие:

Дальше пришлось немного написать кода на языке 1С. Я знаю, что многие на хабре не считают 1С нормальным языком. Но как по мне, 1С умеет делать всё, что умеют все остальные языки. И это всё «из коробки». Ребятки, сравните-ка код 1С по построчному чтению файла в старых версиях Java (статья на хабре: Эволюция Java на примере чтения строк из файла) и код 1С:

&НаКлиенте
Процедура КомандаПрочитатьФайл(Команда)

    ЧтениеТекста = Новый ЧтениеТекста("e:\Data\Texts\Статья на хабре, новости\Attachments\30 сюжетов цивилизации RSS.xml", "UTF-8");
    ТекущаяСтрока = ЧтениеТекста.ПрочитатьСтроку();
    Пока ТекущаяСтрока <> Неопределено Цикл
        // Обработать строку
        ТекущаяСтрока = ЧтениеТекста.ПрочитатьСтроку();
    КонецЦикла;

КонецПроцедуры

Но извините, я отвлёкся.

Кода на 1С будет не очень много:

КомандаЗагрузитьСписокАудиоматериалов - для выделенных строк. 1С подключается к RSS-ленте, загружает XML, парсит его, и добавляет новые файлы для загрузки в справочник «АудиоМатериалы». Одна новость = один файл.

Загрузка файла из интернет:

&НаСервере
Процедура ЗагрузитьСписокАудиоматериаловДляПодкаста(Подкаст, URL)

    // 1. Загрузить XML-файл со списком аудиоматериалов.
    РазложенныйURL = СтрРазделить(URL, "/", Ложь);
    Сервер       = РазложенныйURL[1]; // https://radiomayak.ru/podcasts/rss/podcast/3321/type/audio/ -> radiomayak.ru
    Порт         = Неопределено;
    Пользователь = Неопределено;
    Пароль       = Неопределено;
    Прокси       = Новый ИнтернетПрокси(Истина);
    Таймаут      = 30;

    HTTPСоединение = Новый HTTPСоединение(
        Сервер,
        Порт,
        Пользователь, 
        Пароль,
        Прокси,
        Таймаут,
        Новый ЗащищенноеСоединениеOpenSSL,
        Ложь);

    РазложенныйАдресРесурса = РазложенныйURL;
    РазложенныйАдресРесурса.Удалить(0); // http
    РазложенныйАдресРесурса.Удалить(0); // сервер
    АдресРесурса = СтрСоединить(РазложенныйАдресРесурса, "/");

    Заголовки = Новый Соответствие;
    HTTPЗапрос = Новый HTTPЗапрос(АдресРесурса, Заголовки);
    HTTPОтвет = HTTPСоединение.ВызватьHTTPМетод("GET", HTTPЗапрос);

    Если HTTPОтвет.КодСостояния = 200 Тогда
        ТелоОтвета = HTTPОтвет.ПолучитьТелоКакСтроку(КодировкаТекста.UTF8);

//// И так далее...

Парсинг загруженного XML и сохранение в справочник «АудиоМатериалы»:

ЧтениеXML = Новый ЧтениеXML;
ЧтениеXML.УстановитьСтроку(ТелоОтвета);
    ОбъектXDTO = ФабрикаXDTO.ПрочитатьXML(ЧтениеXML);
    СписокАудиоМатериаловXDTO = ОбъектXDTO.channel.ПолучитьСписок("item");
    Для Каждого ТекущийЭлементXDTO Из СписокАудиоМатериаловXDTO Цикл
        Длительность    = ТекущийЭлементXDTO.duration;
        ДлительностьЧас = Число(Сред(Длительность, 1, 2));
        ДлительностьМин = Число(Сред(Длительность, 4, 2));
        ДлительностьСек = Число(Сред(Длительность, 7, 2));
        ДатаОбновления  = ДатаRFC1123(ТекущийЭлементXDTO.pubDate);
        Описание        = ?(ТекущийЭлементXDTO.Свойства().Получить("summary") = Неопределено, "", ТекущийЭлементXDTO.summary);
        Заголовок       = ТекущийЭлементXDTO.title;
        УИН             = ТекущийЭлементXDTO.guid.Последовательность().ПолучитьТекст(0);
        Гиперссылка     = ТекущийЭлементXDTO.enclosure.url;
        РазмерФайла     = ?(ТекущийЭлементXDTO.enclosure.Свойства().Получить("length") = Неопределено, 0, ТекущийЭлементXDTO.enclosure.length);
        // Найти элемент справочника АудиоМатериалы по УИН
        АудиоМатериалСсылка = Справочники.АудиоМатериалы.НайтиПоРеквизиту("УИН", УИН, , Подкаст);
        Если АудиоМатериалСсылка.Пустая() Тогда
            АудиоМатериалОбъект = Справочники.АудиоМатериалы.СоздатьЭлемент();
        Иначе
            АудиоМатериалОбъект = АудиоМатериалСсылка.ПолучитьОбъект();
        КонецЕсли;
            АудиоМатериалОбъект.Владелец           = Подкаст;
            АудиоМатериалОбъект.УИН                = УИН;
            АудиоМатериалОбъект.Наименование       = Заголовок;
            АудиоМатериалОбъект.URL                = Гиперссылка;
            АудиоМатериалОбъект.ДлительностьЧасов  = ДлительностьЧас;
            АудиоМатериалОбъект.ДлительностьМинут  = ДлительностьМин;
            АудиоМатериалОбъект.ДлительностьСекунд = ДлительностьСек;
            АудиоМатериалОбъект.Описание           = Описание;
            АудиоМатериалОбъект.РазмерФайла        = РазмерФайла;
            АудиоМатериалОбъект.ДатаОбновления     = ДатаОбновления;
        АудиоМатериалОбъект.Записать();
    КонецЦикла;
ЧтениеXML.Закрыть();

Не люблю формат RSS из-за формата даты RFC 1123 (если точнее, то RFC 822, часть 5) - <pubDate>Sun, 21 May 2017 11:00:00 GMT</pubDate>. Пришлось написать ещё немного кода:

&НаСервере
// Возвращает дату, преобразованную из формата RFC 1123 в тип Дата.
Функция ДатаRFC1123(ДатаСтрокойHTTP)

    ИменаМесяцев = "janfebmaraprmayjunjulaugsepoctnovdec";
    // rfc1123-date = wkday "," SP date1 SP time SP "GMT".
    ПозицияПервогоПробела = СтрНайти(ДатаСтрокойHTTP, " ");//с первого пробела до второго пробела идет дата.
    ПодстрокаДата = Сред(ДатаСтрокойHTTP,ПозицияПервогоПробела + 1);
    ПодстрокаВремя = Сред(ПодстрокаДата, 13);
    ПодстрокаДата = Лев(ПодстрокаДата, 11);
    ПозицияПервогоПробела = СтрНайти(ПодстрокаВремя, " ");
    ПодстрокаВремя = Лев(ПодстрокаВремя,ПозицияПервогоПробела - 1);
    // date1 = 2DIGIT SP month SP 4DIGIT.
    ПодстрокаДень = Лев(ПодстрокаДата, 2);
    ПодстрокаМесяц = Формат(Цел(СтрНайти(ИменаМесяцев,НРег(Сред(ПодстрокаДата,4,3))) / 3)+1, "ЧЦ=2; ЧН=00; ЧВН=");
    ПодстрокаГод = Сред(ПодстрокаДата, 8);
    // time = 2DIGIT ":" 2DIGIT ":" 2DIGIT.
    ПодстрокаЧас = Лев(ПодстрокаВремя, 2);
    ПодстрокаМинута = Сред(ПодстрокаВремя, 4, 2);
    ПодстрокаСекунда = Прав(ПодстрокаВремя, 2);

    Возврат Дата(ПодстрокаГод + ПодстрокаМесяц + ПодстрокаДень + ПодстрокаЧас + ПодстрокаМинута + ПодстрокаСекунда);

КонецФункции

После того, как мы сохранили в таблице список URL mp3-файлов, можно их загрузить. Если запустить 1С в режиме "Предприятие", то в справочнике «Подкасты» можно выделить несколько строк и нажать «Загрузить аудиоматериалы».

КомандаЗагрузитьАудиоматериалы - анализирует данные из справочника «АудиоМатериалы» и сравнивает с уже загруженными файлами в файловой системе. Если файла нет или размер не совпадает, то он будет загружен.

Данные в можно получать запросами, очень похожими на обычный SQL:

Запрос = Новый Запрос;
Запрос.Текст = "
    |ВЫБРАТЬ
    |    ЛОЖЬ                                          КАК Загружать,
    |    Спр.Владелец.Наименование                     КАК Подкаст,
    |    &КаталогМедиаФайлов                           КАК КаталогМедиаФайлов,
    |    Спр.Владелец.КаталогСохраненияАудиоматериалов КАК КаталогСохраненияАудиоматериалов,
    |    Спр.Владелец.ШаблонИмениФайла                 КАК ШаблонИмениФайла,
    |    &Строка255                                    КАК ИмяФайла,
    |    Спр.Наименование                              КАК Наименование,
    |    Спр.URL                                       КАК URL,
    |    Спр.Описание                                  КАК Описание,
    |    Спр.ДатаОбновления                            КАК ДатаОбновления,
    |    ""          ""                                КАК ДатаОбновленияГГГГММДД,
    |    Спр.ДлительностьЧасов                         КАК ДлительностьЧасов,
    |    Спр.ДлительностьМинут                         КАК ДлительностьМинут,
    |    Спр.ДлительностьСекунд                        КАК ДлительностьСекунд,
    |    ""     ""                                     КАК ДлительностьММСС,
    |    Спр.РазмерФайла                               КАК РазмерФайлаНадо,
    |    0                                             КАК РазмерФайлаЕсть
    |ИЗ
    |    Справочник.АудиоМатериалы КАК Спр
    |ГДЕ
    |    Спр.Владелец В (&Подкасты)
    |    И Спр.Владелец.ПометкаУдаления = ЛОЖЬ
    |УПОРЯДОЧИТЬ ПО
    |    Спр.Владелец.Наименование
    |";
Запрос.УстановитьПараметр("Подкасты"          , МассивПодкастов);
Запрос.УстановитьПараметр("Строка255"         , Строка255);
Запрос.УстановитьПараметр("КаталогМедиаФайлов", КаталогМедиаФайлов);

РезультатЗапроса = Запрос.Выполнить();
Если НЕ РезультатЗапроса.Пустой() Тогда
    // Обработка данных запроса
КонецЕсли;

Хэдхантеры, вы вообще в курсе, что даже начинающий «1С-ник из коробки» уже умеет SQL?

Проверяем, наличие файлов. Если файл есть и его размер совпадает, то загружать заново смысла нет. Если файла нет или его размер не совпадает - загрузим снова.

// Подготовить имена файлов
ТаблицаФайлов = РезультатЗапроса.Выгрузить(ОбходРезультатаЗапроса.Прямой);
Для Каждого ТекущийФайл Из ТаблицаФайлов Цикл
    Если СтрЗаканчиваетсяНа(ТекущийФайл.КаталогМедиаФайлов, "\") Тогда
        ТекущийФайл.КаталогМедиаФайлов = Лев(ТекущийФайл.КаталогМедиаФайлов, СтрДлина(ТекущийФайл.КаталогМедиаФайлов) - 1);
    КонецЕсли;
    Если СтрЗаканчиваетсяНа(ТекущийФайл.КаталогСохраненияАудиоматериалов, "\") Тогда
        ТекущийФайл.КаталогСохраненияАудиоматериалов = Лев(ТекущийФайл.КаталогСохраненияАудиоматериалов, СтрДлина(ТекущийФайл.КаталогСохраненияАудиоматериалов) - 1);
    КонецЕсли;
    ТекущийФайл.ДатаОбновленияГГГГММДД = Формат(ТекущийФайл.ДатаОбновления, "ДФ=yyyy-MM-dd");
    ТекущийФайл.ДлительностьММСС = Формат(ТекущийФайл.ДлительностьМинут, "ЧЦ=2; ЧН=00; ЧВН=") + "." + Формат(ТекущийФайл.ДлительностьСекунд, "ЧЦ=2; ЧН=00; ЧВН=");
    ТекущийФайл.КаталогСохраненияАудиоматериалов = ЗаменитьПеременные(ТекущийФайл.КаталогСохраненияАудиоматериалов, ТекущийФайл, ПравилаЗамены);
    ТекущийФайл.ИмяФайла = ЗаменитьПеременные(ТекущийФайл.ШаблонИмениФайла, ТекущийФайл, ПравилаЗамены);
    ТекущийФайл.ИмяФайла = УдалитьЗапрещенныеСимволы(ТекущийФайл.ИмяФайла);
КонецЦикла;

// Проверить файлы на наличие и размер.
// Параллельно проверить и сформировать структуру каталогов.
Для Каждого ТекущийФайл Из ТаблицаФайлов Цикл
    Файл = Новый Файл(ТекущийФайл.КаталогСохраненияАудиоматериалов + "\" + ТекущийФайл.ИмяФайла);
    Если Файл.Существует() Тогда
        ТекущийФайл.РазмерФайлаЕсть = Файл.Размер();
        Если ТекущийФайл.РазмерФайлаЕсть <> ТекущийФайл.РазмерФайлаНадо Тогда
            ТекущийФайл.Загружать = Истина;
        КонецЕсли;
    Иначе
        СтруктураКаталогов = СтрРазделить(ТекущийФайл.КаталогСохраненияАудиоматериалов + "\" + ТекущийФайл.ИмяФайла, "\", Ложь);
        ТекущееИмяКаталога = СтруктураКаталогов[0];
        Для С=1 По СтруктураКаталогов.ВГраница()-1 Цикл // Без имени диска и без самого имени файла.
            ТекущееИмяКаталога = ТекущееИмяКаталога + "\" + СтруктураКаталогов[С];
            ТекущийКаталог = Новый Файл(ТекущееИмяКаталога);
            Если НЕ ТекущийКаталог.Существует() Тогда
                СоздатьКаталог(ТекущееИмяКаталога);
            КонецЕсли;
        КонецЦикла;
        ТекущийФайл.Загружать = Истина;
    КонецЕсли;
КонецЦикла;

// Загрузить несуществующие файлы.
Для Каждого ТекущийФайл Из ТаблицаФайлов Цикл
    Если ТекущийФайл.Загружать = Истина Тогда
        ЗагрузитьФайл(ТекущийФайл.URL, ТекущийФайл.КаталогСохраненияАудиоматериалов + "\" + ТекущийФайл.ИмяФайла);
        ОбновитьОписаниеФайла(ТекущийФайл.ИмяФайла, ТекущийФайл.КаталогСохраненияАудиоматериалов, ТекущийФайл.Описание);
    КонецЕсли;
КонецЦикла;

Непосредственно загрузка:

&НаСервере
Процедура ЗагрузитьФайл(URL, ПолноеИмяФайла)

    РазложенныйURL = СтрРазделить(URL, "/", Ложь);
    Сервер       = РазложенныйURL[1]; // https://radiomayak.ru/podcasts/rss/podcast/3321/type/audio/ -> radiomayak.ru
    Порт         = Неопределено;
    Пользователь = Неопределено;
    Пароль       = Неопределено;
    Прокси       = Новый ИнтернетПрокси(Истина);
    Таймаут      = 30;

    HTTPСоединение = Новый HTTPСоединение(
        Сервер,
        Порт,
        Пользователь,
        Пароль,
        Прокси,
        Таймаут,
        Новый ЗащищенноеСоединениеOpenSSL,
        Ложь);

    РазложенныйАдресРесурса = РазложенныйURL;
    РазложенныйАдресРесурса.Удалить(0); // http
    РазложенныйАдресРесурса.Удалить(0); // сервер
    АдресРесурса = СтрСоединить(РазложенныйАдресРесурса, "/");

    Заголовки = Новый Соответствие;
    HTTPЗапрос = Новый HTTPЗапрос(АдресРесурса, Заголовки);
    HTTPОтвет = HTTPСоединение.ВызватьHTTPМетод("GET", HTTPЗапрос);

    Если HTTPОтвет.КодСостояния = 200 Тогда
        ДвоичныеДанныеФайла = HTTPОтвет.ПолучитьТелоКакДвоичныеДанные();
        ДвоичныеДанныеФайла.Записать(ПолноеИмяФайла);
    Иначе
        Сообщить(
            СтрШаблон(
                НСтр("ru='Ошибка загрузки: код %1, сервер %2, ресурс %3'"),
                HTTPОтвет.КодСостояния,
                Сервер,
                АдресРесурса));
    КонецЕсли;

КонецПроцедуры

В качестве файлового менеджера я использую «Total commander». Купил его официально, но в принципе программа работает и бесплатно - всего-навсего при запуске программы надо будет нажать одну из трёх случайных кнопок.

В «Total commander» в каталоге можно сохранить файл «descript.ion», в котором можно хранить комментарии к файлам. Это очень удобно. Эти комментарии в отдельном файле (в отличие от потоков в NTFS) сохраняются при копировании на FAT (естественно, если копировать с помощью "Total Commander"). Некоторые умельцы даже умеют показывать такие комментарии и в стандартном проводнике Windows (https://dudom.ru/kompjutery/kak-dobavit-kommentarij-k-fajlu/), но я не пробовал.

Например, в комментарии можно хранить некие тэги, например «Просмотрено;» и настроить сам «Total commander», чтобы файлы помеченные таким тэгом показывались серым цветом (скриншот будет ниже). Удобно.

Структура файла «descript.ion» очень простая: имя файла (возможно, в кавычках) и через пробел - произвольный комментарий:

Поэтому, при загрузке файла, можно сразу делать запись в этот «descript.ion»:

&НаСервере
Процедура ОбновитьОписаниеФайла(ИмяФайла, КаталогСохраненияАудиоматериалов, Описание)

    // Найти / создать в КаталогСохраненияАудиоматериалов файл descript.ion
    ИмяФайлаОписания = КаталогСохраненияАудиоматериалов + "\descript.ion";
    ФайлОписаний = Новый Файл(ИмяФайлаОписания);
    Если ФайлОписаний.Существует() Тогда
        ЧтениеТекста = Новый ЧтениеТекста(ИмяФайлаОписания, КодировкаТекста.ANSI, Символы.ПС, Символы.ПС, Ложь);
        ВсеСодержимое = ЧтениеТекста.Прочитать();
        ЧтениеТекста.Закрыть();
    Иначе
        ВсеСодержимое = "";
    КонецЕсли;

    // Найти / добавить в файле КаталогСохраненияАудиоматериалов\descript.ion строку, начинающуюся с ИмяФайла и содержащую Описание (замена переводов строк на \n)
    ВсеНовыеСтроки = Новый Массив;
    ОписаниеБезПереводовСтрок = Описание;
    ОписаниеБезПереводовСтрок = СтрЗаменить(ОписаниеБезПереводовСтрок, "<br>", "\n");
    ОписаниеБезПереводовСтрок = СтрЗаменить(ОписаниеБезПереводовСтрок, "<br/>", "\n");
    ОписаниеБезПереводовСтрок = СтрЗаменить(ОписаниеБезПереводовСтрок, Символы.ПС, "\n");
    ОписаниеБезПереводовСтрок = СтрЗаменить(ОписаниеБезПереводовСтрок, Символы.ВК, "\n");
    ОписаниеБезПереводовСтрок = СтрЗаменить(ОписаниеБезПереводовСтрок, "\n\n", "\n");
    Если НЕ ПустаяСтрока(ВсеСодержимое) Тогда
        НайденТекущийФайл = Ложь;
        ВсеСтарыеСтроки = СтрРазделить(ВсеСодержимое, Символы.ПС, Ложь);
        Для Каждого ТекущаяСтрока Из ВсеСтарыеСтроки Цикл
            Если СтрНачинаетсяС(ТекущаяСтрока, """" + ИмяФайла + """" + " ") Тогда
                ВсеНовыеСтроки.Добавить("""" + ИмяФайла + """" + " " + ОписаниеБезПереводовСтрок);
                НайденТекущийФайл = Истина;
            Иначе
                ВсеНовыеСтроки.Добавить(ТекущаяСтрока);
            КонецЕсли;
        КонецЦикла;
        Если НайденТекущийФайл <> Истина Тогда
            ВсеНовыеСтроки.Добавить("""" + ИмяФайла + """" + " " + ОписаниеБезПереводовСтрок);
        КонецЕсли;
    Иначе
        ВсеНовыеСтроки.Добавить("""" + ИмяФайла + """" + " " + ОписаниеБезПереводовСтрок);
    КонецЕсли;

    // Записать в файл обратно.
    Если ВсеНовыеСтроки.Количество() > 0 Тогда
        ЗаписьТекста = Новый ЗаписьТекста(ИмяФайлаОписания, КодировкаТекста.ANSI, Символы.ПС, Ложь, Символы.ПС);
        ЗаписьТекста.Записать(СтрСоединить(ВсеНовыеСтроки, Символы.ПС));
        ЗаписьТекста.Закрыть();
    КонецЕсли;

КонецПроцедуры

А вот и скачанные файлы, которые можно просто скопировать на плеер:

Обратите внимание, что если в комментарии к файлу есть «Просмотрено;», то он показывается серым цветом шрифта. «Total commander» умеет выделять файлы цветом по разным условиям (атрибуты файла, размер, наличие текста в комментарии, плагины), что очень удобно. По логике, конечно же, надо было бы назвать тэг «Прослушано;», а не «Просмотрено», но это просто устоявшийся у меня порядок, менять который - лениво. Извините.

Если кому интересно - можно выложить эту базу 1С в общий доступ, но к сожалению на хабре нельзя приаттачивать файлы к статье (или я не разобрался?).

Размер только метаданных (1cv8.cf) - 18 051 байт.

Размер выгруженной и сжатой базы (данные + метаданные, 1cv8.dt) - 662 650 байт.

Размер базы на диске (1Cv8.1CD) - 9 601 024 байт.

Честно говоря, не понял, как удобнее было бы выложить и надо ли это делать вообще? Прикрутил голосовалку.

Какая была цель у этих статей? Продвинуть какую-то технологию или программу? Реклама? Поделиться опытом? Пусть это будет «поделиться опытом».

И в завершение:

• Не стесняйтесь экспериментировать;

• Изменяйте мир в лучшую сторону;

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