Получение информации из гиперссылки на объект

Contents

Постановка задачи

Получить код системы и ИД объекта из гиперссылки.

Программный код

// Ввести гиперссылку.

String = InputDialog("*Гиперссылка";; "String:200"; "Ввод параметров")

// Получить COM-объект для работы с регулярными выражениями.

RegExp = CreateObject("VBScript.RegExp")

// Указать шаблон: <Протокол>:<Сайт>/doc.asp?sys=<Код системы>&id=<ИД>

// http://directum.mycompany.ru/doc.asp?sys=DIRECTUM&id=1099785

RegExp.Pattern = "^\w+://[^/ ]+/doc\.asp\?sys=([^& ]+)&id=(\d+)$"

RegExp.IgnoreCase = TRUE

RegExp.Global = TRUE

// Найти строку по шаблону.

Matches = RegExp.Execute(String)

Message = "Это не гиперссылка на документ."

if Matches.Count > 0

// Обработать подстроки.

SubMatches = Matches.Item(0).SubMatches

SysCode = Submatches.Item(0)

ID = Submatches.Item(1)

Message = Format("Код системы: %s%sИД объекта: %s"; ArrayOf(SysCode; CR; ID))

endif

ShowMessage(Message)

Если в указанном шаблоне опустить символы начала и конца строки, поиск гиперссылок будет выполняться во всему тексту документа.