Пишу функционал, который будет решать систему линейных уравнений (СЛУ) для подсчета себестоимости.
Для начала нужно считать данные из текстового файла в регистр сведений. как это сделать?

Программирую под 1с недавно. Вот до чего дошел:


Процедура СчитываниеСвободныхЧленов()
       
       // Создаем объект типа "Текстовый документ"
       Текст = Новый ТекстовыйДокумент();
       
       // Пусть к файлу
       Путь = "C:\Users\mikhailyuk_s\Documents\InfoBase6\свободные.txt";
       
       // Считываем файл                          
       Текст.Открыть(Путь);
       
       // Разделитель
       Разделитель = ПС;
       
       // Перебираем строки файла, заполняя документ
       Для а = 1 по Текст.КоличествоСтрок() Цикл
           // Получаем строку
           Стр = Текст.ПолучитьСтроку(а);
           // Заносим строку во временную переменную
           ТекущаяСтрока = Стр;
           // Найдем разделитель
           НомерСимвола = Найти(ТекущаяСтрока, Разделитель);
           // Выбираем значение до разделителя
           ДоРазделителя = СокрЛП(Лев(ТекущаяСтрока, НомерСимвола-1));
           // Обрезаем строчку до первого символа после разделителя
           ТекущяаСтрока = Сред(ТекущаяСтрока, НомерСимвола+1);
           // Ищем следующий разделитель
           // Если это последний реквизити, то просто берем
           // оставшуюся строчку
           НомерСимвола = Найти(ТекущаяСтрока, Разделитель);
           ПослеРазделителя = Число(Лев(ТекущаяСтрока, НомерСимвола-1));

Запись = РегистрыСведений.СвободныеЧлены.СоздатьМенеджерЗаписи();
перенеси в середину цикла.

может как то так)))

Процедура СчитатьСвободныеЧлены() Экспорт
       
   Путь = "C:\Users\mikhailyuk_s\Documents\InfoBase6\свободные.txt";
       
   Текст = Новый ТекстовыйДокумент;
   Текст.Прочитать(Путь);
   
   Для а = 1 По Текст.КоличествоСтрок() Цикл
       Запись = РегистрыСведений.СвободныеЧлены.СоздатьМенеджерЗаписи();
       
       Запись.Уравнение = а;
       Запись.Значение = Текст.ПолучитьСтроку(а);
       
       Запись.Записать();
   КонецЦикла;
       
КонецПроцедуры

(78) вот ты быстрый)))

Да, все работает. Спасибо!

(80) судя, по теме твой ответ лучше... (не надо доп. объяснений)

теперь остается другой вопрос - как считать матрицу коэффициентов?
она задана в таком вот виде: (пример)
(1;1)(3;2)
(1;2)
(3;1)
Что эквивалентно такой записи:
1*Х1 + 2* Х3
2* Х1
1* Х3

Хочу считать это дело в регистр сведений с соответственно полями "Х" "У" и "Коэффициент". Как это лучше реализовать?

Вот что у меня получилось:

Процедура СчитатьКоэффициенты() Экспорт

   Путь = "C:\Users\слу.txt";
   ТекстовыйФайл = Новый ЧтениеТекста(Путь, КодировкаТекста.ANSI);
   СтрокаФайла = ТекстовыйФайл.ПрочитатьСтроку();
   
   Разделитель1 = "(";
   Разделитель2 = ";";
   Разделитель3 = ")";
   ПозицияРазделителя1 = Найти(СтрокаФайла, Разделитель1);
   
   // Переменная Х
   НомерУравнения = 1;
   
   // Цикл по строкам файла
   Пока СтрокаФайла <> Неопределено Цикл
       
       // Цикл по строкам файла
       Если ПозицияРазделителя1 <> 0 Тогда
           
       Запись = РегистрыСведений.СЛУ.СоздатьМенеджерЗаписи();            
       ПозицияРазделителя1 = Найти(СтрокаФайла, Разделитель1);
       ПозицияРазделителя2 = Найти(СтрокаФайла, Разделитель2);
       ПозицияРазделителя3 = Найти(СтрокаФайла, Разделитель3);
       Разница12 = ПозицияРазделителя2 - ПозицияРазделителя1-1;
       Разница23 = ПозицияРазделителя3 - ПозицияРазделителя2-1;
       
           Запись.х = НомерУравнения;
           Запись.у = Сред(СтрокаФайла, ПозицияРазделителя1+1, Разница12 );
           Запись.Коэффициент = Сред(СтрокаФайла, ПозицияРазделителя2+1, Разница23 );
           Запись.Записать();
           Запись.Записать();
           Запись.Записать();
           СтрокаФайла = Прав(СтрокаФайла,СтрДлина(СтрокаФайла)-ПозицияРазделителя3)
       
       КонецЕсли;
       
       НомерУравнения = НомерУравнения + 1;
           
       КонецЦикла;
   
