-1

我有一个使用 XML 文字来配置用户界面导航栏的 vb.net 项目。代码看起来像这样，并且已经工作了很多年。

Private ReadOnly _actionTreeXml As XElement =
<nodes>
    <node key="any" name="Top">
        <node key="log" name="***LOGIN***" type="everybody"></node>
        <node key="op" name="Home" ctrl="uiHomePage" type="mfg"></node>
        <node key="barcode" name="Barcode Entry" ctrl="EditMfgEntry" type="mfg"></node>
        <node key="wip" name="Work in Progress" ctrl="QueryWIP" type="mfg"></node>
        <node key="readme" name="Version Info" type="everybody"></node>
    </node>
</nodes>

我最近需要有两个略有不同的项目构建（不想为许多用户支付库代码）。所以我有一个构建，其中我#if 了与条形码相关的所有 ui 工具。这在任何地方都很好用，除了像这样的 XML 文字

#if USE_BAR_CODE=1
<node key="barcode" name="Barcode Entry"    ctrl="EditMfgEntry" type="mfg">  </node>
#end if

如果我将 USE_BAR_CODE 设置为 0，我仍然会在 #if 块内获得 xml 文字，但在我的代码中我 #if 'ed 常规 VB 源代码的任何地方都没有编译代码。

这使我相信编译过程在 #if 语句之前处理 xml 文字。我错过了什么吗？

4

2 回答 2

1

不幸的是，你不能在文字中使用这样的指令。在幕后，行为与If, Then and Else陈述相同。您不能按照您的方式将它们直接放在一起，您必须包装代码块以告诉编译器要编译什么，而不是像标准If, Then and Else语句那样运行时编译。条件编译块中的语句必须是完整的逻辑语句。例如，您不能有条件地只编译文字、函数等的属性......

所以下面是一个快速的解决方案，要么包含节点，要么不包含它。这也经过测试并且工作正常。

#If USE_BAR_CODE = 1 Then
    Private ReadOnly _actionTreeXml As XElement = <nodes>
                                                      <node key="any" name="Top">
                                                          <node key="log" name="***LOGIN***" type="everybody"></node>
                                                          <node key="op" name="Home" ctrl="uiHomePage" type="mfg"></node>
                                                          <node key="barcode" name="Barcode Entry" ctrl="EditMfgEntry" type="mfg"></node>
                                                          <node key="wip" name="Work in Progress" ctrl="QueryWIP" type="mfg"></node>
                                                          <node key="readme" name="Version Info" type="everybody"></node>
                                                      </node>
                                                  </nodes>
#Else
    Private ReadOnly _actionTreeXml As XElement = <nodes>
                                                      <node key="any" name="Top">
                                                          <node key="log" name="***LOGIN***" type="everybody"></node>
                                                          <node key="op" name="Home" ctrl="uiHomePage" type="mfg"></node>                                                          
                                                          <node key="wip" name="Work in Progress" ctrl="QueryWIP" type="mfg"></node>
                                                          <node key="readme" name="Version Info" type="everybody"></node>
                                                      </node>
                                                  </nodes>


#End If
于 2018-11-22T18:58:30.647 回答
0

可能根本不是解决方案，但正如谚语所说“坏灌木比开阔地更好”。

主要思想是使用处理指令节点。如果元素上面有处理指令，则跳过它，否则包含它。这样您就可以控制该元素的“包容性”。

1）首先，创建扩展方法：

Module XmlExtentions
    <System.Runtime.CompilerServices.Extension>
    Function Filter(root_node As IEnumerable(Of XElement)) As IEnumerable(Of XElement)
        Return root_node.First().Elements().Where(
            Function(e)
                If e.PreviousNode Is Nothing Then Return True
                Return e.PreviousNode.NodeType <> Xml.XmlNodeType.ProcessingInstruction
            End Function)
    End Function
End Module

2.查询我们的XML：

Dim _actionTreeXml As XElement =
    <nodes>
        <node key="any" name="Top">
            <node key="log" name="***LOGIN***" type="everybody"></node>
            <node key="op" name="Home" ctrl="uiHomePage" type="mfg"></node>
            <?Skip-Element?>
            <node key="barcode" name="Barcode Entry" ctrl="EditMfgEntry" type="mfg"></node>
            <node key="wip" name="Work in Progress" ctrl="QueryWIP" type="mfg"></node>
            <node key="readme" name="Version Info" type="everybody"></node>
        </node>
    </nodes>

Dim elements = _actionTreeXml.<node>.Filter()
'// Do something...
elements.ToList().ForEach(Sub(e) Console.WriteLine(e))
于 2018-11-22T19:33:14.860 回答