使用LINQ查詢XDocument以回傳串列

我有一個 xml 字串（為了便于測驗，縮短到只有 2 行）：

<?xml version="1.0" encoding="utf-8"?>
<DataTable Uid="DT_RetRes">
  <Rows>
    <Row>
      <Cells>
        <Cell>
          <ColumnUid>AVAIL</ColumnUid>
          <Value>N</Value>
        </Cell>
        <Cell>
          <ColumnUid>ItemCode</ColumnUid>
          <Value>PRODUCTID123#</Value>
        </Cell>
        <Cell>
          <ColumnUid>Dscription</ColumnUid>
          <Value>Basic Product 1 with hash</Value>
        </Cell>
        <Cell>
          <ColumnUid>U_JOW_CMNT</ColumnUid>
          <Value></Value>
        </Cell>
      </Cells>
    </Row>
    <Row>
      <Cells>
        <Cell>
          <ColumnUid>AVAIL</ColumnUid>
          <Value>Y</Value>
        </Cell>
        <Cell>
          <ColumnUid>ItemCode</ColumnUid>
          <Value>PRODUCTID234</Value>
        </Cell>
        <Cell>
          <ColumnUid>Dscription</ColumnUid>
          <Value>Basic Product 2 no hash</Value>
        </Cell>
        <Cell>
          <ColumnUid>U_JOW_CMNT</ColumnUid>
          <Value></Value>
        </Cell>
      </Cells>
    </Row>
</Rows>
</DataTable>

我正在嘗試查詢 Xdocument 以回傳所有ItemCode值的串列，其中 AVAIl的值為Y

我的代碼目前如下：

Dim xdoc As XDocument = XDocument.Parse(xmlString)

Dim result = xdoc.Elements("Rows").
Where(Function(x) x.Elements("ColumnUid").Value = "AVAIL" And 
x.Elements("Value").Value = "Y").
Select(Function(x) x.<ItemCode>.Value).ToList

        MessageBox.Show(result.Count)

然而，這似乎永遠不會回傳任何東西，我已經嘗試了查詢的 Where 和 Select 部分的許多變體，但沒有成功。我是 LINQ 的新手，可以猜測查詢構造不正確，可能沒有以正確的方式訪問正確的元素。

任何幫助將不勝感激。

uj5u.com熱心網友回復：

我想出了這個：

Dim isAvail = xDoc.<DataTable>.<Rows>.<Row>.<Cells>.
              Where(Function(x) x.<Cell>.<ColumnUid>.Value = "AVAIL" AndAlso
                                x.<Cell>.<Value>.Value = "Y")


Dim availItemCodes = isAvail.<Cell>.
                     Where(Function(y) y.<ColumnUid>.Value = "ItemCode").<Value>.
                     Select(Function(v) v.Value)

isAvail是<Cells>其中包含所需內容的串列（嗯，IEnumerable） <Cell>。

您可以看到將其分解為更小的陳述句如何使其更易于使用。

uj5u.com熱心網友回復：

一種多合一的方法，當然是更復雜的查詢，首先是 XML

    Dim someXML As XElement
    'to load from file
    ' someXML=XElement.Load("path here")
    'OR parse string
    ' someXML = XElement.Parse("string here")
    'OR for testing use a literal

    someXML = <DataTable Uid="DT_RetRes">
                  <Rows>
                      <Row>
                          <Cells>
                              <Cell>
                                  <ColumnUid>AVAIL</ColumnUid>
                                  <Value>N</Value>
                              </Cell>
                              <Cell>
                                  <ColumnUid>ItemCode</ColumnUid>
                                  <Value>PRODUCTID123#</Value>
                              </Cell>
                              <Cell>
                                  <ColumnUid>Dscription</ColumnUid>
                                  <Value>Basic Product 1 with hash</Value>
                              </Cell>
                              <Cell>
                                  <ColumnUid>U_JOW_CMNT</ColumnUid>
                                  <Value></Value>
                              </Cell>
                          </Cells>
                      </Row>
                      <Row>
                          <Cells>
                              <Cell>
                                  <ColumnUid>AVAIL</ColumnUid>
                                  <Value>Y</Value>
                              </Cell>
                              <Cell>
                                  <ColumnUid>ItemCode</ColumnUid>
                                  <Value>PRODUCTID234</Value>
                              </Cell>
                              <Cell>
                                  <ColumnUid>Dscription</ColumnUid>
                                  <Value>Basic Product 2 no hash</Value>
                              </Cell>
                              <Cell>
                                  <ColumnUid>U_JOW_CMNT</ColumnUid>
                                  <Value></Value>
                              </Cell>
                          </Cells>
                      </Row>
                  </Rows>
              </DataTable>

然后代碼

    Dim ie As IEnumerable(Of String)
    ie = From el In someXML.<Rows>.<Row>.<Cells>.<Cell>
            Where el.<ColumnUid>.Value = "AVAIL" AndAlso el.<Value>.Value = "Y"
             From item In el.Parent.<Cell>
                Where item.<ColumnUid>.Value = "ItemCode"
                Select item.<Value>.Value

標籤：

上一篇：VB等效于C#空合并運算子-特定情況

下一篇：VB.Net資料集行數總是回傳0