КонецПроцедуры

опять ты за свое:

Запись = РегистрыСведений.СЛУ.СоздатьМенеджерЗаписи();            
Запись.х = НомерУравнения;
Запись.у = Сред(СтрокаФайла, ПозицияРазделителя1+1, Разница12 );
Запись.Коэффициент = Сред(СтрокаФайла, ПозицияРазделителя2+1, Разница23 );
Запись.Записать();
Запись.Записать();
Запись.Записать();

запись создаешь одну а записываешь ее 3 раза!!! зачем?

и как ты отсюда:

(1;1)(3;2) = 1*Х1 + 2* Х3
(1;2)      = 2* Х1
(3;1)      = 1* Х3

получаешь X, Y, Коэффициент???

и из своего файла ты прочитаешь всего одну (первую) строку:

СтрокаФайла = ТекстовыйФайл.ПрочитатьСтроку();

ну понятно как - сначала работаем со строкой (номер строки - это х)
дальше в строке ищу то, то между 1 и 2 разделителем - это у
то, что между 2 и 3 разделителями - то коэффициент

наведи в голове порядок... тогда записать в программе проще будет... без обид

напиши как в регистре будут выглядеть две записи из файла:

1)
(1;1)(3;2)

2)
(1;2)

???

кстати, при считывании свободных членов он округляет их.. .как от этого избавиться?

приведи пример: про округление

разделитель дес. знаков кто?

все, сам исправил
разделитель - запятая

молодец, так что с (89)

как переходить в цикле в следующей строчке?

Процедура СчитатьКоэффициенты() Экспорт

   Путь = "C:\Users\mikhailyuk_s\Documents\InfoBase6\слу.txt";
   ТекстовыйФайл = Новый ТекстовыйДокумент;
   ТекстовыйФайл.Прочитать(Путь);
   
   Разделитель1 = "(";
   Разделитель2 = ";";
   Разделитель3 = ")";
   ПозицияРазделителя1 = Найти(СтрокаФайла, Разделитель1);
   
   // Переменная Х
   НомерУравнения = 1;
   
   // Цикл по строкам файла
   Пока СтрокаФайла <> Неопределено Цикл
       
       // Цикл по строкам файла
       Если ПозицияРазделителя1 <> 0 Тогда
           
       Запись = РегистрыСведений.СЛУ.СоздатьМенеджерЗаписи();            
       ПозицияРазделителя1 = Найти(СтрокаФайла, Разделитель1);
       ПозицияРазделителя2 = Найти(СтрокаФайла, Разделитель2);
       ПозицияРазделителя3 = Найти(СтрокаФайла, Разделитель3);
       Разница12 = ПозицияРазделителя2 - ПозицияРазделителя1-1;
       Разница23 = ПозицияРазделителя3 - ПозицияРазделителя2-1;
       
           Запись.х = НомерУравнения;
           Запись.у = Сред(СтрокаФайла, ПозицияРазделителя1+1, Разница12 );
           Запись.Коэффициент = Сред(СтрокаФайла, ПозицияРазделителя2+1, Разница23 );
           Запись.Записать();
           СтрокаФайла = Прав(СтрокаФайла,СтрДлина(СтрокаФайла)-ПозицияРазделителя3)
       
       КонецЕсли;
       
       НомерУравнения = НомерУравнения + 1;
           
   КонецЦикла;
   
КонецПроцедуры

я говорю определись...
то

ТекстовыйФайл = Новый ТекстовыйДокумент;

то

ТекстовыйФайл = Новый ЧтениеТекста(Путь, КодировкаТекста.ANSI);

хватит метаться из стороны в сторону)

