Выдает ошибку:"{ОбщийМодуль.Инвентаризация(24,13)}: Обнаружено логическое завершение исходного текста модуля
КонецФункции<<?>>; (Проверка: Толстый клиент (обычное приложение))"



Функция РезультатыИнвентаризации(ШтрихкодСтроки)
Результаты = Новый Массив;
Текст = Новый ЧтениеТекста("D:\1c\Инвентаризация пробная.txt");
Стр = Текст.ПрочитатьСтроку();
Номер = 0;
Пока Стр <> Неопределено Цикл // строки читаются до символа перевода строки
   Результаты.Добавить(Лев(Стр,13));
   Сообщить(Результаты[Номер]);
   Номер = Номер+1;
   Сообщить(Стр);
   Стр = Текст.ПрочитатьСтроку();
   
КонецЦикла;
КоличествоФактически = 0;
Для НомерЭлемента =  1 по Результаты.Количество() цикл
   Сообщить ("Ищем в массиве "+ Результаты[НомерЭлемента-1]+" "+ШтрихкодСтроки);
   Если Результаты[НомерЭлемента-1] = ШтрихкодСтроки Тогда
       Сообщить ("Нашла в массиве");    
       КоличествоФактически = КоличествоФактически+1;    
   КонецЕсли;
КонецЦикла;    

Возврат КоличествоФактически;
КонецФункции;

Точку запятую в конце убери, гений.

первый раз вижу точку с запятой после КонецФункции

Быстрее всех оказался Kashemir, спасибо

Это блиц опрос:
Результат = ОбщиеМодули.Инвентаризация.РезультатыИнвентаризации(ШтрихкодСтроки);

Выдает ошибку:"Ошибка компиляции при вычислении выражения или выполнении фрагмента кода: {(45,13)}: Переменная не определена (ОбщиеМодули)"

(3) А что такое ОбщиеМодули ?

Общие модули предназначены для размещения в них текстов функций и процедур, которые могут вызываться из любого другого модуля конфигурации

В юмор.

(5) ...могут вызываться из любого другого модуля конфигурации по имени общего модуля а не через ж... т.е. не через ОбщиеМодули

(5) Жесть какая. И что СП с тобой согласно ?

не пиши общие модули

(5)Общие модули как объект конфигурации, вызываются по названию

(5) Это ты молодец, что скопипастил. А теперь ответь на (4)

(3) что вы делали последние почти 2 года?

Экспорт

(13) К этому мы еще не дошли. Отвечаешь на еще не созревший вопрос

Все исправила, но
" Ошибка компиляции при вычислении выражения или выполнении фрагмента кода: {(46,13)}: Процедура или функция с указанным именем не определена (РезультатыИнвентаризации)"

(15) Вот и дошли. А теперь смотри (13)

вот теперь пора (13)

=)

да экспорт тоже уже написала

после этого перезагрузить 1с надо?

Хм... стареют, видимо, участники. Даже фотку не попросили...

фотка давно уже есть

(19) Телепатирую, проблема в {46,13} ^^

а если так

Результат =Инвентаризация.РезультатыИнвентаризации(ШтрихкодСтроки);

(20) Ниче се вопросики.

lt;f d.

дежа вю *

Таки я предлагаю во-первых переименовать общий модуль. Что-то дикое какое-то название. Надо МодульИнвентаризация.

А теперь не нравится строчка:
Стр = Текст.ПрочитатьСтроку();
Пишет:
Ошибка при вызове конструктора (ЧтениеТекста)
Видимо я открываю в режиме обычного приложения, поэтому не работает.

(29) Отойди от компьютера

Что еще можно сделать?

(31) Борщ сварить, салатик какой сварганить.

(29) Зачем жестко текст с именем файла вписала? Брось реквизит на форму, прикрути к нему диалог выбора файла - и все заработает.

До этого все работало, просто очень долго, я ждала сутки, а потом компьютер был нужен

(33) точно, дело в названии файла, нет такого на этом ПК

Прироста производительности не случилось. Опять все долго. Функция в (0) работает не долго, но вызывается 1300 раз, как ее разделить на 2 части, чтобы 1 часть функции вызывалась 1 раз, а вторая часть 1300 раз?

(36)а зачем Вы ее на сервер то?

(36) Сообщить() жрет достаточно много времени. И используй Найти() вместо обхода массива.

в смысле в общие модули?
Использую обработку загрузка данных из табличных документов и там программа, которую напишешь в "Вычислить" выполняется столько раз, сколько строк в табличной части, а так как это долго, то мне посоветовали в общий модуль записать

А вообще, лучше используй табличную часть. В первой колонке штрих-код, во второй - количество. Дальше просто Свернуть("ШтрихКод", "Количество") - и будет таблица значений со штрихкодами и количеством.

(40)+100500

да, но у меня в табличной части нет штрихкодов

Мне нужно подсчитать количество вхождений в массив, а Найти найдет первое вхождение

(43)То есть для каждого штрихкода Вы перебираете весь текстовый файл?

(44)один и тот же?

(42) Ну тогда используй таблицу значений промежуточную, где колонка штрих-кодов будет.

Не проще Вам прочитать текстовый файл один раз и запулить его в таблицу значений. А потом просто через найти строки и получать количество вхождений?

(47)Еще быстрее сделать тзшку с штрихкодами, в запрос и вернуть количество()

Для ускорения работы нужно от подхода "курочка по зернышку клюет" перейти к подходу "все и сразу". В 8-ке именно такой подход приветствуется.

И все-таки как разделить эту функцию на 2 части, чтобы первая часть выполнялась 1 раз?

(50) лол ))) Простите.
Читаем файл один раз. возвращаем ТЗ и тз обходим всем чем угодно. хоть выбрать, хоть найти, хотьче. Зачем эту убогую процедуру как то делить? Ее надо выкинуть и забыть как кошмарный сон с утра

и да... Скажите, а что будет, если в текстовом файлике хаотично наставить лишних пробелов или буковок в начале строки?

(50)опишите задачу более детально

Есть документ "Инвентаризация"(открываю его через обработку Загрузка данных из табличных документов) и есть текстовый файл, в котором на каждой строчке "Штрихкод 1" (второе поле это количество у всех = 1). Далее пытаюсь заполнить поле количество через "Вычислить" фактическим количеством, которое в текстовом файле. При этом штрихкоды в текстовом файле могут повторяться

(54)а зачем вам обработка загрузки из табличных документов?

fleur пжалуста - убери слово "Профессионал" из личной карточки.

(56)на основании чего?

Функция РезультатыИнвентаризации() экспорт
Результаты = Новый ТаблицаЗначений;
Результаты.колонки.Добавить("ШК");
Текст = Новый ЧтениеТекста("D:\1c\Инвентаризация пробная.txt");
Стр = Текст.ПрочитатьСтроку();
Номер = 0;
Пока Стр <> Неопределено Цикл // строки читаются до символа перевода строки

   Стз= Результаты.Добавить();
стз.шк = Лев(Стр,13);
   Стр = Текст.ПрочитатьСтроку();
   
КонецЦикла;

Возврат результаты;
КонецФункции;

результаты = РезультатыИнвентаризации();

отбор = новый структура;
Отбор...

Результат = Результаты.выбрать(Отбор);
PROFIT!!!! = результат.количество();


как то так. Но писал я на коленке прямо тут