1

我正在根据这个答案在 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，它开始转义 > 和 < 作为 &gt;and &lt;。

输出：

<?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" />
      ...

仍对其他建议持开放态度

4

1 回答 1

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
于 2018-08-16T11:29:56.663 回答