Я так понимаю, плавно переходим к рассчету симплекс метода или системы линейных уровнений на 1С ?

так он для того все это и делает, правда так и осталось не выясненным зачем РС, а не ТабЗнач)

100!

(100) а пользы из 100 на 3 поста)))

>pumbaEO
Нет, буду искать решение СЛУ итерационными методами

>m-serg74
просто хочу реализовать одно и тоже действие несколькими способами...

для начала сделай одним, когда будет правильно работать, если хочешь потренироваться сделаешь вторым, знаешь поговорку про 2х зайцев?

человек не Windows(многозадачный) и все делает последовательно...

так что с (89) ?

Да как-то глухо с (89)
Пока учусь и хочу, чтобы было несколько правильных шаблонов считывания...

да ты не в программе (89), а на бумаге что ли придумай как будешь обрабатывать...

Так я же писал уже как:
Считываем строчку
х - номер строки
Ищем в ней первые 3 разделителя. То, что между 1 и 2 - то у. То, что между 2 и 3 - то коэффициент. После чего берем остаток стоки и продолжаем до тех пор пока строка не станет пустой.
Строка - пустая, берем новую строчку...

По идее должно работать, но что-то не очень..

Процедура СчитатьКоэффициенты() Экспорт

   Путь = "C:\Users\слу.txt";
   ТекстовыйФайл = Новый ЧтениеТекста(Путь, КодировкаТекста.ANSI);
   СтрокаФайла = ТекстовыйФайл.ПрочитатьСтроку();
   
   Разделитель1 = "(";
   Разделитель2 = ";";
   Разделитель3 = ")";
   ПозицияРазделителя1 = Найти(СтрокаФайла, Разделитель1);
   
   // Переменная Х

   НомерУравнения = 1;
   
   // Цикл по строкам файла

   Пока СтрокаФайла <> Неопределено Цикл
       
       // Цикл по строкам файла

       Если ПозицияРазделителя1 <> 0 Тогда
           
           Запись = РегистрыСведений.СЛУ.СоздатьМенеджерЗаписи();            
           ПозицияРазделителя1 = Найти(СтрокаФайла, Разделитель1);
           ПозицияРазделителя2 = Найти(СтрокаФайла, Разделитель2);
           ПозицияРазделителя3 = Найти(СтрокаФайла, Разделитель3);
           Разница12 = ПозицияРазделителя2 - ПозицияРазделителя1-1;
           Разница23 = ПозицияРазделителя3 - ПозицияРазделителя2-1;
       
           Запись.х = НомерУравнения;
           Запись.у = Сред(СтрокаФайла, ПозицияРазделителя1+1, Разница12 );
           Запись.Коэффициент = Сред(СтрокаФайла, ПозицияРазделителя2+1, Разница23 );
           Запись.Записать();
           СтрокаФайла = Прав(СтрокаФайла,СтрДлина(СтрокаФайла)-ПозицияРазделителя3)
       
       КонецЕсли;
       
       НомерУравнения = НомерУравнения + 1;
       СтрокаФайла = ТекстовыйФайл.ПрочитатьСтроку();
       
   КонецЦикла;
   
КонецПроцедуры

ты из строки в этом коде возьмешь только первое (...;...)

и что значит "По идее должно работать"? ты в блокноте что ли программу пишешь, проверить нет возможности и огласить результат работы...

запускаю программу - результата нет..
алгоритм правильный

почему возьму только первое?

потому что:

СтрокаФайла = ТекстовыйФайл.ПрочитатьСтроку();

КонецЦикла;

больше циклов не вижу...О-О

>алгоритм правильный
- смелое заявление, почему тогда
>запускаю программу - результата нет..

