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

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

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

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

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

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

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

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

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

Для Сч = 1 По СтрДлина (ВходСтр) Цикл

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

(7) ой в (0) хотел ответить)

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

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

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

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

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

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

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

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

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

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

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

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

(9) пропустил Й и Ё

(22) другие коды

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

https://ru.wikipedia.org/wiki/Юникод

(0)
для клюшек, так, например

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

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

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

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

ха....
    Reg = СоздатьОбъект("VBScript.RegExp");
    ...
    Reg.Pattern = "(^[А-Я|а-я]*)*";
    ЧтоТоИщем = Reg.Execute(СтрокаПоиска);
    Нашли = СтрДлина(ЧтоТоИщем.Item(1).Value);

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

Книга знаний: Использование регулярных выражений (RegExp) в 1С

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

(27) и ?

Для ы=1 По СтрДлина(СтрокаДляАнализа) Цикл
Сим = Сред(СтрокаДляАнализа, ы,1);
Если КодСимв(Сим) <= 191 Тогда
Сообщить("Найдено! "+Сим+ " поз.= "+ы);
Прервать;
КонецЕсли;
КонецЦикла;

(30) прежде чем "хакать" ознакомьтесь с документацией особенно по использованию звездочки. ваш регэксп работает мягко говоря неоптимально. вот код для снеговика:
Перем RegExp;
Процедура КнопкаВыполнитьНажатие(Кнопка)
    Паттерн ="[^а-я]";
    RegExp.Pattern = Паттерн;
    ПоискСлов= RegExp.Execute(СтрокаПоиска);
    Если ПоискСлов.count() Тогда
        Сообщить(ПоискСлов.Item(0).FirstIndex);
    КонецЕсли;
КонецПроцедуры
RegExp = Новый COMОбъект("VBScript.RegExp");
RegExp.IgnoreCase = Истина; //Игнорировать регистр
RegExp.Global = Ложь; //Поиск всех вхождений шаблона
RegExp.MultiLine = Ложь; //Многострочный режим

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

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

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

(38) )))
СтрокаПоиска = "Аккумулятор";

(0)
НовыйТекст = ""
Для Сч = 1 По СтрДлина(Текст) Цикл
    Символ = Сред(Текст, Сч);
    Если КодСимвола(Символ) <= 1040 И КодСимвола(Символ) >= 1103 Тогда
        НовыйТекст = НовыйТекст + Символ;
    Иначе
        Прервать;
    КонецЕсли;
КонецЦикла;
Предупреждение(НовыйТекст);

+(40) Опечатался, вот тут правильней
НовыйТекст = ""
Для Сч = 1 По СтрДлина(Текст) Цикл
    Символ = Сред(Текст, Сч);
    Если КодСимвола(Символ) >= 1040 И КодСимвола(Символ) <= 1103 Тогда
        НовыйТекст = НовыйТекст + Символ;
    Иначе
        Прервать;
    КонецЕсли;
КонецЦикла;
Предупреждение(НовыйТекст);

+(41) :) Опять поторопился
НовыйТекст = ""
Для Сч = 1 По СтрДлина(Текст) Цикл
    Символ = Сред(Текст, Сч, 1);
    Если КодСимвола(Символ) >= 1040 И КодСимвола(Символ) <= 1103 Тогда
        НовыйТекст = НовыйТекст + Символ;
    Иначе
        Прервать;
    КонецЕсли;
КонецЦикла;
Предупреждение(НовыйТекст);

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

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

(43) Тогда все еще проще
Позиция = 0;
Для Сч = 1 По СтрДлина(Текст) Цикл
    Символ = Сред(Текст, Сч, 1);
    Если КодСимвола(Символ) < 1040 И КодСимвола(Символ) > 1103 Тогда
        Позиция = Сч;
        Прервать;
    КонецЕсли;
КонецЦикла;
Предупреждение(Позиция);

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

бяка
куча лишнего в коде
.
Для Сч = 1 По СтрДлина(Текст) Цикл
    Символ = Сред(Текст, Сч, 1);
    Если КодСимвола(Символ) < 1040 И КодСимвола(Символ) > 1103 Тогда
        Предупреждение(сч);
        Прервать;
    КонецЕсли;
КонецЦикла;

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

(47) хмык.. а "слабо" посмотреть в (34) ??? :)
кстати, почему 1040 и/или 1103 ?

вот эта простая штука возвращает все нужные коды и символы
Процедура Сформировать()
    Для ы=32 По 255 Цикл
        Сообщить(""+ы+"  "+Симв(ы));
    КонецЦикла;
КонецПроцедуры

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

*кодировка

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

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

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

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