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<s.length;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('
'); //Формируем массив из введенных строк
WScript.StdOut.WriteLine('Всего ведено строк: '+ArrS.length);
for (i=1;i<=ArrS.length;i++)
//Преобразовываем введенные строки в Windows-кодировку
//и выводим их на экран
WScript.StdOut.WriteLine(i+': '+DosToWin(ArrS[i-1]));
/************* Конец *********************************************/
StdIn.ReadAll (VBScript)'*******************************************************************
' Имя: 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
'************* Конец *********************************************/
Ввод строк в графическом режиме
В сценариях VBScript в графическом режиме информацию можно вводить с помощью диалогового
