v7: Найти первый не русский символ #747514

Как найти в строке позицию первого не русского символа (цифры, знака препинания и т.д.)?

Эээ... а в чем проблема?

С помощью цикла.

сначала уточнить понятие "не русский символ" = составить перечень всех символов которые ищем

задача для школьной информатики.

лучше наоборот - перечислить русские

проще для программиста, не значит проще для компьютера

ВРЕГ(Символ) >= "А" И ВРЕГ(Символ) <= "Я"

НЕ русских символов гораздо больше, чем русских, поэтому для компьютера тоже проще.

Если Найти ("АБВГДЕЖЗИКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзиклмнопрстуфхцчшщъыьэюя", Сред (ВходСтр, Сч, 1))=0 Тогда Сообщить ("Нашли первый нерусский символ");

ой в хотел ответить)

цифра "3" - это русский символ? или уже арабский?

да но как бы по кодам проще проверить на вхождения в интервалы, чем на невхождения

зависит от валюты)

Это ты вручную набирал от "А" до "Я" буквы?

а буква i? это так то тоже русский. только не современный.

Буквы "Ёё" и "Йй" потерял.

0,5 - точно русский....

думать что русский программист знает наизусть алфавит это несколько самонадеянно... хотя если 1С-ник...

Обработку написал же, зачем вручную.

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

регэксп  [^а-я]/i не предлагать?

мне вот интересно а если всякие там казахские или украинские кодировки. оно как? теже символы или другие, тока выглядят похоже?

пропустил Й и Ё

другие коды

тада надо перевести всё в кодировку юникод и смотреть символы "Под символы кириллицы выделены области знаков с кодами от U+0400 до U+052F, от U+2DE0 до U+2DFF, от U+A640 до U+A69F"

для клюшек, так, например Если OEMToAnsi(Буква) = Буква Тогда   Сообщить("Не русский символ"); КонецЕсли;

есть строка, нужно найти позицию первого не русского символа.... Русские символы - только буквы русского алфавита

Не совсем так. У основных символов коды будут совпадать. Кириллица в юникоде начинается с 0x400 и заканчивается 0x527, и что туда входит - достаточно легко посмотреть, использовав стандартное виндовое приложение charmap.exe с каким-нибудь распространенным шрифтом типа Arial.

+ уточнение: по 0x52F. Еще есть несколько небольших диапазонов ближе к концу таблицы, но основной набор от 400 до 52F.

ха.... Вот только N * 1000 вызовов VBScript.RegExp, причем N даже не двузначное число (((((

вот эт да, 1с - сила)

и ?

прежде чем "хакать" ознакомьтесь с документацией особенно по использованию звездочки. ваш регэксп работает мягко говоря неоптимально. вот код для снеговика:

СтрокаПоиска = "Аккумулятор СТ50"; Нужно увидеть число 12, как? )))

+ СтрокаПоиска = "Гвоздь 150 мм"; а тут результат - 7

Индексы символов с 0 кагбе нумеруются, у вас неправильные ожидания от платформы. код из у меня выдает 11 и 6, ЧЯДНТ?

+ Опечатался, вот тут правильней

Кто-то невнимательно читает - автору нужно найти позицию первого "нерусского" символа

даже не смешно уже. ничего не выводит, а что должен выводить по вашему? если уж так нужно, отловите исключение в "Если ПоискСлов.count Тогда"

Тогда все еще проще Позиция = 0;

+ В условии вместо И поставить ИЛИ.

бяка куча лишнего в коде .

"Нет предела совершенству"

хмык.. а "слабо" посмотреть в ??? :) кстати, почему 1040 и/или 1103 ? вот эта простая штука возвращает все нужные коды и символы Процедура Сформировать

в 8 используется utf-8 другая кодровка

*кодировка

ммм.. понятно, запомню :)

По-моему, там используется обычный типовой для Windows UTF-16 Little Endian. UTF-8 чаще используется там где требуется экономия объема данных, а в приложениях обычно используют то что проще, т.е. UTF-16.

А пробел - это какой символ?

Обычный, самый простой - U+0020. ASCII символы в юникоде совпадают по номерам со старой ASCII таблицей.