Процедура Сформировать()
Перем Ф, чНомСтроки, сСтрока;
Перем сзЗначения, сЗнач, чПоз;
сзЗначения = СоздатьОбъект("СписокЗначений");
Ф = СоздатьОбъект("Текст");
Ф.Открыть("C:\test.txt");
Для чНомСтроки = 1 ПО Ф.КоличествоСтрок() Цикл
сСтрока = Ф.ПолучитьСтроку(чНомСтроки);
// Следующая строка дана для примера
//сСтрока = " NUM | Name | Cat | SubCat | Manufactur | Supplier | Price_Trad | Price_Bye | Price_Sell ";
сСтрока = """" + сСтрока + """";
сСтрока = СтрЗаменить(сСтрока, "|", """, """);
сзЗначения.УдалитьВсе();
сзЗначения.ИзСтрокиСРазделителями(сСтрока);
// Следующая строка для демонстрации
сзЗначения.ВыбратьЗначение(сЗнач, "ТЕСТ", чПоз);
//
// Тут проводим необходимые действия над Значениями из СпискаЗначений
//
КонецЦикла;
КонецПроцедуры
Быстрый парсинг строк
10.01.08
Интеграция - Файловый обмен (TXT, XML, DBF), FTP
У вас есть необходимость выполнить загрузку данных из текстового файла с разделителями, и в одной строке много значений?
Тогда вот вам на суд мое решение:
Тогда вот вам на суд мое решение:
