Вход/Регистрация
Windows Script Host для Windows 2000/XP
вернуться

Попов Андрей Викторович

Шрифт:

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("\n"); //Формируем массив из введенных строк

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

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

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

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

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

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

Листинг 2.17. Ввод нескольких строк с помощью метода
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

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

Ввод строк в графическом режиме 

  • Читать дальше
  • 1
  • ...
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • ...

Ебукер (ebooker) – онлайн-библиотека на русском языке. Книги доступны онлайн, без утомительной регистрации. Огромный выбор и удобный дизайн, позволяющий читать без проблем. Добавляйте сайт в закладки! Все произведения загружаются пользователями: если считаете, что ваши авторские права нарушены – используйте форму обратной связи.

Полезные ссылки

  • Моя полка

Контакты

  • chitat.ebooker@gmail.com

Подпишитесь на рассылку: