Функция ПолучитьПотокЧтенияСтрок(Файл)

  Попытка

    // Используется для доступа к параметрам файлов или каталогов. 

    ТекстовыйФайл = Новый Файл(Файл);

    Если ТекстовыйФайл.Существует() = Ложь Тогда

      Сообщить("Файла "+Файл+" не существует!");

      Возврат Неопределено;

    КонецЕсли;



    // Текстовый документ предназначен для работы с текстами. 

    // Объект позволяет получать и сохранять текст в файле, 

    // работать со строками

    ПотокЧтенияСтрок = Новый ТекстовыйДокумент();

    ПотокЧтенияСтрок.Прочитать(ТекстовыйФайл);

  Исключение

    Сообщить("Файл не прочитан.", СтатусСообщения.Внимание);

    Сообщить(ОписаниеОшибки());

    Возврат Неопределено;

  КонецПопытки;



  // Возвращает текст, извлеченный из файла

  Возврат ПотокЧтенияСтрок;



КонецФункции // ПолучитьПотокЧтенияСтрок





// Исходный код функции загрузки строк в табличное поле:



Процедура ЧтениеТХТФайла(Элемент)



  // Проверка на наличие имени файла

  Если ПустаяСтрока(ИмяФайла) Тогда

    Предупреждение("Для запуска обработки необходимо предварительно выбрать файл данных.");

    Возврат;

  КонецЕсли;



  // Открыть файл, создать текстовый документ, прочитать

  ПотокСтрок = ПолучитьПотокЧтенияСтрок(ИмяФайла);



  // Очистить предыдущие значения

  ТаблицаДокумента.Очистить();

  ТаблицаДокумента.Колонки.Очистить();



  // Создать колонки табличного документа

  ТаблицаДокумента.Колонки.Добавить("Номер",,"Номер",5);

  ТаблицаДокумента.Колонки.Добавить("Артикул",,"Артикул",11);

  ТаблицаДокумента.Колонки.Добавить("Номенклатура",,"Номенклатура",25);

  ТаблицаДокумента.Колонки.Добавить("Цена",,"Цена",6);



  // Последовательное чтение строк текстового файла

  КоличествоСтрок = ПотокСтрок.КоличествоСтрок();

  Для Строка = 1 По КоличествоСтрок Цикл



    // Обработка нажатия Ctrl + Break

    ОбработкаПрерыванияПользователя();



    // Чтение строки из файла тхт / csv

    СтрокаИзФайла = ПотокСтрок.ПолучитьСтроку(Строка);



    // Разбор строки в массив, используя в качествен символа-разделителя "|"

    МассивСтрок = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(СтрокаИзФайла,"|");



    // Добавить данные в табличную часть экранной формы

    Стр=ТаблицаДокумента.Добавить();

    Стр.Номер	 = Строка;

    Стр.Артикул = МассивСтрок[0];

    Стр.Номенклатура = МассивСтрок[1];

    Стр.Цена = МассивСтрок[2];

    // Отобразить информацию о ходе выполнения обработки

    Состояние("Обработка строки файла : "

      + "строка " + Строка + " из " + КоличествоСтрок);



  КонецЦикла;



  // Отобразить результаты загрузки в форме элемента

  ЭлементыФормы.ТаблицаДокумента.Значение = ТаблицаДокумента;

  ЭлементыФормы.ТаблицаДокумента.СоздатьКолонки();



КонецПроцедуры // ЧтениеTXTФайла(Элемент)   

  Выборка = ПользователиИнформационнойБазы.ПолучитьПользователей(); 

Для Каждого ЭлементМассива Из Выборка Цикл 

	ИмяПользователя = ЭлементМассива.Имя; 

	ПолноеИмяПользователя = ЭлементМассива.ПолноеИмя; 

	ЕстьПароль = ЭлементМассива.ПарольУстановлен; 

	Роли = ЭлементМассива.Роли; 

	

	Для Каждого Роль Из Роли Цикл 

		ИмяРоли = Роль.Имя; 

	КонецЦикла; 

КонецЦикла;

   

 //  Функция возвращает список зарегистрированных для выбранной

//  базы пользователей. Если пользователи не определены, список

//  будет пуст.

//

функция сзПолучитьПользователей(стрПутьКБазе)

    // Создаем список значений для возврата

    Ответ = создатьобъект("СписокЗначений");

    // Формируем полное имя файла, в котором 1С

    // хранит информацию о пользователях базы.

    стрИмяФайла = стрПутьКБазе + "\UsrDEF\Users.USR";

    // Проверим его наличие.

    если фс.СуществуетФайл(стрИмяФайла) > 0 тогда

        // Создаем объект FSO для работы с файлами.

        обФСО = создатьобъект("Scripting.FileSystemObject");

        // Открываем файл пользователей как текстовый.

        тхтФайл = обФСО.OpenTextFile(стрИмяФайла);

        // Инициализация первоначальных переменных

        // Загружаем в буфер(тестовую строку) информацию из файла.

        стрБуфер = "";

        чисПозиция = 0;

        // Перебеирать файл придеться посимвольно, так как 1С не совсеми

        // символами может работать коректно если они находяться в строке.

        пока тхтФайл.AtEndOfStream = 0 цикл

            // Получаем очередную позицию в файле.

            чисПозиция = чисПозиция + 1;

            // Получаем символ из данной позиции.

            стрСимв = тхтФайл.Read(1);

            // Если код символа больше 31

            если кодсимв(стрСимв) > 31 тогда

                // Тогда добавляем его к буферу.

                стрБуфер = стрБуфер + стрСимв;

            конецесли;

        конеццикла;

        // После формирования буфера начнем искать пользователей в нем.

        // Признаком для пользователя будет строка '{"UserItemType","Page.'

        стрПоиска = "{""UserItemType"",""Page.";

        // Получаем позицию первого пользователя.

        чисПозиция = найти(стрБуфер, стрПоиска);

        // Проверяем если в буфере нужная нам строка

        если чисПозиция > 0 тогда

            // Если есть, вырезаем из строки ненужную информацию.

            стрБуфер = сред(стрБуфер, чисПозиция);

            // Позиция после отрезания становиться в единицу

            чисПозиция = 1;

        конецесли;

        // В цикле получаем информацию о пользователях БД

        пока чисПозиция > 0 цикл

            // Удаляем из буфера 'мусор'

            стрБуфер = сред(стрБуфер, чисПозиция + 22);

            // Находим признак начала информации об имени пользователя.

            чисСмещение = найти(стрБуфер, """,""") + 3;

            // Перемещаем начало буфера на начало информации об имени пользователя

            стрБуфер = сред(стрБуфер, чисСмещение);

            // Получаем имя пользователя

            стрИмяПользователя = лев(стрБуфер, найти(стрБуфер, """,""") - 1);

            // Добовляем имя к нашему списку.

            Ответ.ДобавитьЗначение(стрИмяПользователя);

            // Получаем очередную позицию информации о пользователе

            чисПозиция = найти(стрБуфер, стрПоиска);

        конеццикла;

    конецесли;

    // Возращаем полученный список значений содержащий в себе список пользователей базы

    возврат Ответ;

конецфункции