|
82 | 82 | КонецЕсли; |
83 | 83 | КонецПроцедуры |
84 | 84 |
|
| 85 | +Процедура ПроверитьРавенствоСтрокБезУчетаРегистра(ПервоеЗначение, ВтороеЗначение, ДопСообщениеОшибки = "") Экспорт |
| 86 | + Если нрег(ПервоеЗначение) <> нрег(ВтороеЗначение) Тогда |
| 87 | + Если ТипЗнч(ПервоеЗначение) = Тип("Строка") и ТипЗнч(ВтороеЗначение) = Тип("Строка") Тогда |
| 88 | + ВызватьИсключение ИсключениеНеравенстваСтрок(ПервоеЗначение, ВтороеЗначение, Истина) + " |
| 89 | + |" + ДопСообщениеОшибки; |
| 90 | + КонецЕсли; |
| 91 | + |
| 92 | + СообщениеОшибки = "Сравниваемые значения ("+ПервоеЗначение+"; "+ВтороеЗначение+") не равны, а хотели, чтобы были равны." + ФорматДСО(ДопСообщениеОшибки); |
| 93 | + ВызватьИсключение(СообщениеОшибки); |
| 94 | + КонецЕсли; |
| 95 | +КонецПроцедуры |
| 96 | + |
85 | 97 | Процедура ПроверитьНеРавенство(ПервоеЗначение, ВтороеЗначение, ДопСообщениеОшибки = "") Экспорт |
86 | 98 | Если ПервоеЗначение = ВтороеЗначение Тогда |
87 | 99 | СообщениеОшибки = "Сравниваемые значения ("+ПервоеЗначение+"; "+ВтороеЗначение+") равны, а хотели, чтобы были не равны." + ФорматДСО(ДопСообщениеОшибки); |
|
196 | 208 | Возврат СтрЗаменить(СтрЗаменить(Строка, Символы.ПС, "\n"), Символы.ВК, "\r"); |
197 | 209 | КонецФункции |
198 | 210 |
|
199 | | -Функция ИсключениеНеравенстваСтрок(ПервоеЗначение, ВтороеЗначение) |
200 | | - ДиапазонОтНачала = 5; |
201 | | - ДиапазонВКонце = 5; |
202 | | - СтрокаНабора = " "; // длина = 2*ДиапазонОтНачала |
| 211 | +Функция ИсключениеНеравенстваСтрок(ПервоеЗначение, ВтороеЗначение, Знач БезУчетаРегистра = Ложь) |
| 212 | + ДиапазонОтНачала = 17; |
| 213 | + ДиапазонВКонце = 17; |
| 214 | + СтрокаНабора = СтрСоединить(Новый Массив(2*ДиапазонОтНачала), " "); |
203 | 215 |
|
204 | 216 | МинДлина = Мин(СтрДлина(ПервоеЗначение), СтрДлина(ВтороеЗначение)); |
205 | 217 | ИндексРазличия = МинДлина + 1; |
206 | 218 | Для Сч = 1 По МинДлина Цикл |
| 219 | + |
207 | 220 | Символ1 = Сред(ПервоеЗначение, Сч, 1); |
208 | 221 | Символ2 = Сред(ВтороеЗначение, Сч, 1); |
| 222 | + |
| 223 | + Если БезУчетаРегистра Тогда |
| 224 | + Символ1 = нрег(Символ1); |
| 225 | + Символ2 = нрег(Символ2); |
| 226 | + КонецЕсли; |
| 227 | + |
209 | 228 | Если Символ1 <> Символ2 Тогда |
210 | 229 | ИндексРазличия = Сч; |
211 | 230 | Прервать; |
212 | 231 | КонецЕсли; |
| 232 | + |
213 | 233 | КонецЦикла; |
214 | 234 |
|
215 | 235 | ОтступНачала = ИндексРазличия - ДиапазонОтНачала; |
|
0 commit comments