не вижу ошибки(

я же как делаю - беру строчку:
СтрокаФайла = ТекстовыйФайл.ПрочитатьСтроку();

Работаю с ней:
       Если ПозицияРазделителя1 <> 0 Тогда
           
           Запись = РегистрыСведений.СЛУ.СоздатьМенеджерЗаписи();            
           ПозицияРазделителя1 = Найти(СтрокаФайла, Разделитель1);
           ПозицияРазделителя2 = Найти(СтрокаФайла, Разделитель2);
           ПозицияРазделителя3 = Найти(СтрокаФайла, Разделитель3);
           Разница12 = ПозицияРазделителя2 - ПозицияРазделителя1-1;
           Разница23 = ПозицияРазделителя3 - ПозицияРазделителя2-1;
       
           Запись.х = НомерУравнения;
           Запись.у = Сред(СтрокаФайла, ПозицияРазделителя1+1, Разница12 );
           Запись.Коэффициент = Сред(СтрокаФайла, ПозицияРазделителя2+1, Разница23 );
           Запись.Записать();
           СтрокаФайла = Прав(СтрокаФайла,СтрДлина(СтрокаФайла)-ПозицияРазделителя3)
       
       КонецЕсли

и как только с ней отработал, то перехожу к следующей..
       НомерУравнения = НомерУравнения + 1;
       СтрокаФайла = ТекстовыйФайл.ПрочитатьСтроку();
       
   КонецЦикла;

Разве нет?

результата нет, потому что реализация алгоритма неправильная

не "как только с ней отработал", а обработал первые скобочки и взял следующую строку...

может

Если ПозицияРазделителя1 <> 0 Тогда
  ////////////////
КонецЕсли

заменить на

Пока ПозицияРазделителя1 <> 0 Цикл
  ////////////////
КонецЦикла;

Считываем строчку
х - номер строки

это номер строки в файле или порядковый номер (...)?

заменил, но ничего не поменялось - результата нет
а почему я "обработал первые скобочки и взял следующую строку..." я же работаю вроде с одной и той же..

х - это номер строки

покажи место где ты в строчке обрабатываешь вторые (...)

(123) т.е. если в строчке несколько (...) то Х все равно не будет меняться? я правильно понял?

СтрокаФайла = Прав(СтрокаФайла,СтрДлина(СтрокаФайла)-ПозицияРазделителя3)

Здесь я беру все что справа от обработанной скобки. Разве нет?

правильно берешь а обрабатываешь то где?

сразу после этого ты берешь след. строку

СтрокаФайла = ТекстовыйФайл.ПрочитатьСтроку();

отладчик включи и посмотри очередность действий твоей проги

если в строчке несколько скобок, то Х не меняется - остается тем же

   Пока СтрокаФайла <> Неопределено Цикл
       
         // Цикл по строке файла
         Пока ПозицияРазделителя1 <> 0 Цикл
           
           Запись = РегистрыСведений.СЛУ.СоздатьМенеджерЗаписи();            
           ПозицияРазделителя1 = Найти(СтрокаФайла, Разделитель1);
           ПозицияРазделителя2 = Найти(СтрокаФайла, Разделитель2);
           ПозицияРазделителя3 = Найти(СтрокаФайла, Разделитель3);
           Разница12 = ПозицияРазделителя2 - ПозицияРазделителя1-1;
           Разница23 = ПозицияРазделителя3 - ПозицияРазделителя2-1;
       
           Запись.х = НомерУравнения;
           Запись.у = Сред(СтрокаФайла, ПозицияРазделителя1+1, Разница12 );
           Запись.Коэффициент = Сред(СтрокаФайла, ПозицияРазделителя2+1, Разница23 );
           Запись.Записать();
           СтрокаФайла = Прав(СтрокаФайла,СтрДлина(СтрокаФайла)-ПозицияРазделителя3);
           ПозицияРазделителя1 = Найти(СтрокаФайла, Разделитель1);
           
       КонецЦикла;
       
       НомерУравнения = НомерУравнения + 1;
       СтрокаФайла = ТекстовыйФайл.ПрочитатьСтроку();
       
   КонецЦикла;


Вот я отрезал обработанную скобку:

           СтрокаФайла = Прав(СтрокаФайла,СтрДлина(СтрокаФайла)-ПозицияРазделителя3)

и что в рег. ничего не пишется?

нет, не пишется(

я домой))

ээх, ладно.. спасибо за помощь - буду сидеть разбираться

Все-равное не пойму где косяк...

(135) - может стоило-бы кого-нибудь нанять? Ведь это еще даже не начало ...

нанять? Вы, разве начинали изучение платформы с того, что нанимали тех, кто за вас выполнит ваше задание на не?

