1с 7.7 Пробелы в наименовании
Показывать по
10
20
40
сообщений
- 1
- 2
30.10.2008
12:29
#1
Добрый день! Можно ли как то штатными средствами получить элемент справочника с левыми пробелами?
Например - Есть справочник контрагенты, самый первый элемент - группа, и есть в наименовании несколько пробелов " Группа1".
Далее при програмном переборе справочника Спр.Наименование = "Группа1", те без них. Подскажите пожалуйста.
Например - Есть справочник контрагенты, самый первый элемент - группа, и есть в наименовании несколько пробелов " Группа1".
Далее при програмном переборе справочника Спр.Наименование = "Группа1", те без них. Подскажите пожалуйста.
30.10.2008
12:38
#2
"Примерно так:
Спр = СоздатьОбъект("Справочник.Тратата");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл
НаименСпр = Спр.Наименование;
Если Лев(НаименСпр,3)=" " Тогда
Сообщить("В наименовании элемента "+Спр.ТекущийЭлемент+" в начале есть как минимум 3 пробела");
ИначеЕсли Лев(НаименСпр,2)=" " Тогда
Сообщить("В наименовании элемента "+Спр.ТекущийЭлемент+" в начале есть 2 пробела");
ИначеЕсли Лев(НаименСпр,1)=" " Тогда
Сообщить("В наименовании элемента "+Спр.ТекущийЭлемент+" в начале есть 1 пробел");
КонецЕсли;
КонецЦикла;
"
Спр = СоздатьОбъект("Справочник.Тратата");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл
НаименСпр = Спр.Наименование;
Если Лев(НаименСпр,3)=" " Тогда
Сообщить("В наименовании элемента "+Спр.ТекущийЭлемент+" в начале есть как минимум 3 пробела");
ИначеЕсли Лев(НаименСпр,2)=" " Тогда
Сообщить("В наименовании элемента "+Спр.ТекущийЭлемент+" в начале есть 2 пробела");
ИначеЕсли Лев(НаименСпр,1)=" " Тогда
Сообщить("В наименовании элемента "+Спр.ТекущийЭлемент+" в начале есть 1 пробел");
КонецЕсли;
КонецЦикла;
"
30.10.2008
12:55
#4
Что "неработает"? Внятно сформулируй задачу. Я набросал кусок кода, который простым перебором выдает сообщения об элементах справочника, наименования которых начинаются с 3, 2 или одного пробела. Что, приведенный код не работает или что?
30.10.2008
12:58
#5
"задача в том, чтобы получить количество пробелов слева. в данном случае
НаименСпр = Спр.Наименование;
в переменной НаименСпр пробелов небудет."
НаименСпр = Спр.Наименование;
в переменной НаименСпр пробелов небудет."
30.10.2008
13:01
#6
Значит у вас там нет пробелов! А вообще надо писать функцию, которая считает пробелы в наименовании!
30.10.2008
13:02
#7
"Можно еще так:
Спр = СоздатьОбъект("Справочник.Тратата");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл
НаименСпр = Спр.Наименование;
Длина = СтрДлина(НаименСпр);
Длина1 = СокрЛ(НаименСпр);
РазностьДлин=Длина-Длина1;
Если РазностьДлин>0 Тогда
Сообщить("В наименовании элемента "+Спр.ТекущийЭлемент+" в начале есть "+РазностьДлин+" пробелов");
КонецЕсли;
КонецЦикла;
"
Спр = СоздатьОбъект("Справочник.Тратата");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл
НаименСпр = Спр.Наименование;
Длина = СтрДлина(НаименСпр);
Длина1 = СокрЛ(НаименСпр);
РазностьДлин=Длина-Длина1;
Если РазностьДлин>0 Тогда
Сообщить("В наименовании элемента "+Спр.ТекущийЭлемент+" в начале есть "+РазностьДлин+" пробелов");
КонецЕсли;
КонецЦикла;
"
- 1
- 2
Читают тему
(гостей: 1)