Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
PQ_определить регистр буквы
 
Добрый день.
Есть часть выгрузки из 1С
"ХЛЕБОБУЛОЧНЫЕ ИЗДЕЛИЯ" в столбце В - группа, "Батон" - подгруппа
Как размножить подгруппу в отдельный столбец я знаю, но не могу размножить группу.
Выделил последнюю букву в отдельный столбец.
Подскажите можно определить регистр буквы? Если буква заглавная, то взять данные из второго столбца
Благодарю
 
И вам добрый.
Ну вот самый дуболомный вариант:
Код
= Text.Contains("АБВГДЕЁЖЗИКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ", Text.End([Column2],1) )

Ну, можно еще проверку на наличие пустой строки добавить:
Код
= Text.Contains("АБВГДЕЁЖЗИКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ", Text.End([Column2],1) ) and Text.End([Column2],1) <> ""
Изменено: PooHkrd - 13 Сен 2019 16:33:24
Вот горшок пустой, он предмет простой...
 
вариант
Код
=List.ContainsAny({Text.End([Column2],1)},{"A".."Я"})
Изменено: buchlotnik - 13 Сен 2019 16:50:17
Каждому For свой Next
 
Цитата
buchlotnik написал:
{"A".."Я"}
Жестокий вы человек, такие диапазоны выкладывать. Подсказка: у вас там A - на латинице  ;)
И если уж докапываться то так правильнее
Код
= {"А".."Я"} & {"Ё"}
Вот горшок пустой, он предмет простой...
 
Цитата
PooHkrd написал:
И если уж докапываться
ну блин, на Ё заканчивается если только что-то из японского  :D
Каждому For свой Next
 
Цитата
buchlotnik написал:
если только что-то из японского
а вдруг там МУМИЁ?  :D  
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
А нельзя использовать для буквы (если мы знаем, что символ буква) конструкцию аналогичную

Код
c=ucase(c)

или


Код
c=ucase(c) and c<>lcase(c)

если не знаем? Тогда это будет действовать для букв всех языков.
Изменено: sokol92 - 13 Сен 2019 19:12:31
Владимир
 
Цитата
sokol92 написал:
А нельзя
да можно, но больно громоздко выходит:
Код
=Text.Upper(Text.End([Column2],1))=Text.End([Column2],1) and Text.Lower(Text.End([Column2],1))<>Text.End([Column2],1)
чуть короче, но тоже заморочно:
Код
=[a=Text.End([Column2],1),b = Text.Upper(a)=a and Text.Lower(a)<>a][b]

зато действительно универсально, sokol92, , спасибо за алгоритм  ;)
Изменено: buchlotnik - 13 Сен 2019 22:10:09
Каждому For свой Next
 
Благодарю всех за помощь.
Страницы: 1
Читают тему (гостей: 1)
Наверх