Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: считывание с файла)
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
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
Решаются, но очень редко ...
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.