0

尝试在 vb 中编辑 xml 文件后出现 2 个问题，我试图找到答案，但那些没有按预期工作，我想要实现的是对于那些具有负数的 transport_orders，替换负值其正数。请记住，这些值是一个带有 2 位小数的数字，并且它的正数应该保持相同的格式。

源 xml 如下所示：

<transport_orders>
<transport_order>
<id>NOCCO/12-006798_1</id>
<order_number>NOCCO/12-006798_1</order_number>
<order_date>2012-03-30</order_date>
<contactId>C04396</contactId>
<productId>0103-01101025</productId>
<sum>3135.51</sum>
<currency_code></currency_code>
<reference>NOCCO/12-006798</reference>
<amounts>
<amount>
<unit_code>kg</unit_code>
<value>-324.00</value>
</amount>
</amounts>
<pickup_task>
<addressid>BUCU</addressid>
<task_window>
<from_instant>2012-04-20T18:26:43</from_instant>
<till_instant>2012-04-20T18:26:43</till_instant>
</task_window>
</pickup_task>
<delivery_task>
<addressid>C04396_1</addressid>
<task_window>
<from_instant>2012-04-23T00:00:00</from_instant>
<till_instant>2012-04-24T00:00:00</till_instant>
</task_window>
</delivery_task>
</transport_order>
<transport_order>
...

  1. 我尝试的是下面的代码，但我认为我遗漏了一些东西，因为该值是一个带有 2 位小数的数字，而我得到的唯一结果是 324 我得到 32400

    element.Element("amounts").Element("amount").Element("value").decimal("n2") = -element.Element("amounts").Element("amount").Element("价值”).价值

  2. 我怎样才能从 2012-04-20T18:26:43 只替换日期或只替换开胃时间，例如我想用送货任务时间窗口的日期编辑提货任务的时间窗口-从即时日期-直到瞬间，但保持时间（小时，分钟，秒）不变。

谢谢。

4

1 回答 1

1 
    Dim doc = <transport_orders>
                  <transport_order>
                      (...)
                  </transport_order>
              </transport_orders>

    Dim culture = New CultureInfo("en")

    Dim negativeAmmounts = (From item In doc.Descendants("value")
                           Let value = Double.Parse(item.Value, culture)
                           Where value < 0
                           Select New With {
                               .Item = item,
                               .Value = value
                           }).ToList()

    negativeAmmounts.ForEach(Sub(e) e.Item.Value = -1 * e.Value)

之后，您可以检查是否所有值都被替换，例如将整个文档打印到字符串中：

    Dim outerXml = doc.ToString()
于 2012-04-22T17:22:54.900 回答