新しいタグを挿入する前にXMLリテラルにアクションのブロックを挿入する方法

Question

XMLリテラルをVB.NETブロックに挿入する方法を理解してください。 iCol = iCol + 1 iTMP = iTmp + ICOL （ループで例えば私はinsertinf新規タグの前にいくつかの変数を増やす必要がある）

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> 

これは、ドキュメントからより複雑なロジックを削除する利点があります。