|
|
|
Объект ФС Ø |
☑ | ||
|---|---|---|---|---|
|
0
vadim
19.12.05
✎
12:57
|
Подскажите как из выбраного текстового файла вытащить строку для последующей обработки? 7.7(Оперативный учет). Методом ФС.ВыбратьФайл() показываю путь и имя, а что дальше???
|
|||
|
1
Alexaha
19.12.05
✎
12:57
|
открыть
|
|||
|
2
vadim
19.12.05
✎
13:00
|
В смысле? можно поканкретнее?
|
|||
|
3
Sasha
19.12.05
✎
13:04
|
времТекст= СоздатьОбъект("Текст");
времТекст.Открыть(ТвойФайл); а дальше методы объекта "Текст" см. сП |
|||
|
4
Cool Brother
19.12.05
✎
14:04
|
Текст = СоздатьОбъект("Текст");
Текст.КодоваяСтраница(0); ИмяНачКаталога="C:\"; Если ФС.ВыбратьФайл(0,ИмяФайлаВ,ИмяНачКаталога,"Выберите файл для загрузки","Все файлы данных | ДокументыТС*.txt")=1 Тогда Иначе Сообщить("Файл не выбран.","!!!"); возврат; КонецЕсли; ИмяФайлаВ=СокрЛП(ИмяНачКаталога)+СокрЛП(ИмяФайлаВ); Если ФС.СуществуетФайл(ИмяФайлаВ)=1 Тогда Текст.Открыть(ИмяФайлаВ); Если Текст.КоличествоСтрок()<18 Тогда Сообщить("В файле "+ИмяФайлаВ+" нет данных или файл некорректен.","!!!"); возврат КонецЕсли; Иначе Сообщить("Файл "+ИмяФайлаВ+" не найден.","!!"); Возврат; КонецЕсли; СТР1=ЗначениеИзСтроки(Текст.ПолучитьСтроку(1)); СТР2=ЗначениеИзСтроки(Текст.ПолучитьСтроку(2)); СТР3=ЗначениеИзСтроки(Текст.ПолучитьСтроку(3)); СТР4=ЗначениеИзСтроки(Текст.ПолучитьСтроку(4)); СТР5=ЗначениеИзСтроки(Текст.ПолучитьСтроку(5)); ИтогСуммаПоТовару_=Текст.ПолучитьСтроку(Текст.КоличествоСтрок()-9); ИтогСуммаПоТоваруНДС_=Текст.ПолучитьСтроку(Текст.КоличествоСтрок()-8); ИтогСуммаПоТоваруНП_=Текст.ПолучитьСтроку(Текст.КоличествоСтрок()-7); ИтогСуммаПоУслугам_=Текст.ПолучитьСтроку(Текст.КоличествоСтрок()-6); ИтогСуммаПоУслугамНДС_=Текст.ПолучитьСтроку(Текст.КоличествоСтрок()-5); ИтогСуммаПоУслугамНП_=Текст.ПолучитьСтроку(Текст.КоличествоСтрок()-4); ИтогСуммаПоТаре_=Текст.ПолучитьСтроку(Текст.КоличествоСтрок()-3); ИтогСуммаПоТареНДС_=Текст.ПолучитьСтроку(Текст.КоличествоСтрок()-2); ИтогСуммаПоТареНП_=Текст.ПолучитьСтроку(Текст.КоличествоСтрок()-1); КолвоДокументов_=Текст.ПолучитьСтроку(Текст.КоличествоСтрок()); КолВоДок=Текст.ПолучитьСтроку(Текст.КоличествоСтрок()); Ответ=Вопрос("Загрузить данные:"+разделительстрок+ "Период с "+СТР1+" по "+СТР2+разделительстрок+ "Из конфигурации: "+СТР3+разделительстрок+ "Количество документов: "+КолВоДок+разделительстрок+ "Дата выгрузки: "+СТР4+разделительстрок+ "Время выгрузки: "+СТР5+"?",3); Если Ответ<>6 Тогда Сообщить("Данные не загружены.","!!"); возврат КонецЕсли; Если ВТранзакции=1 Тогда НачатьТранзакцию(); КонецЕсли; ТКлиент.ИсходнаяТаблица("ТКлиент"); ТКлиент.ВывестиСекцию("Шапка"); ЕстьОшибки=0;НПП=0; Для Сч=8 по Текст.КоличествоСтрок() Цикл Стр=Текст.ПолучитьСтроку(Сч); |
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |