Имя: Пароль:
1C
 
Объект ФС
Ø
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 по Текст.КоличествоСтрок() Цикл
    Стр=Текст.ПолучитьСтроку(Сч);