xml - 如何在插入新标签之前在 XML 文字中插入动作块

Question

请帮助我了解如何在 VB.NET 块中插入 XML Literals 中的一些操作，例如：iCol = iCol + 1 iTMP = iTmp + iCol（例如在循环中，我需要在 insertinf New Tag 之前增加一些变量）

Dim objDoc As XDocument = <?xml version="1.0" encoding="utf-8" standalone="no"?>
. . .
<%= From i In Enumerable.Range(3, LastRow)
Where UCase(Globals.ThisAddIn.Application.ActiveWorkbook.ActiveSheet.Range("Y" + CStr(i)).Value) = "Y" Select
iCol = iCol + 1
iTMP = iTmp + iCol
<TagWithData>Globals.ThisAddIn.Application.ActiveWorkbook.ActiveSheet.Range("Y" + CStr(iTMP)).Value</TagWithData>
. . .

Answer 1

XmlLiterals 旨在将数据绑定到 XDocument。如果您想做一些更复杂的事情，请尝试声明一个匿名函数并将其绑定。

    Dim i As Integer = 0

    Dim myFunc = Function()
                     i += 1
                     Return i
                 End Function

    Dim doc = <xml>
                  <%= myFunc() %>
              </xml>

这有利于从文档中删除更复杂的逻辑。