Имя: Пароль:
1C
1С v8
Парсинг текстового файла
0 new1snik
 
01.08.14
11:16
День добрый. Как сделать парсинг текстового файла?
Есть тексовый файл. Формат вот такой:

данные1 данные2 данные3 | ещеданные1 ещеданные2 ещеданные3

символы до | это смысловое предложение.
Как мне получить отдельные слова до |?

Чтение файла сделано так:

Перем Стр;

        Стр = "";

        //Открываем диалог выбора файла для чтения
        ВыборФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
        ВыборФайла.МножественныйВыбор = Ложь;
        ВыборФайла.Заголовок = НСтр("ru = 'Выбор файла'");
        ВыборФайла.Фильтр = НСтр("ru = 'Все файлы (*.*)|*.*'");

        Если ВыборФайла.Выбрать() Тогда

                ПолноеИмяФайла = ВыборФайла.ПолноеИмяФайла;

        КонецЕсли;

        Текст = Новый ЧтениеТекста;
        Текст.Открыть(ПолноеИмяФайла);

        Пока Стр <> Неопределено Цикл // строки читаются до символа перевода строки

                Стр = Текст.ПрочитатьСтроку();
                Сообщить(Стр);

        КонецЦикла;

        Текст.Закрыть();
1 _fvadim
 
01.08.14
11:19
чего не получается-то?
2 _fvadim
 
01.08.14
11:19
Лев ?
3 Cube
 
01.08.14
11:19
(0) Кури Найти() и Сред().
А вообще, в типовых есть функции РазложитьСтрокуВМассивПодстрок() и РазложитьСтрокуВМассивСлов()
4 ДенисЧ
 
01.08.14
11:19
стр1 = Лев(стр, Найти(стр, "|") -1;
стр1 = стрЗаменить(стр1, " ", Символы.Вк);
Для сч = 1 по СтрЧислоСтрок(стр1) Цикл
  слово = СтрПолучитьСтроку(сч);
КонецЦикла