ТекстДок=Новый ТекстовыйДокумент;

ТекстДок.Прочитать(Параметры.ИмяФайла);

Текст=ТекстДок.ПолучитьТекст();

RegExp = Новый COMОбъект("VBScript.RegExp");

RegExp.IgnoreCase = Истина;

RegExp.MultiLine = Истина;

RegExp.Global = Истина;

RegExp.Pattern = "{(\d*),(\d*)}"; //ШАБЛОН РЕГУЛЯНОГО ВЫРАЖЕНИЯ

Вхождения = RegExp.Execute(Текст);

Результат=Неопределено;

Для Каждого Вхождение из Вхождения Цикл

    Если Результат=Неопределено Тогда

        Результат=Новый ТаблицаЗначений;

        Для Колонка=1 по Вхождение.SubMatches.Count Цикл

            Результат.Колонки.Добавить("Колонка"+(Колонка-1),Новый ОписаниеТипов("Строка"));

        КонецЦикла;

    КонецЕсли;

    НоваяСтрока=Результат.Добавить();

    Для каждого Колонка из Результат.Колонки Цикл

        НоваяСтрока[Результат.Колонки.Индекс(Колонка)]=Вхождение.SubMatches(Результат.Колонки.Индекс(Колонка));

    КонецЦикла;

    Состояние(Результат.Количество());

КонецЦикла;