Нужна выбрать из ТхТ данные и записать в ДБФ.(что-то неидет выборка)
ТХТ структура

Кол

Файл ТХТ
2.2.3  90000

2.2.3  99300

2.2.3  90000






    ИмяФайла="";
   КаталогФайла=КаталогИБ()+"D:\4\";
   Т=СоздатьОбъект("Текст");
   Т.КодоваяСтраница(0);
   ФС.ВыбратьФайл(0,ИмяФайла,КаталогФайла,"Выберите пачку","Все файлы (*.*)|*.*",,);

   Попытка
       Т.Открыть(КаталогФайла+ИмяФайла);      
       Сообщить("Файл открыт");
   Исключение  
       Сообщить("Файл не открыт!");
   КонецПопытки;
      Если Т.КоличествоСтрок() = 0 Тогда
     Предупреждение("Текст пустой!");
     Возврат;
  КонецЕсли;
      Для Z=1 По Т.КоличествоСтрок() Цикл

     Стр  = Т.ПолучитьСтроку(Z);
          Инд = Найти(Стр, "2.2.3");
   
      КонецЦикла;
                    ДБФ=СоздатьОбъект("XBase");
   

     ДБФ.ОткрытьФайл("d:\1\r.dbf");
     Если ДБФ.Открыта()=1 тогда
     Предупреждение ("Открыты");

   

  ДБФ.Добавить();
ДБФ.Suma_=Инд;
   ДБФ.Записать();
   КонецЕсли;

jest

Инд = Найти(Стр, "2.2.3");

ДБФ.Suma_=Инд;

в курсе что всегда ноль будет?

+ точнее, единица

(0) про отладчик слышал?

а как исправить чтоб была сумма

1Сергей        а как исправить чтоб была сумма

(6) всё переписать по-нормальному. и добавление записей в ДБФ вставить внутрь цикла

Оригинальный код. Т.е. после выполнения исключения выводится сообщение о невозможности открыть файл и следом читается количество строк. Автор вообще понимает, что он пишет?

ИмяФайла="";
   КаталогФайла=КаталогИБ()+"D:\4\";
   Т=СоздатьОбъект("Текст");
   Т.КодоваяСтраница(0);
   ФС.ВыбратьФайл(0,ИмяФайла,КаталогФайла,"Выберите пачку","Все файлы (*.*)|*.*",,);

   Попытка
       Т.Открыть(КаталогФайла+ИмяФайла);      
       Сообщить("Файл открыт");
   Исключение  
       Сообщить("Файл не открыт!");
   КонецПопытки;
      Если Т.КоличествоСтрок() = 0 Тогда
     Предупреждение("Текст пустой!");
     Возврат;
  КонецЕсли;
 ДБФ=СоздатьОбъект("XBase");
 ДБФ.ОткрытьФайл("d:\1\r.dbf");
 Если ДБФ.Открыта()=1 тогда
     Предупреждение ("Открыты");
 КонецЕсли;
      Для Z=1 По Т.КоличествоСтрок() Цикл
          Стр  = Т.ПолучитьСтроку(Z);
          Если Найти(Стр, "2.2.3") <>0 Тогда
              СуммаСтр = СокрЛП (Сред(Стр,6));
              ДБФ.Добавить();
              ДБФ.Suma_ = Число(СуммаСтр);
             ДБФ.Записать();
          КонецЕсли;
      КонецЦикла;
 ДБФ.Закрыть();

(9) Толя, у тебя значка ГТО на груди случайно нет? пришёл, прожевал и в рот положил :)

СуммаСтр = СокрЛП (Сред(Стр,6)); не дожевал )))

СуммаСтр=СокрЛП(СтрЗаменить(Стр, "2.2.3", ""))

(10) Нету... :-)
(11) В каком месте?

(11) А, ну да... СуммаСтр = СокрЛП (Сред(Стр, Найти(Стр, "2.2.3") + 1));

СуммаСтр = СокрЛП (Сред(Стр, Найти(Стр, "2.2.3") + 6)); :-)

Прогресс, вчера было без кода
КАк перенести даные из txt в ДБФ обработкой

(11) (12) (14) (15) к числу преобразовывать кто будет?

(17) ТС. Пусть хоть что-то сделает.

(13) у метода Сред 3 параметра

(19) третий - не обязательный

(19) Подарю СП :-)

(17) в (9) преобразование есть.