Всем привет
)
необходимо в документах изменить значение ссылок в RichText полях.
т.е. необходимо сделать экспорт документа, исправить его и затем импорт назад.
с экспортом и импортом все понятно, а вот как внести изменения?
попробовала использовать DOM, чтобы удобно былло перемещаться по тегам
получилось следующее:
т.е. получается что перемещаясь по документу я нахожу те ссылки и атрибуты, кот. необходимо исправить,
теперь вопрос как их исправить?
есть SetAttribute("href", "new_link.html"), но как запомнить эти изменения?
)необходимо в документах изменить значение ссылок в RichText полях.
т.е. необходимо сделать экспорт документа, исправить его и затем импорт назад.
с экспортом и импортом все понятно, а вот как внести изменения?
попробовала использовать DOM, чтобы удобно былло перемещаться по тегам
получилось следующее:
Код:
Set docNode = domParser.Document
Set rootElement = domParser.Document.DocumentElement
Set docList = rootElement.GetElementsByTagName ("item")
If docList.NumberOfEntries = 0 Then Exit Sub
For iDoc = 1 To docList.NumberOfEntries 'перебор всех item
Set eNode = docList.GetItem(iDoc)
If eNode.Attributes.NumberOfEntries > 0 Then
For iAttr = 1 To eNode.Attributes.NumberOfEntries ' поиск item c атрибутом name = "RT_field"
If eNode.GetAttribute("name") = "RT_field" Then
Set itemList = eNode.GetElementsByTagName ("urllink") ' поиск линков в RichText поле
If itemList.NumberOfEntries > 0 Then
For iDoc2 = 1 To itemList.NumberOfEntries
Set tNode = itemList.GetItem(iDoc2)
if tNode.Attributes.NumberOfEntries > 0 Then
str_1=tNode.GetAttribute("href") ' !!!!! в найденных линках необходимо изменить значение href
Call tNode.SetAttribute("href", "new_link.html")
End If
Next
End If
End If
Next
End If
Nextт.е. получается что перемещаясь по документу я нахожу те ссылки и атрибуты, кот. необходимо исправить,
теперь вопрос как их исправить?
есть SetAttribute("href", "new_link.html"), но как запомнить эти изменения?