Данные из TXT файлас разделителем | в таблицу. Как?!?
Помогите! А то мну насяльника в порошек сотрет еси не сделаю)) Кароч нуно из txt файла загрузить данные в таблицу... данные в файле разделены знаком |
Данные в файле такие:
123|текст1|текст2|текст3|текст4
123|текст1|текст2|текст3|текст4
123|текст1|текст2|текст3|текст4
Вот у меня пока че в модуле написано:
Процедура Сформировать()
Текст = СоздатьОбъект("Текст");
Текст.Открыть("C:\Diskont.txt");
Если Текст.КоличествоСтрок()=0 Тогда
Предупреждение("файл пуст!");
Возврат;
КонецЕсли;
Че дальше писать? Пожалуйста оч надо, умоляю на коленях))
Данные в файле такие:
123|текст1|текст2|текст3|текст4
123|текст1|текст2|текст3|текст4
123|текст1|текст2|текст3|текст4
Вот у меня пока че в модуле написано:
Процедура Сформировать()
Текст = СоздатьОбъект("Текст");
Текст.Открыть("C:\Diskont.txt");
Если Текст.КоличествоСтрок()=0 Тогда
Предупреждение("файл пуст!");
Возврат;
КонецЕсли;
Че дальше писать? Пожалуйста оч надо, умоляю на коленях))
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
В глобальник или в дополнительный ГМ (если используешь формекс Альфа) вставляешь функцию
// --------------------------------------------
Функция гмРазобратьСтроку(Стр, Рзд) Экспорт
Перем _сз, _Цикл;
Если ПустаяСтрока(Стр) = 1 Тогда
Возврат "";
КонецЕсли;
_сз = СоздатьОбъект("СписокЗначений");
_КолВхожд = СтрЧислоВхождений(Стр,Рзд);
_ДлСтр = СтрДлина(Стр);
_СтПрав = _ДлСтр;
Для _Цикл = 1 По (_КолВхожд) Цикл
_ГтПоз = Найти(Прав(Стр,_СтПрав), Рзд);
_СтЛев = _ГтПоз - 1;
_сз.ДобавитьЗначение(Лев(Прав(Стр,_СтПрав), _СтЛев));
_СтПрав = _СтПрав - _ГтПоз;
КонецЦикла;
_сз.ДобавитьЗначение(Прав(Стр,_СтПрав));
Возврат _сз;
КонецФункции // гмРазобратьСтроку()
На входе:
Первый параметр - строка считанная с файла (в цикле перебираешь строки текстовика)
Второй - разделителбь (у тебя вертикалка)
На выходе:
Ф-я возвращает сз - список значений. А дальше эти значения пихаешь, куда хошь, хоть в ТЗ хоть в таблицу на форме
// --------------------------------------------
Функция гмРазобратьСтроку(Стр, Рзд) Экспорт
Перем _сз, _Цикл;
Если ПустаяСтрока(Стр) = 1 Тогда
Возврат "";
КонецЕсли;
_сз = СоздатьОбъект("СписокЗначений");
_КолВхожд = СтрЧислоВхождений(Стр,Рзд);
_ДлСтр = СтрДлина(Стр);
_СтПрав = _ДлСтр;
Для _Цикл = 1 По (_КолВхожд) Цикл
_ГтПоз = Найти(Прав(Стр,_СтПрав), Рзд);
_СтЛев = _ГтПоз - 1;
_сз.ДобавитьЗначение(Лев(Прав(Стр,_СтПрав), _СтЛев));
_СтПрав = _СтПрав - _ГтПоз;
КонецЦикла;
_сз.ДобавитьЗначение(Прав(Стр,_СтПрав));
Возврат _сз;
КонецФункции // гмРазобратьСтроку()
На входе:
Первый параметр - строка считанная с файла (в цикле перебираешь строки текстовика)
Второй - разделителбь (у тебя вертикалка)
На выходе:
Ф-я возвращает сз - список значений. А дальше эти значения пихаешь, куда хошь, хоть в ТЗ хоть в таблицу на форме
Мона ещё так попробывать....
| Код |
|---|
Для й=1 по Текст.КоличествоСтрок() Цикл
Стр = СтрЗаменить( Текст.ПолучитьСтроку(й), "|", РазделительСтрок );
123=СтрПолучитьСтроку( Стр,1);
текст1=СтрПолучитьСтроку( Стр,2);
текст2=СтрПолучитьСтроку( Стр,3);
текст3=СтрПолучитьСтроку( Стр,4);
текст4=СтрПолучитьСтроку( Стр,5);
КонецЦикла;
Показать полностью |
Кому? если тебе - то ты и придумаешь, а не будешь морочить голову людям... автору - лень самому придумывать, лень смотреть/изучать типовой код.. спрашивается: автор СИЛЬНОХИТРОЖОПЫЙ? ответ - да! таких хочется посылать в пешее эротическое путешествие в то место, откуда мы все появились... Автор видимо бабла немног срубит (в виде зрЯплаты или еще как...), А ЗА ЛЕНЬ СВОЮ - расплачивыаться не хочет... Это просто Василий - добрая душа - 03 спешит на помощь..
> Сhe Burashka 03.08.2008 02:36:35
>
>этот и еще ярд вопросов свидетельствуют только об одном - ЛЮДИ НЕ ИЗУЧАЮТ ТИПОВЫЕ >КОНФИГУРАЦИИ
+10.
Большиство изобретенных велосипедов появляются именно из-за не знания механизмов типовых конфиг.
>Это просто Василий - добрая душа
Согласен:)
Но считаю что помогать кому то кодом - это не правильно. Мы ведь этим делом на хлеб зарабатываем. Лучше когда человек разберется в предмете и сделает сам.
+ Подобная помощь плодит количество быдлокодеров в геометрической прогрессии, благодаря чему одинэсников за прогеров не считают. А действительно, какие они нафиг программеры если задают вопросы как в (0), и демонстрируют абсолютное нежелание разобраться в простейших вещах, или даже просто почитать хелп. Зачем, если есть чудесные форумы, где множество добрых людей тут же подгонит им готовое решение, и даже думать не надо будет.
>
>этот и еще ярд вопросов свидетельствуют только об одном - ЛЮДИ НЕ ИЗУЧАЮТ ТИПОВЫЕ >КОНФИГУРАЦИИ
+10.
Большиство изобретенных велосипедов появляются именно из-за не знания механизмов типовых конфиг.
>Это просто Василий - добрая душа
Согласен:)
Но считаю что помогать кому то кодом - это не правильно. Мы ведь этим делом на хлеб зарабатываем. Лучше когда человек разберется в предмете и сделает сам.
+ Подобная помощь плодит количество быдлокодеров в геометрической прогрессии, благодаря чему одинэсников за прогеров не считают. А действительно, какие они нафиг программеры если задают вопросы как в (0), и демонстрируют абсолютное нежелание разобраться в простейших вещах, или даже просто почитать хелп. Зачем, если есть чудесные форумы, где множество добрых людей тут же подгонит им готовое решение, и даже думать не надо будет.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот