Есть 4 баз Бух. Везде естественно контрагенты заведены как попало - нет стандарта. ООО"РОГА" ООО "РОГА" ООО РОГА "РОГА" ООО.
По сути - одно и тоже, но в 2х - есть ИНН, в 2х - нет. В 1 есть КПП - в 3х Нет.
Поставили задачу - привести контрагентов в порядок, убрать дубли, сделать няшку из говнишка.
Сижу ломаю голову. Есть велосипед или теория как это делать? Или изобретать?
Сам делаю так - слил всех контрагентов из всех баз в 1 единую.
Объединяю контрагентов по реквизитам опорным, удаляю дубли-бубли.
А вот следующий щаг по выгрузке обратно и замене элементов представляю смутно.
Вообщем советы в студию.
(1) Увы - не на том стуле сижу, чтобы обувать.
Замена и поиск - это финальный этап мне кажется, после причесывания.
Или сначала лучше найти и заменить? а потом причесать остатки?
объектРегЕксп = Новый COMОбъект("VBScript.RegExp");
Функция разобратьТекстРегЕксп(данныеТекст,Шаблон,многоСтрочн,глобальн,игнорироватьРегистр)
Результат = Новый Массив;
ОбъектРегЕксп.MultiLine = МногоСтрочн;
ОбъектРегЕксп.Global = Глобальн;
ОбъектРегЕксп.IgnoreCase = ИгнорироватьРегистр;
ОбъектРегЕксп.Pattern = Шаблон;
результатПоиска = ОбъектРегЕксп.Execute(данныеТекст);
Для сч = 0 по результатПоиска.count-1 Цикл
Для сч1=0 по результатПоиска.item(сч).SubMatches.Count-1 Цикл
Результат.Добавить(результатПоиска.item(сч).SubMatches.item(сч1));
КонецЦикла;
КонецЦикла;
Возврат Результат;
КонецФункции
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший