//-----------------------------------------------------------------------------
// Файл IStringsListExample.js
//-----------------------------------------------------------------------------
// В данном примере рассмотрено использование интерфейса IStringsList. 
//-----------------------------------------------------------------------------
//@ Start Example

// Функция вывода сообщения 
function ShowMessage(Str) {
    for (var i = 1; i < arguments.length; i++ ) {
        Str = Str.replace(new RegExp('%' + i), arguments[i]);
    }
    WScript.Echo(Str);
}

// Cоздание списка строк StringsList
// (класс StringsList реализует интерфейс IStringsList)
var StringsList = new ActiveXObject('TSObjectLibrary.StringsList');

// Создание переменной для вывода сообщения
var MessageString;

// Включение режима сортировки
StringsList.IsSorted = true;

// Выключение признака уникальности строк в списке
StringsList.IsUnique = false;

// Включение регистрозависимости строк
StringsList.IsCaseSensitive = true;

// Добавление трех строк в список (при включенном режиме сортировки).
// Строки добавляются в произвольном порядке
StringsList.Add('aaaaaa');
StringsList.Add('AAAAAA');
StringsList.Add('AaAaAa');

// Вывод списка строк
// Порядок хранения не совпадает с порядком добавления строк. 
MessageString = "Список строк при включенном режиме сортировки:\n" + StringsList.Text;
ShowMessage(MessageString);

// Выключение режима сортировки
StringsList.IsSorted = false; 

// Добавление строк в список (при выключенном режиме сортировки)
// Порядок хранения совпадает с порядком добавления строк. 
StringsList.Add('2');
StringsList.Add('3');
StringsList.Add('1');

// Вывод списка строк
// Порядок добавления совпадает с порядком хранения строк
MessageString = "Список строк после добавления новых строк при выключенном режиме сортировки:\n" + StringsList.Text;
ShowMessage(MessageString);

// Вставка строки	
StringsList.Items(3) = "Строка";

// Вывод списка строк
MessageString = "Список строк после вставки строки в позицию 3:\n" + StringsList.Text;
ShowMessage(MessageString);

// Перестановка значений первой и второй строки
StringsList.Exchange(0, 1);

// Вывод списка строк
MessageString = "Список строк после перестановки 1-ой и 2-ой строк местами:\n" + StringsList.Text;
ShowMessage(MessageString);


// Вставка строки, используя метод Insert 
StringsList.Insert(4, "Строка, добавленная методом Insert");

// Вывод списка строк
MessageString = "Список строк после вставки строки в позицию 4:\n" + StringsList.Text;
ShowMessage(MessageString);

// Сортировка списка
StringsList.IsSorted = true;

// Включение режима уникальности строк 
StringsList.IsUnique = true;

// Выключение регистрозависимости
StringsList.IsCaseSensitive = false;

// Вывод списка строк
MessageString = 
		"Список строк после сортировки, " +
		"включения признака уникальности строк и выключения признака регистрозависимости:\n" +
		StringsList.Text;
ShowMessage(MessageString);

// Очистка списка
StringsList.Clear();

// Добавление текста, используя свойство CommaText 
// (см. Пример значения свойства CommaText)
StringsList.CommaText='"Stri,ng 1","Stri""ng 2","String 3",String4';
	
// Вывод списка строк
MessageString = "Список строк после использования свойства CommaText:\n" + StringsList.Text;
ShowMessage(MessageString);

//@ End Example