Страница: 1 |
Страница: 1 |
Вопрос: Помогите с редактированием fb2
Добавлено: 01.10.10 13:14
Автор вопроса:
inxs
Итак, для своих нужд делаю простенький пакетный редактор fb2 файлов. Собственно имею вот такой код:
Public Sub AuthorEdit(ByVal m_FN As String, ByVal m_MN As String, ByVal m_LN As String)
02. For i As Short = 0 To CShort(UBound(m_PathFales) - 1)
03. fb2Book.Load(m_PathFales(i))
04. nsmgr.AddNamespace("fb", "http://www.gribuser.ru/xml/fictionbook/2.0")
05. nsmgr.AddNamespace("xlink", "http://www.w3.org/1999/xlink")
06. fb2BookNode = fb2Book.SelectSingleNode("fb:FictionBook/fb:description/fb:title-info/fb:author", nsmgr)
07.
08. 'fb2Book.CreateTextNode()
09. 'Stop
10.
11.
12. If fb2BookNode.Item("middle-name") Is Nothing Then
13. elem = fb2Book.CreateElement("middle-name")
14. 'Stop
15. elem.InnerText = m_MN
16. fb2BookNode.InsertAfter(elem, fb2BookNode.Item("first-name"))
17. Else : fb2BookNode.Item("middle-name").InnerText = m_MN 'fb2BookNode.RemoveChild(fb2BookNode.Item("middle-name"))
18. End If
19.
20. m_SaveFile = Split(m_PathFales(i), "\")
21. m_PathSave = m_Path & "\" & m_SaveFile(UBound(m_SaveFile))
22. 'Stop
23. fb2Book.Save(m_PathSave)
24.
25. frmEdit.Refresh()
26. frmEdit.ToolStripStatusLabel1.Text = m_PathSave
27.
28. 'Stop
29. Next
30. frmEdit.ToolStripStatusLabel1.Text = "OK"
31. End Sub
Вроде все работает, но при добавлении узла "middle-name" добавляется:
<author>
2. <first-name>Андрей</first-name>
3. <middle-name xmlns="">Львович</middle-name>
4. <last-name>Ливадный</last-name>
5.</author>
Но надо <middle-name>Львович</middle-name>
В чем ошибка?
Ответы
Всего ответов: 2
Номер ответа: 1
Автор ответа: inxs
Вопросов: 2
Ответов: 3
Профиль | | #1
Добавлено: 02.10.10 21:13
Если долго мучатся, то...
Вот, как то так...
Номер ответа: 2
Автор ответа: AgentFire
ICQ: 192496851
Вопросов: 75
Ответов: 3178
Профиль | | #2
Добавлено: 03.10.10 09:20
а я бы свой контрол написал. всегда меня настораживало то, что для метода Save нужно обязательно имя файла -_-