а - это побаловаться..., ну тогда я начинал с того, что 3 раза перечитал все что было доступно, потом год с отладчиком так сказать в руках, и первый вопрос который у меня возник - был наверное лет через 5. К этому времени уже обленился искать сам. где-то так. не в укор конечно, но что бы задавать вопросы - неплохо бы сначала поискать ответы самому. а для этого ну хотя бы дочитать документацию до конца ВСЮ. а еще лучше - так видео курс посмотреть - благо на просторах инета скачать не проблема. Уверяю - результат на выходе будет значительно быстрее и качественнее...

(+138) - все это не в обиду, а в качестве совета.

мне бы сейчас больше подошел совет по коду...

(140) - ну с первого поста по 130 - я смотрю вопросы сместилось вместе с поправкой каждого шага. честно говоря перечитывать все посты что бы понять а в чем-же вопрос на нынешний момент - как-то неохота. после того как заработает последний вариант кода - появится следующий вопрос... Время на отладку данного кода прочитав документацию - 5 минут с перекуром с кружкой пива. А сколько времени потратили вы? Теперь умножьте на еще не полученные вопросы - такими темпами жизни не хватит. В принципе могу подсказать, если введете в курс проблемы не отправляя перечитывать развитие сего сюжета :-)

Как сделать так, чтобы после закрытия 1с предприятия Регистры сведений были пустыми, т.е. как их чистить?

Сейчас задал общий вопрос, ответ на который опытный программист может дать не перечитывая историю топика...

В модуле обычного приложения (если вы запускаете 1с в обычном режиме) либо модуле управляемого приложения (если запускается в управляемом режиме) пишется в обработчике события код:

Рег=РегистрыСведений.хххх.СоздатьНаборЗаписей();
Рег.Записать();

(+144) забыл указать: обработчик событий №ПриЗавершенииРаботыСистемы" - по-памяти по-моему так называется

(+144) - можно и в обработчике "ПередЗаверешениемРаботыСистемы", а можно при старте приложения в обработчике "ПередНачаломРаботыСистемы" - как нравится

Как сделать так, чтобы регистры сведений очищались после закрытия 1с:предприятие?

ИМХО основная ошибка автора, он плохо учил русский язык в школе. Ча-ща надо писать через "а", а он пишет через "я"

ТекущяаСтрока =

а вы тут развернули на 150 постов.

Если бы было хоть немного разума, то прочел бы история и увидел, что 150 постов не к этому относятся...

код для очистки регистра такой:
РегСЛУ = РегистрыСведений.СЛУ.СоздатьНаборЗаписей();
РегСЛУ.Записать();
   
РегСЧ = РегистрыСведений.СвободныеЧлены.СоздатьНаборЗаписей();
РегСЧ.Записать();

Куда нужно его вставить, чтобы при закрытии приложения регистры очищались?

(147) чем не нравится метод описанный в (144 - 146)? да и, если не надо хранить инфу, зачем использовать РС?

Тут такое дело - просто взял регистры сведений в качестве хранилищ для коэффициентов и свободных членов системы. Вообщем то, скоро думаю перейти на ТаблицыЗначений (просто в качестве практики)

Метод - нравиться.. только не знаю, куда именно нужно вставить строки, чтобы была очистка регистров...

(152) Если очень надо очищать именно при закрытии приложения то в модуле обычного приложения (пкм на названии конфигурации в дереые метаданных в конфигураторе - "Открыть модуль обычного приложения") найти процедуру "Процедура ПриЗавершенииРаботыСистемы()" и туда вставить этот код.

Но вот если все это городится в какой-то внешней обработке, то лучше в обработчике ПриЗакрытии() формы этой обработки.

И еще: неплохо бы раздобыть книжку "1С:Предприятие. Простые примеры разработки"

Да да , мне многие рекомендовали книжку - появится у меня скоро...

Теперь по коду:
я немного не понял - процедура "Процедура ПриЗавершенииРаботыСистемы()" уже где то есть, так?

просто не пойму, где "Открыть модуль обычного приложения"

тебе ж J_B написал:
пкм на названии конфигурации в дереые метаданных в конфигураторе - "Открыть модуль обычного приложения") найти процедуру "Процедура ПриЗавершенииРаботыСистемы()"

и ты ж вроде в v8: Проблема с обработками написал что разобрался...

В конфигураторе слева есть дерево метаданных, самая верхняя строчка в нем - название конфигурации - вот там и надо делать пкм (правая кнопка мыши).
Дальше: процедура может быть а может и не быть (зависит от того, какая конфигурация). Если есть - дописываем к существующей, нету - создаем свою

