Question

我正在根据this answer在XSD内创建一个枚举。这是我的目标，仅供参考：

<xs:simpleType name="color" final="restriction" >
  <xs:restriction base="xs:string">
    <xs:enumeration value="green" />
    <xs:enumeration value="red" />
    <xs:enumeration value="blue" />
  </xs:restriction>
</xs:simpleType>
<xs:element name="SomeElement">
  <xs:complexType>
    <xs:sequence>
      <xs:element name="Color" type="color" />
    </xs:sequence>
  </xs:complexType>
</xs:element>

枚举来自IEnumerable(Of String)，我认为可以直接生成一系列这些元素<xs:enumeration value="value1" />

每当我运行代码时，它都会正确创建xml，直至使用LINQ，并开始以>和<的形式转义>和<。

输出：

<?xml version="1.0" encoding="utf-8"?>
<xs:schema xmlns="http://www.w3.org/2001/XMLSchema" xmlns:xs="http://www.w3.org/2001/XMLSchema" id="Instruments">
  <xs:simpleType name="InstrumentName" final="restriction">
    <xs:restriction base="xs:string">&lt;xs:enumeration value="AccuvimDL"/&gt;&lt;xs:enumeration value="AccuvimDLSignal"/&gt;&lt;xs:enumeration value="AlignmentFormBase" ...

我的代码：

Private Sub saveXsd(names As IEnumerable(Of String), typeName As String, typeType As String)
    Dim xsd = <?xml version="1.0" encoding="utf-8"?>
              <xs:schema id="Instruments" xmlns="http://www.w3.org/2001/XMLSchema" xmlns:xs="http://www.w3.org/2001/XMLSchema">
                  <xs:simpleType name=<%= typeType %> final="restriction">
                      <xs:restriction base="xs:string">
                          <%= From name In names
                              Select $"<xs:enumeration value=""{name}""/>" %>
                      </xs:restriction>
                  </xs:simpleType>
                  <xs:element name="SomeElement">
                      <xs:complexType>
                          <xs:sequence>
                              <xs:element name=<%= typeName %> type=<%= typeType %>/>
                          </xs:sequence>
                      </xs:complexType>
                  </xs:element>
              </xs:schema>
    xsd.Save("xsd.xsd")
End Function

我也在LINQ部分尝试了这种语法

<%= From name In names Select <xs:enumeration value=<%= name %>/> %>

但是<xs:命名空间无法识别，因为它不再是xml文字的一部分并且无法编译。

我想知道是否应该这样做。我认为VB.Net的xml文字功能很酷，希望能够使用它。

编辑：

提出这个问题一定使我有些不安。我找到了解决方案，尽管并不理想。

如果添加命名空间，第二个LINQ方法将起作用

<%= From name In names 
    Select <xs:enumeration xmlns:xs="http://www.w3.org/2001/XMLSchema" value=<%= name %>/> %>

但是，最后我得到每个元素中的名称空间。我想XSD没问题...

<?xml version="1.0" encoding="utf-8"?>
<xs:schema xmlns="http://www.w3.org/2001/XMLSchema" xmlns:xs="http://www.w3.org/2001/XMLSchema" id="Instruments">
  <xs:simpleType name="InstrumentName" final="restriction">
    <xs:restriction base="xs:string">
      <xs:enumeration xmlns:xs="http://www.w3.org/2001/XMLSchema" value="AccuvimDL" />
      <xs:enumeration xmlns:xs="http://www.w3.org/2001/XMLSchema" value="AccuvimDLSignal" />
      <xs:enumeration xmlns:xs="http://www.w3.org/2001/XMLSchema" value="AlignmentFormBase" />
      ...

仍然欢迎其他建议

Answer 1

对不起，我对VB.Net XML文字不熟悉，所以我对此很感兴趣。

看起来您需要导入

Imports <xmlns:xs="http://www.w3.org/2001/XMLSchema">

Module Module1

    Sub Main()
        Dim xsd = <?xml version="1.0" encoding="utf-8"?>
                  <xs:schema id="Instruments" xmlns="http://www.w3.org/2001/XMLSchema" xmlns:xs="http://www.w3.org/2001/XMLSchema">
                      <xs:simpleType name=<%= "test" %> final="restriction">
                          <xs:restriction base="xs:string">
                              <%= From name In names
                                  Select <xs:enumeration value=" {name}"/> %>
                          </xs:restriction>
                      </xs:simpleType>
                  </xs:schema>
        xsd.Save("xsd.xsd")
    End Sub

End Module

生成XSD时XML文字内部的LINQ问题

1 个答案: