Здравствуйте, товарищи!
Я не часто программирую, поэтом, нарисовав себе задачу, вроде бы и простую, столкнулся с небольшими сложностями. Надеюсь, вы сможете подсказать приличное решение. Эта задача у меня решена и она работает, но мне не нравится такое решение, хочу переделать...
Задача:
Есть АТС с некоторым количеством абонентов. Сеть связи раскидана по территории предприятия. Подключения идут через ШР (Шкаф распределительный), КР (Коробка распределительная) и КП (Кросс-панель).
Сеть связи старая. Некоторые номера подключены скрутками или клеммниками (где как) и могут идти в разные здания. Необходимо по всем листам ШР, КР, КП найти интересующий номер и построить трассы - если всюду последовательное подключение, то одну трассу, если есть где-то ветвления, то, соответственно, выделить отдельные ветки и построить трассы целиком.
Не могу пока сообразить, как эту задачу красиво решить, чтоб учитывала различные варианты ветвлений по трассе - количество ШР, КР и КП неизвестно заранее, равно как и ответвления могут быть на любом этапе.
То решение, которое я накидал, меня не устраивает своей громоздкостью...
Подскажите пожалуйста, как можно эту задачу решить более-менее универсально, а то я, в силу своего небольшого опыта с VBA, пока не смог получить удовлетворяющее меня решение.
Файл с примером прилагаю.
Я не часто программирую, поэтом, нарисовав себе задачу, вроде бы и простую, столкнулся с небольшими сложностями. Надеюсь, вы сможете подсказать приличное решение. Эта задача у меня решена и она работает, но мне не нравится такое решение, хочу переделать...
Задача:
Есть АТС с некоторым количеством абонентов. Сеть связи раскидана по территории предприятия. Подключения идут через ШР (Шкаф распределительный), КР (Коробка распределительная) и КП (Кросс-панель).
Сеть связи старая. Некоторые номера подключены скрутками или клеммниками (где как) и могут идти в разные здания. Необходимо по всем листам ШР, КР, КП найти интересующий номер и построить трассы - если всюду последовательное подключение, то одну трассу, если есть где-то ветвления, то, соответственно, выделить отдельные ветки и построить трассы целиком.
Не могу пока сообразить, как эту задачу красиво решить, чтоб учитывала различные варианты ветвлений по трассе - количество ШР, КР и КП неизвестно заранее, равно как и ответвления могут быть на любом этапе.
То решение, которое я накидал, меня не устраивает своей громоздкостью...
Подскажите пожалуйста, как можно эту задачу решить более-менее универсально, а то я, в силу своего небольшого опыта с VBA, пока не смог получить удовлетворяющее меня решение.
Файл с примером прилагаю.