Но вот я бы не лез в типовые модули... лучше прикрутить к обработке кнопочку "Очистить регистры" и в ее обработчик влепить упомянутый кусочек кода.

навряд ли там типовая...

(160) тем более не лез бы на начальных уровнях...

да там скорее всего или вообще пустая или каркасная

ибо
РегистрыСведений.СЛУ, РегистрыСведений.СвободныеЧлены

Извиняюсь, что так долго... у меня там нет "Открыть модуль обычного приложения"
есть управляемое..

значит в модуле Управляемого приложения ваяй...

просто у тебя в настройках стоит вариант запуска - только Управляемое приложение

Ошибка(


{МодульУправляемогоПриложения(6,10)}: Переменная не определена (РегистрыСведений)
   РегСЧ = <<?>>РегистрыСведений.СвободныеЧлены.СоздатьНаборЗаписей(); (Проверка: Тонкий клиент)

правильно... ошибка из

Процедура ПриЗавершенииРаботыСистемы()
   ОчиститьРегистры();
КонецПроцедуры;

делай вызов другой процедуры, например:

&НаСервере
Процедура ОчиститьРегистры()
///ляляляляля
КонецПроцедуры

Почему то нет очистки...(

все работает,толкьо ничего не очищает(

Решил, что лучше держать все коэффициенты (и коэффициенты системы и свободные члены) в одном регистре - объединил 2 вышеуказанных процедуры и что-то не очень то получается....


Процедура Считывание() Экспорт
   Текст = Новый ТекстовыйДокумент;
   Путь = "C:\свободные.txt";
   Текст.Прочитать(Путь);

   Для а = 1 По Текст.КоличествоСтрок() Цикл
       Запись = РегистрыСведений.СЛУ.СоздатьМенеджерЗаписи();
       Запись.СвободныйЧлен = Текст.ПолучитьСтроку(а);
       Запись.Записать();
   КонецЦикла;
   
   Путь2 = "C:\слу.txt";
   Текст.Прочитать(Путь2);

   Разделитель1 = "(";
   Разделитель2 = ";";
   Разделитель3 = ")";
 
   // Переменная Х
   НомерУравнения = 1;
   
   // Цикл по количеству строк
   Для а = 1 По Текст.КоличествоСтрок() Цикл
       
       Строка = Текст.ПолучитьСтроку(а);
       ПозицияРазделителя1 = Найти(Строка, Разделитель1);
       
       // Цикл по строке
       Пока ПозицияРазделителя1 <> 0 Цикл
           
           Запись = РегистрыСведений.СЛУ.СоздатьМенеджерЗаписи();            
           ПозицияРазделителя1 = Найти(Строка, Разделитель1);
           ПозицияРазделителя2 = Найти(Строка, Разделитель2);
           ПозицияРазделителя3 = Найти(Строка, Разделитель3);
           Разница12 = ПозицияРазделителя2 - ПозицияРазделителя1 - 1;
           Разница23 = ПозицияРазделителя3 - ПозицияРазделителя2 - 1;
           
           Запись.х = НомерУравнения;
           Запись.у = Сред(Строка, ПозицияРазделителя1+1, Разница12 );
           НепроверенныйКоэффициент = Сред(Строка, ПозицияРазделителя2+1, Разница23 );
           Если НепроверенныйКоэффициент = "0" Тогда
                Запись.Коэффициент = 1;
            Иначе
                Запись.коэффициент = НепроверенныйКоэффициент;
                   
           КонецЕсли;
           //Запись.Коэффициент = Сред(Строка, ПозицияРазделителя2+1, Разница23 );
           Запись.Записать();
           Строка = Прав(Строка,СтрДлина(Строка)-ПозицияРазделителя3);
           ПозицияРазделителя1 = Найти(Строка, Разделитель1);
           
       КонецЦикла;
       
       НомерУравнения = НомерУравнения + 1;
       
   КонецЦикла;

КонецПроцедуры

черт, вопрос отпал)

И, тем не менее, не работает очистка регистров.

off: чушь какая то очередная...

как узнать, сколько в регистре сведений элементов?

как скопировать данные из регистра сведений в таблицу значений?

Выгрузить()