Кодировка текста в аргументах WScript - PullRequest
Новая
       20

Кодировка текста в аргументах WScript

0 голосов
/ 01 марта 2012

Я пытаюсь сгенерировать почтовые конфигурации и персонализированные подписи через командный файл, который читает список пользователей, шаблон и создает персонализированный вывод. Это сделано и работает: 

@ECHO OFF
SETLOCAL ENABLEEXTENSIONS
GOTO begin
:writesignature
cscript //NoLogo replacetext.vbs "[NAME]" %1 signature.html stdout | cscript //NoLogo  replacetext.vbs "[JOB]" %3 stdin stdout | cscript //NoLogo replacetext.vbs "[EMAIL]" %2 stdin signature-%4.html
GOTO :end
:begin
FOR /F "tokens=1,2,3,4 delims=;" %%A IN ('TYPE people.lst') DO CALL :writesignature "%%A" "%%B" "%%C" %%D
:end

Чтобы заменить текст, я создал replacetext.vbs, который позволяет мне заменить строку на oter, и может быть передан по конвейеру, если stdin и stdout указаны как исходный и целевой файлы: 

CONST ForReading = 1
CONST ForWritting = 2
CONST ForAppending = 8
CONST OpenAsASCII   = false  
CONST OpenAsUnicode = true
CONST OpenAsDefault = -2
Const OverwriteIfExist = true
Const FailIfExist      = false
Const CreateIfNotExist = true
Const FailIfNotExist   = false
SET objFSO = CreateObject("Scripting.FileSystemObject")
SET objFILEINPUT = Wscript.StdIn
SET objFILEOUTPUT = Wscript.StdOut
IF (Wscript.Arguments.Count < 2) OR (Wscript.Arguments.Count > 4) THEN
Wscript.Echo "Not enought arguments"
Wscript.Echo "replacetext ""<original>"" ""<replacement>"" "
Wscript.Quit(1 MOD 255)
END IF
IF Wscript.Arguments.Count > 2 THEN
    IF Wscript.Arguments(2) = "stdin" THEN
'       Wscript.Echo "Input: StdIn"
    ELSE
'       Wscript.Echo "Input: " + Wscript.Arguments(2)
        SET objFILEINPUT = objFSO.OpenTextFile(Wscript.Arguments(2), ForReading, OpenAsASCII)
    END IF
    IF Wscript.Arguments.Count = 4 THEN
        IF Wscript.Arguments(3) = "stdout" THEN
'           Wscript.Echo "Output: StdOut"
        ELSE
'           Wscript.Echo "Output: " + Wscript.Arguments(3)
            IF objFSO.FileExists(Wscript.Arguments(3)) THEN
                SET objFILEOUTPUT = objFSO.OpenTextFile(Wscript.Arguments(3), ForWritting, CreateIfNotExist, OpenAsASCII)
            ELSE
                SET objFILEOUTPUT = objFSO.CreateTextFile(Wscript.Arguments(3), OverwriteIfExist, OpenAsASCII)
            END IF
        END IF
    END IF
END IF
strText = objFILEINPUT.ReadAll()
strNewText = Replace(strText, Wscript.Arguments(0), Wscript.Arguments(1))
objFILEOUTPUT.Write(strNewText)
objFILEOUTPUT.Close
objFILEINPUT.Close
Wscript.Quit(0 MOD 255)

Проблема в том, что когда я помещаю не-ASCII символы в ANSI / Windows-1250 в people.lst (Comunicación), он работает и читает их в консоли, показывая их (не преобразовывая) в качестве символов OEM. (Comunicaci¾n), когда я записываю выходные файлы, каким-то образом происходит их прозрачное преобразование, поэтому выходной файл в Windows показывает Comunicaci¾n вместо Comunicación.

После большой отладки я локализовал проблему ТОЛЬКО в аргументах (нет автоматического преобразования в файл шаблона).

Как отключить указанное прозрачное преобразование или преобразовать входные данные из ANSI в OEM, чтобы преобразование работало как задумано?

1 Ответ

1 голос
/ 02 марта 2012

Проблема в том, что cmd.exe работает с кодовой страницей, отличной от cscript.exe/wscript.exe.У меня похожая проблема в Польше, где cmd.exe работает с кодовой страницей 852 (я полагаю, что это для совместимости со старыми программами MS-DOS), а wscript.exe работает в родной кодовой странице Windows 1250.

Для решенияпроблема, поместите следующую строку в начало пакетного файла:

mode con cp select=1250

...