Кто-нибудь сталкивался с сабжем?

В Майкрософт Ворде?

по коду символа проверяй, по строке беги, либо иначеесли на найти(,"1"....(,"2"....

Через Найти() не быстрее будет?

(3)
Это все от строки зависит, да и после найти нужно будет сверить позиции ... Или закидывать их в СЗ потом сортировать по возрастанию и брать первый ...

(4)не понял ход мысли?

(5)
Если в данной строке, несколько цифр - они ясно дело имеют разную позицию. Так ведь ?
Дальше продолжать ?

Для сч=0 до 9 цикл
текПоз = Найти(Стр, ""+сч);
Если текПоз<>0 Тогда
   Возврат текПоз;

Все протупил - понял :)

Можно так:
//*************
Procedure Сформировать1()
   For rr=1 To StrLen(кке) Do
       sCurChar=Mid(кке,rr,1);
       sContr=Asc(sCurChar);
       If (sContr>47)And(sContr<58) Then
           Message("Символ: "+sCurChar+", позиция: "+rr);
           Break;
       EndIf;
   EndDo;
EndProcedure
//********

Можно еще так:
Var tt;
//*******************************************
Procedure Сформировать()
   For rr=1 To StrLen(кке) Do
       sCurChar=Mid(кке,rr,1);
       If tt.Belong(sCurChar)=1 Then
           Message("Символ: "+sCurChar+", позиция: "+rr);
           Break;
       EndIf;
   EndDo;
EndProcedure
//******************
tt=CreateObject("ValueList");
tt.AddValue("0");
tt.AddValue("1");
tt.AddValue("2");
tt.AddValue("3");
tt.AddValue("4");
tt.AddValue("5");
tt.AddValue("6");
tt.AddValue("7");
tt.AddValue("8");
tt.AddValue("9");

(10) лучще ИзСтрокиСРазделителями в таком случае :)

Вот функция - находит ИНН в строке с "мусором". Одно условие - ИНН должен быть записан "неразрывно".

Функция ПолучитьИНН(стрИНН)
   Результат = "";
   ПозицияВСтроке = 1;
   ДлинаСтроки  = СтрДлина(стрИННКПП);
   Ноль = КодСимвола("0",1);
   Девять = КодСимвола("9",1);
   ВолшебноеЧисло = 0;
   НачалоКода = 1;
   //
   Для ПозицияВСтроке = 1 По ДлинаСтроки Цикл
       Код = КодСимвола(стрИННКПП,ПозицияВСтроке);
       Если ((Код>=Ноль) И (Код<=Девять)) Тогда
           ВолшебноеЧисло = ВолшебноеЧисло + 1;
       Иначе
           Если ВолшебноеЧисло = 10 ИЛИ ВолшебноеЧисло = 12 Тогда
               Возврат Сред(стрИННКПП, НачалоКода, ВолшебноеЧисло);
           Иначе
               ВолшебноеЧисло = 0;
               НачалоКода = ПозицияВСтроке+1;
           КонецЕсли;
       КонецЕсли;
   КонецЦикла;
   
   Если ВолшебноеЧисло = 10 ИЛИ ВолшебноеЧисло = 12 Тогда
       Возврат Сред(стрИННКПП, НачалоКода, ВолшебноеЧисло);
   Иначе
       Возврат "";
   КонецЕсли;
   
КонецФункции

(11)Каждый дрочит как он хочет.

Для восьмой версии.

Там немного лишнего осталось после модификации кода, сейчас заметил.
  Результат = "";
  ПозицияВСтроке = 1;

Функция Бивень1(Стр)
 С = Стр;
 Белиберда = "@#$%^&*";
 Для Х = 0 По 9 Цикл С = СтрЗаменить(С, Х, Белиберда) КонецЦикла;
 Возврат Сред(Стр,Найти(С, Белиберда),1);
КонецФункции

Функция Бивень2(Стр)
С = Стр;
Для Х = 0 По 9 Цикл С = СтрЗаменить(С, Х, 0) КонецЦикла;
Возврат Сред(Стр,Найти(С, 0),1);
КонецФункции

Функция Бивень0(Стр)
С = Стр;
Для Х = 1 По 9 Цикл С = СтрЗаменить(С, Х, 0) КонецЦикла;
Возврат Сред(Стр,Найти(С, 0),1);
КонецФункции