Сравнение двух Objects

[kibernetics]

Приходилось ли кому-нибудь сравнивать два однотипных объекта?
Нужно сравнить на предмет расхождения два объекта с кучей свойств.
Может кто-то видел какой-нибудь примерчик?

[alibek]

If obj1 Is obj2

[SLIM]

какой-то некорректный вопрос по-моему.
Что есть объект? Область в памяти? Но переменная не будет же хранить всю область, скорее всего это указатель, а указатель всего лишь число.
У объекта существуют переменные класса. Но тут по моему ничего кроме if..then не придумать

[kibernetics]

есть два объекта, к примеру
Set objRS1 = CreateObjects("ADODB.Recordset")
Set objRS2 = CreateObjects("ADODB.Recordset")

нужно сравнить все свойства, методы, функции, и получить различия.
Короче перебрать каждый айтем объекта.
Получается вопрос, как получить все айтемы чтоли?
Дугого варианта нет?

Суть в чём.
Есть два документа из WORD.Application, у одного при сохранении выскакивает конфирмейшн-окно, а у другого - нет.
Стопроцентов, за это отвечает какое-то свойство документа.
Но вот какое, найти сложно, ибо очень много свойств всяких.
Вот и хочу программно сравнить два объекта.

[alibek]

Сериализуй в строку и сравнивай строки.

[kibernetics]

Сериализуй в строку и сравнивай строки.

"сериализуй", это ты имеешь ввиду перебирать каждое свойство объекта в стринг?

[Vi]

Сериализуй в строку и сравнивай строки.

Свойство Dirty или ее аналог обычно не сериализуется, но влияет на "конфирмейшн-окно" при сохранении.

[Vi]

Приходилось ли кому-нибудь сравнивать два однотипных объекта? Нужно сравнить на предмет расхождения два объекта с кучей свойств.

Обычно приходится сравнивать два объекта на предмет "один и тот же" с помощью Идентичности (identity), сравнивая указатели на объект obj1 Is obj2. Сравнение двух изначально разных, но подобных, объектов на предмет "такой же" реализуется с помощью предоставляемого объектами метода IsEqual (или подобного) или же вручную каждым клиентом самостоятельно, поскольку критерий "такой же" у каждого клиента разные.

Можно определить набор свойств, которые значимы для твоих объектов, и сравнить на их значениях. Можно использовать для автоматизации этого дела
Library TLI
C:\WINDOWS\System32\TLBINF32.DLL
TypeLib Information
которая позволит перебрать все свойства объекта и сравнить с аналогичными из другого.

[kibernetics]

ок, я всё получил, все методы, функции и свойства...
а как можно подставить имя свойства объекту, для получения значения?

т.е. есть допустим width, height...
как получить значения объекта зная только имя свойства?
что-то типа:
Debug.Print myObj.("Width")
Debug.Print myObj.("Height")
...

[alibek]

CallByName