Андрей Попов - Windows Script Host для Windows 2000/XP

RusDict.add("ѓ", "Г"); RusDict.add("„", "Д"); RusDict.add("…", "Е");

RusDict.add("р", "Ё"); RusDict.add("†", "Ж"); RusDict.add("‡", "З");

RusDict.add("€", "И"); RusDict.add("‰", "Й"); RusDict.add("Љ", "К");

RusDict.add("‹", "Л"); RusDict.add("Њ", "М"); RusDict.add("Ќ", "Н");

RusDict.add("Ћ", "О"); RusDict.add("Џ", "П"); RusDict.add("ђ", "Р");

RusDict.add("‘", "С"); RusDict.add("’", "Т"); RusDict.add("“", "У");

RusDict.add("”", "Ф"); RusDict.add("•", "Х"); RusDict.add("–", "Ц");

RusDict.add("—", "Ч"); RusDict.add("˜", "Ш"); RusDict.add("™", "Щ");

RusDict.add("љ", "Ъ"); RusDict.add("›", "Ы"); RusDict.add("њ", "Ь");

RusDict.add("ќ", "Э"); RusDict.add("ћ", "Ю"); RusDict.add("џ", "Я");

RusDict.add(" ", "а"); RusDict.add("Ў", "б"); RusDict.add("ў", "в");

RusDict.add("Ј", "г"); RusDict.add("¤", "д"); RusDict.add("Ґ", "е");

RusDict.add("с", "ё"); RusDict.add("¦", "ж"); RusDict.add("§", "з");

RusDict.add("Ё", "и"); RusDict.add("©", "й"); RusDict.add("Є", "к");

RusDict.add("«", "л"); RusDict.add("¬", "м"); RusDict.add("­", "н");

RusDict.add("®", "о"); RusDict.add("Ї", "п"); RusDict.add("а", "р");

RusDict.add("б", "с"); RusDict.add("в", "т"); RusDict.add("г", "у");

RusDict.add("д", "ф"); RusDict.add("е", "х"); RusDict.add("ж", "ц");

RusDict.add("з", "ч"); RusDict.add("и", "ш"); RusDict.add("й", "щ");

RusDict.add("к", "ъ"); RusDict.add("л", "ы"); RusDict.add("м", "ь");

RusDict.add("н", "э"); RusDict.add("о", "ю"); RusDict.add("п", "я");

}

//Функция для перевода строки из DOS- в Windows-кодировку

function DosToWin(s) {

var i,ss; //Объявляем переменные

//Проверяем, создан ли объект RusDict

if (typeof(RusDict)=="undefined")

//Если объект RusDict не создан, создаем его

MakeRusDict();

ss="";

for (i=0;i

if (RusDict.Exists(s.charAt(i))) //Проверяем наличие символа в словаре

//Преобразуем i-й символ в Windows-кодировку

ss+=RusDict.Item(s.charAt(i));

else ss+=s.charAt(i);

}

return ss;

}

/************* Начало *********************************************/

var s,ArrS,i; //Объявляем переменные

//Печатаем приглашение для ввода

WScript.StdOut.WriteLine("Вводите строки:");

s = WScript.StdIn.ReadAll(); //Вводим строки с клавиатуры

WScript.StdOut.WriteBlankLines(3); //Печатаем пустые строки

ArrS=s.split("\n"); //Формируем массив из введенных строк

WScript.StdOut.WriteLine("Всего ведено строк: "+ArrS.length);

for (i=1;i<=ArrS.length;i++)

//Преобразовываем введенные строки в Windows-кодировку

//и выводим их на экран

WScript.StdOut.WriteLine(i+": "+DosToWin(ArrS[i-1]));

/************* Конец *********************************************/

'*******************************************************************

' Имя: StdIn2.vbs

' Язык: VBScript

' Описание: Пример использования метода StdIn.ReadAll

'*******************************************************************

Option Explicit

' Функция для перевода строки из DOS- в Windows-кодировку

Function DosToWin(s)

Dim i,k,ss

ss=""

For i=1 To Len(s) ' Цикл по всем символам в строке

k = Asc(Mid(s,i,1)) ' Определяем ANSI-код i-го символа

' Изменяем код k на код соответствующего символа в

' Windows-кодировке

If (128 <= k) And (k <= 175) Then

k=k+64

ElseIf (224 <= k) And (k <= 239) Then

k=k+16

ElseIf k = 240 Then

k=168

ElseIf k = 241 Then

k=184

End If

ss=ss+Chr(k)

Next

DosToWin=ss ' Возвращаем преобразованную строку

End Function

'************* Начало *********************************************

Dim s,ArrS,i,ColStr ' Объявляем переменные

' Печатаем приглашение для ввода

WScript.StdOut.WriteLine "Вводите строки:"

s = WScript.StdIn.ReadAll ' Вводим строки с клавиатуры

WScript.StdOut.WriteBlankLines 3 ' Печатаем пустые строки

ArrS=Split(s,vbCrLf) ' Формируем массив из введенных строк

ColStr=UBound(ArrS)+1

' Печатаем введенные строки

WScript.StdOut.WriteLine "Всего ведено строк: " & ColStr

For i=1 To ColStr

' Преобразовываем введенные строки в Windows-кодировку

' и выводим их на экран

WScript.StdOut.WriteLine i & ": " & DosToWin(ArrS(i-1))

Next