Torna al Thread
Private Function ImportoXML(PercorsoXML As String, ID As String) As String
Dim xdoc As XElement = XElement.Load(PercorsoXML, LoadOptions.PreserveWhitespace)
Dim ns As String = xdoc.Name.[Namespace].NamespaceName
Dim elements = xdoc.Elements(XName.[Get]("PmtInf", ns)).Elements(XName.[Get]("DrctDbtTxInf", ns))
Dim ElencoValori = From lv2 In elementsNew With { _
Key .PmtId = lv2.Element(XName.[Get]("DrctDbtTx", ns)).Element(XName.[Get]("MndtRltdInf", ns)).Element(XName.[Get]("MndtId", ns)).Value, _
Key .InstdAmt = lv2.Element(XName.[Get]("InstdAmt", ns)).Value _
}
Return ElencoValori.Where(Function(c) c.PmtId.EndsWith(ID)).FirstOrDefault().InstdAmt.ToString()
End Function