Простой парсер (правильный цикл)

[valexey]

http://oberspace.dyndns.org/index.php/topic,300.msg7115.html#msg7115
 

Ну, а что еще на черном море делать кроме написания простеньких парсеров на правильных циклах?

[Илья Ермаков]

Просто конечный автомат, древовидная структура - и указатель на текущее место в ней. Со спуском в созданный элемент и подъёмом вверх при закрывающей скобке.

[albobin]

Просто конечный автомат, древовидная структура - и указатель на текущее место в ней. Со спуском в созданный элемент и подъёмом вверх при закрывающей скобке.

В принципе "конечный автомат" можно и убрать (состояний маловато )  и останется просто: "Просто древо..."

[ilovb]

http://oberspace.dyndns.org/index.php/topic,300.msg7115.html#msg7115
 

Ну, а что еще на черном море делать кроме написания простеньких парсеров на правильных циклах?

[ilovb]

http://oberspace.dyndns.org/index.php/topic,300.msg7115.html#msg7115
 

Ну, а что еще на черном море делать кроме написания простеньких парсеров на правильных циклах?

Я его уж года полтора назад написал. Потратил пару минут на обеденном перерыве. Задача элементарная. Потому я и предлагаю всем поделиться своими подходами и инструментами. Судя по предыдущим элементарным задачкам подход и предпочтения у всех сильно разные

[ilovb]

Я его уж года полтора назад написал. Потратил пару минут на обеденном перерыве.

Че то тема интереса не вызвала. Ну да ладно.

Вот откопал мое поделие:

Код: [Выделить]

Функция РазобратьТекст(Источник) Экспорт
Дерево = Новый ДеревоЗначений;
Дерево.Колонки.Добавить("Значение");
ТекущаяСтрока = Дерево.Строки.Добавить();
ТекущаяСтрока = ТекущаяСтрока.Строки.Добавить();
ТекущийРодитель = ТекущаяСтрока.Родитель;
ИсходныйТекст = Источник.ПолучитьТекст();
КоличествоСимволов = СтрДлина(ИсходныйТекст);
ТекущийСимвол = "";
Позиция = 0;
Пока ТекущийСимвол <> "{" И Позиция < КоличествоСимволов Цикл
Позиция = Позиция + 1;
ТекущийСимвол = Сред(ИсходныйТекст, Позиция, 1);
КонецЦикла;
Если ТекущийСимвол = "{" Тогда
Буфер = "";
РежимЧтенияСтроки = Ложь;
Пока Позиция < КоличествоСимволов Цикл
Позиция = Позиция + 1;
ТекущийСимвол = Сред(ИсходныйТекст, Позиция, 1);
Если ТекущийСимвол = "{" Тогда
ТекущийРодитель = ТекущаяСтрока;
ТекущаяСтрока = ТекущаяСтрока.Строки.Добавить();
ИначеЕсли ТекущийСимвол = "," Тогда
ТекущаяСтрока.Значение = Буфер;
Буфер = "";
ТекущаяСтрока = ТекущийРодитель.Строки.Добавить();
ИначеЕсли ТекущийСимвол = "}" Тогда
ТекущаяСтрока.Значение = Буфер;
Буфер = "";
ТекущаяСтрока = ТекущийРодитель;
ТекущийРодитель = ТекущаяСтрока.Родитель;
ИначеЕсли ТекущийСимвол = """" Тогда
РежимЧтенияСтроки = НЕ РежимЧтенияСтроки;
Буфер = Буфер + ТекущийСимвол;
ИначеЕсли РежимЧтенияСтроки Тогда
Буфер = Буфер + ТекущийСимвол;
ИначеЕсли НЕ ПустаяСтрока(ТекущийСимвол)
ИЛИ (ТекущийСимвол = " ") Тогда
Буфер = Буфер + ТекущийСимвол;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Возврат Дерево;
КонецФункции

[ilovb]

Кстати, сейчас только заметил, что у меня в этом коде ошибка есть. Я его писал чтобы быстро разобрать конкретный файлик, и там элементы строкового типа не содержали посторонних символов. Строка по идее не может содержать только одиночный символ кавычки.
Чтобы разрешить в строках символы "{",  "}",  и "," нужно экранировать их переменной "РежимЧтенияСтроки":

Код: [Выделить]

Функция РазобратьТекст(Источник) Экспорт
Дерево = Новый ДеревоЗначений;
Дерево.Колонки.Добавить("Значение");
ТекущаяСтрока = Дерево.Строки.Добавить();
ТекущаяСтрока = ТекущаяСтрока.Строки.Добавить();
ТекущийРодитель = ТекущаяСтрока.Родитель;
ИсходныйТекст = Источник.ПолучитьТекст();
КоличествоСимволов = СтрДлина(ИсходныйТекст);
ТекущийСимвол = "";
Позиция = 0;
Пока ТекущийСимвол <> "{" И Позиция < КоличествоСимволов Цикл
Позиция = Позиция + 1;
ТекущийСимвол = Сред(ИсходныйТекст, Позиция, 1);
КонецЦикла;
Если ТекущийСимвол = "{" Тогда
Буфер = "";
РежимЧтенияСтроки = Ложь;
Пока Позиция < КоличествоСимволов Цикл
Позиция = Позиция + 1;
ТекущийСимвол = Сред(ИсходныйТекст, Позиция, 1);
Если НЕ РежимЧтенияСтроки И ТекущийСимвол = "{" Тогда
ТекущийРодитель = ТекущаяСтрока;
ТекущаяСтрока = ТекущаяСтрока.Строки.Добавить();
ИначеЕсли НЕ РежимЧтенияСтроки И ТекущийСимвол = "," Тогда
ТекущаяСтрока.Значение = Буфер;
Буфер = "";
ТекущаяСтрока = ТекущийРодитель.Строки.Добавить();
ИначеЕсли НЕ РежимЧтенияСтроки И ТекущийСимвол = "}" Тогда
ТекущаяСтрока.Значение = Буфер;
Буфер = "";
ТекущаяСтрока = ТекущийРодитель;
ТекущийРодитель = ТекущаяСтрока.Родитель;
ИначеЕсли ТекущийСимвол = """" Тогда
РежимЧтенияСтроки = НЕ РежимЧтенияСтроки;
Буфер = Буфер + ТекущийСимвол;
ИначеЕсли РежимЧтенияСтроки Тогда
Буфер = Буфер + ТекущийСимвол;
ИначеЕсли НЕ ПустаяСтрока(ТекущийСимвол)
ИЛИ (ТекущийСимвол = " ") Тогда
Буфер = Буфер + ТекущийСимвол;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Возврат Дерево;
КонецФункции