Перекодеровка текста из Dos 866 в Win 1251

Перекодеровка текста из Dos 866 в Win 1251

Тема в разделе "Темы со старого форума", создана пользователем Бэкап, 07.07.2015.

Загрузка...
Ответов: 0 Просмотров: 300 Ответить в теме
Воспользуйтесь функцией автоматического продвижения темы для увеличения числа просмотров темы, продаж платного контента и узнаваемости Вашего бренда. Услуга продвижения действует на протяжении 3-х дней и стоит всего 50 STF Wallet.

Продвинуть тему
  1. Бэкап
    Приветствую Вас Люди. Была у меня нужда конвертировать кучу файлов из дос в вин. Мучил гугл. но нечего подходящего не нашёл(что нашёл работало те так /если вобще работало\. так что вот мое решение.
    После :: идут коментарии (удалить)

    @for %%B in (*.txt) do call :cv %%B ::перебераем файлы нашел идем на :сv
    :cv
    @del 000.T ::временный файл
    MODE CON CP SELECT=866>nul ::установка кодовой стр. в кмд
    @ECHO OFF&title c_866to1251_Dr_Rustam(c)
    cd /d "%~dp0" :: работаем в своей деректории
    @FOR /F "TOKENS=*" %%Y IN (%1) DO CALL :WCP1251 %%Y ::перебор всех символов в найденном файле
    IF NOT ERRORLEVEL 1 GOTO FLLC :: символы кончились
    :FLLC
    ren 000.T %1.text ::меняем имя временному файлу на имя обработонного файла но с рашерением .text
    :WCP1251
    MODE CON CP SELECT=1251>nul ::было уже выше
    ECHO %*>>000.T ::запись во временный файл
    @exit /b 0 ::УсЁ


    Спасибо за внимание.

    З.Ы. Недостатотк имена файлов не должны содержать пробелов и не обробатывает некоторые спец символы типо > и <.
    Знатоки VBSсript напишите в коментах такую утилиту на vbs. там с этим проблем не должно быть!
    З.З.Ы. Утилита есть iconv.exe (но это зато свое).
     
    07.07.2015 Сообщений: Симпатий:
В этой теме всего одна страница
Вам, как гостю, ограничены возможности взаимодействия с темами. Пройдите бесплатную регистрацию и откройте для себя море возможностей.