[akella]

Доброго времени суток) Вот вопрос. 1с ка умеет считывать инфу с файла? цифры. читаю маны. вижу только умеет делать select....
если может. подскажите операцию. нуно из файла с цифрами сделать таблицу значений)))ну вот нуно сам процес вытягивания инфы из файла
заранее спс
пс. я имею ввиду текстовы файл. нашел только пример работы с xbase!

[akella]

//*******************************************
Процедура Сформировать()
    Перем temp;
    Перем Список;
    Перем Файл;
    Перем i,j;
    Перем Размер;
    Если ЗагрузитьВнешнююКомпоненту("D:\1c_temp\akella\text\"+"v7plus.dll")<>1 Тогда
        Предупреждение("Библиотека v7plus.dll ненайден");    
    КонецЕсли;
    Список=СоздатьОбъект("СписокЗначений");
    Файл=СоздатьОбъект("AddIn.V7TextFile");
    Файл.ОткрытьФайл("text.txt",0);  
    Файл1=СоздатьОбъект("AddIn.V7TextFile");
    Файл1.ОткрытьФайл("Text1.txt",1);
    j=1;
    i=1;                         
    temp="";
    Файл.ВыбратьСтроки();    
    Пока i<>0 цикл
        Если Файл.ПрочитатьСтроку(temp)<>0 Тогда
            Список.ДобавитьЗначение(temp);
            j=j+1;
        Иначе 
            i=0;
        КонецЕсли;
    КонецЦикла;
    
    Список.Сортировать(0);
    Размер=Список.РазмерСписка(); 
    Для i=1 По Размер Цикл
        Список.ПолучитьЗначение(i,temp);
        Файл1.ЗаписатьСтроку(temp); 
    КонецЦикла;
    Файл.ЗакрытьФайл(); 
    Файл1.ЗакрытьФайл();
        
КонецПроцедуры

что по нему сскажите???
он записывает пустое значение!

[Fynjy]

ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("ДаныеФайла","Число");
Текст = СоздатьОбъект("Текст");
Текст.Открыть("c:\1.txt");
Для Сч=1 По Текст.КоличествоСтрок() Цикл
СтрокаТекста = Текст.ПолучитьСтроку(Сч);
ТЗ.НоваяСтрока();
ТЗ.ДаныеФайла = Число(СтрокаТекста);
КонецЦикла;

[akella]

ну мой вариант оказался рабочим)))

спасибо))))
вот вопрос.. как узнать в списке расположение нужного значения типа

Список=создатьОбъект("Список значений");
список.добавитьзначение("   х  ");

вот как найти положение х по вертикали?

Пс. Вот объясните..в 1с часто решаються Комбинаторные задачи?????

[Ardi]

"вот вопрос.. как узнать в списке расположение нужного значения типа "
Нужно знать с какого символа по какой расположены данные.
На основе этих знаний
Стр_=сред(исходнаяСтрока,51,55);//считываем с 51 знака по 55
Стр_=СокрЛП(Стр_);//удаляем пробелы

[Fynjy]

Решаются, но очень редко ...