[VBScript] Удаление текста между тегами

Тема в разделе "Банк полезных кодов", создана пользователем Dragokas, 8 фев 2015.

  1. Dragokas
    Оффлайн

    Dragokas Very kind Developer Команда форума Супер-Модератор Разработчик Клуб переводчиков

    Сообщения:
    4.497
    Симпатии:
    4.312
    DeleteTextByTags by Dragokas

    Этот скрипт поможет Вам удалить во всех файлах текст,
    который находится между указанными Вами тегами (вместе с самими тегами).

    Например:

    есть исходный текст:

    Код (Text):

    Начало
    <Tag>Ненужный текст</Tag>
    Продолжение ID1 Ненужный текст ID2 ...
     
    Вам нужно получить:

    Код (Text):

    Начало
    Продолжение ...
     
    Качаем архив, распаковуем, кладем скрипт и файл Tags.txt
    в папку, где Вам нужно обработать все файлы.

    Tags.txt редактируем таким образом:
    Код (Text):

    word1=<Tag>
    word2=</Tag>
    word1=ID1
    word2=ID2
     
    Открываем правой кнопкой мыши пункт "Изменить" по файлу DeleteTextByTags.vbs
    и указываем необходимые для обработки расширения файлов:
    Код (Text):

    ' Указать список расширений для обработки (через знак ;)
    Dim Exts: Exts = "htm;html;txt"
     
    Сохраняем и запускаем скрипт DeleteTextByTags.vbs

    Текстовые файлы поддерживаются в кодировках ANSI и UTF-8.
    Спасибо regist за помощь в создании и тестировании.
    Удачи !
     

    Вложения:

    Последнее редактирование: 15 фев 2015
    Kиpилл, regist, Drongo и ещё 1-му нравится это.
  2. Dragokas
    Оффлайн

    Dragokas Very kind Developer Команда форума Супер-Модератор Разработчик Клуб переводчиков

    Сообщения:
    4.497
    Симпатии:
    4.312
    Обновлен до v.1.4
    Можно задавать список обрабатываемых расширений имени файла.
     

Поделиться этой страницей