Такая засада-гружу из файла Эксель лицевые счета сотрудников.
Вот код:

Ексель     = Новый  COMОбъект("Excel.Application") ;
   ФайлЕксель = Ексель.Workbooks.Open(ПутьКФайлу);
   НаборЗаписей1=РегистрыСведений.ЛицевыеСчетаРаботниковОрганизации.СоздатьНаборЗаписей();
   НаборЗаписей1.Отбор.Банк.установить(Банк);
       Для н = НомерСтрокиНачало По НомерСтрокиКонец Цикл
       ФИО = Ексель.Sheets(НомерЛиста).Cells(н,5).Value;
       Счет = Ексель.Sheets(НомерЛиста).Cells(н,4).Value;
       сп=Справочники.ФизическиеЛица.НайтиПоНаименованию(СокрЛП(ТРег(ФИО)));
       Если  не сп.Пустая() тогда
       НаборЗаписей=НаборЗаписей1.Добавить();
       НаборЗаписей.Организация=Организация;
   НаборЗаписей.Банк=Банк;
   НаборЗаписей.ФизЛицо= Справочники.ФизическиеЛица.НайтиПоНаименованию(СокрЛП(ТРег(ФИО)));
   НаборЗаписей.НомерЛицевогоСчета=Счет;
   сч=сч+1;
   ЭлементыФОрмы.Надпись4.Значение=сч;
Иначе
   Сообщить(ТРег(ФИО));
   Конецесли;
   КонецЦикла;
   НаборЗаписей1.Записать();
   Ексель.Application.Quit();


проблема в том, что несколько сотрудников не находятся, и наименование одинаковые, один в один,  например "Аникин Сергей Викторвич". Сообщает что не нашел его а в справочнике он есть. Пробелы все удалены, все нормально, что интересно, копирую строку из служебных сообщений пытаюсь в форме списка сделать отбор по ней отбор пустой, хотя строки одинаковые. Оставялю одну фамилию, находит все нормально, дело в имени получается, а где именно? В чем может быть дело?

В пробелах батенька

ТРег не смущает?

Сравнить строки в любом сравняльщике и понять различие.

ВикторОвич

(4) Хо-хо!

в том то и дело что все нормально- я сравнивал...беру строку из сообщения, сравниваю с наименованием справочника-одинаковые...

(6) глазами? сравни "а" и "a" - они разные

т.е.? можно подробнее?

в смысле одна "а"  написана по английски другая по русски? или в кодировке дело?

Трег нужен- в экселе все буквы заглавные

(6) Тебе же в (4) показали.
Нет такого отчества "Викторвич", или он серб?

да это я опечатался

(9) истина. ложь.

блин я понял-они часть букв набили по английски, уроды...та же буква "р" русская это английская "p". Что теперь делать то с этим? В файле екселевом менять или в 1С как можно?

(13) можноп подробнее?

(14) как понял? уверен в верности вывода?
(15) одна "а"  написана по английски другая по русски, дело не в кодировке

(14) меняй в 1с конечно же

(12) Сохрани ФИО из Экселя и из 1С в текстовые файлы.
Сравни Вордом. Но покажет в каких символах различия.

(16)-просто набрал в слове СЕргей букву р по русски не нашел, набрал по английски нашел

Не парься. В обработке, если не нашел по ФИО,
выводи ругательство и пусть сопоставляют вручную.

(14) напиши обработку по типу
Если символ = "а английская" тогда символ = "а русская"
и так для всех совпадающих букв

пример кода есть? я просто с такие обработки с символами не писал.Я так понимаю это же нужно запускть в 1С-ке самой, запускать цикл по справочнику физлица

как вариант: СтрЗаменить("a", "а"). но Галахад правее

там много не найдено, порядка 150 человек

и кстати нужно же менять не справочник физлица а регистр сведений, так?

Фамилия,имя отчетсво физлиц, так?

А вообще, откуда файлик берется? Руками, что-ли набирают?

да геморой-из досевой программы дбф-ку импортировали в эксель

да уже догаладлся-тот кто руками бил ошиблись

щас сделаю

пока вот атк:

справ=Справочники.ФизическиеЛица.Выбрать();
   пока справ.Следующий() цикл
   сп=справ.ПолучитьОбъект();
   сп.Наименование=СтрЗаменить(сп.Наименование,"A","А");
   сп.Наименование=СтрЗаменить(сп.Наименование,"a","а");
   сп.Наименование=СтрЗаменить(сп.Наименование,"E","Е");
   сп.Наименование=СтрЗаменить(сп.Наименование,"e","е");
   сп.Наименование=СтрЗаменить(сп.Наименование,"O","О");
   сп.Наименование=СтрЗаменить(сп.Наименование,"o","о");
   сп.Наименование=СтрЗаменить(сп.Наименование,"P","Р");
   сп.Наименование=СтрЗаменить(сп.Наименование,"p","р");
   сп.Наименование=СтрЗаменить(сп.Наименование,"K","К");
   сп.Наименование=СтрЗаменить(сп.Наименование,"k","к");
   сп.Наименование=СтрЗаменить(сп.Наименование,"X","Х");
   сп.Наименование=СтрЗаменить(сп.Наименование,"x","х");
   сп.Наименование=СтрЗаменить(сп.Наименование,"C","С");
   сп.Наименование=СтрЗаменить(сп.Наименование,"c","с");
   сп.Записать();
   конецЦикла;
код то просто, посмотрим как поканает

ну вот и все))12 штук всего не нашлось)))

BHKMTuy

нет)))их просто нет))новые сотрудники)

(34) вот тот кто накосячил, пусть бы и правил.

(31) Не нужно было исправлять самому. Пусть ответственные напрягаются. А то в дальнейшем так же ерунду будут вносить в программу.