使用 VB.net 讀取 .xml 銀行對賬單中特定節點的值
[英]Reading a value of a specific node in .xml bank statement using VB.net
問題描述
我正在嘗試從 xml 銀行對賬單中提取數據，稍后將其轉換為 csv。
我想獲得債權人銀行號碼，這里是：
<Document xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="urn:iso:std:iso:20022:tech:xsd:camt.053.001.02">
<BkToCstmrStmt>
<Stmt>
<Ntry>
<NtryDtls>
<TxDtls>
<RltdPties>
<CdtrAcct>
<Id>
<IBAN>DE1234567891012345</IBAN>
我正在使用此代碼：
Imports System.Xml
Imports System.Xml.Linq
Imports System.IO
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim doc As XDocument = XDocument.Load("bank_statement.xml")
Dim elements As IEnumerable(Of XElement)
Dim currentElement As XElement
elements = doc.Descendants()
For Each element As XElement In elements
If element.Name.LocalName.ToString() = "CdtrAcct" Then
currentElement = element.Descendants()
If currentElement.Name.LocalName.ToString() = "Id" Then
currentElement = currentElement.Descendants()
If currentElement.Name.LocalName.ToString() = "IBAN" Then
My.Computer.FileSystem.WriteAllText("bank_statement_csv.csv", currentElement.Value.ToString, True)
End If
End If
End If
Next
End Sub
End Class
我有問題，因為這些不是同一個類，我不知道如何正確聲明它
Dim elements As IEnumerable(Of XElement)
Dim currentElement As XElement
element As XElement In elements
你能給我一些提示，如何糾正這個問題？
示例 xml 銀行對帳單：
<Document
xmlns="urn:iso:std:iso:20022:tech:xsd:camt.053.001.02"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<BkToCstmrStmt>
<GrpHdr>
<MsgId>MSGSTMT1234567890123457890</MsgId>
<CreDtTm>2019-02-13T17:17:18.2369252+01:00</CreDtTm>
</GrpHdr>
<Stmt>
<Id>SKBSTMT5/2019-EUR</Id>
<LglSeqNb>20195</LglSeqNb>
<CreDtTm>2019-01-01T00:00:00</CreDtTm>
<Acct>
<Id>
<IBAN>DE012345678901234</IBAN>
</Id>
<Ownr>
<Nm>COMPANY NAME</Nm>
<PstlAdr>
<Ctry>DE</Ctry>
<AdrLine>ADDRESS 1</AdrLine>
<AdrLine>ADDRESS 2</AdrLine>
</PstlAdr>
</Ownr>
<Svcr>
<FinInstnId>
<BIC>BICCODE</BIC>
<Nm>BANK NAME</Nm>
<PstlAdr>
<Ctry>DE</Ctry>
</PstlAdr>
</FinInstnId>
</Svcr>
</Acct>
<Bal>
<Tp>
<CdOrPrtry>
<Cd>OPBD</Cd>
</CdOrPrtry>
</Tp>
<Amt Ccy="EUR">11000.10</Amt>
<CdtDbtInd>CRDT</CdtDbtInd>
<Dt>
<Dt>2019-01-01</Dt>
</Dt>
</Bal>
<Bal>
<Tp>
<CdOrPrtry>
<Cd>CLBD</Cd>
</CdOrPrtry>
</Tp>
<Amt Ccy="EUR">1000.10</Amt>
<CdtDbtInd>CRDT</CdtDbtInd>
<Dt>
<Dt>2019-01-01</Dt>
</Dt>
</Bal>
<TxsSummry>
<TtlCdtNtries>
<NbOfNtries>2</NbOfNtries>
<Sum>11000.10</Sum>
</TtlCdtNtries>
<TtlDbtNtries>
<NbOfNtries>12</NbOfNtries>
<Sum>11111.11</Sum>
</TtlDbtNtries>
</TxsSummry>
<Ntry>
<Amt Ccy="EUR">11.11</Amt>
<CdtDbtInd>CRDT</CdtDbtInd>
<Sts>BOOK</Sts>
<BookgDt>
<Dt>2019-01-01</Dt>
</BookgDt>
<ValDt>
<Dt>2019-01-01</Dt>
</ValDt>
<AcctSvcrRef>111111111111</AcctSvcrRef>
<BkTxCd>
<Prtry>
<Cd>PP03</Cd>
</Prtry>
</BkTxCd>
<NtryDtls>
<TxDtls>
<Refs>
<InstrId>12345678901</InstrId>
<EndToEndId>NOTPROVIDED</EndToEndId>
<TxId>1234567890123456</TxId>
</Refs>
<RltdPties>
<Dbtr>
<Nm>DEBITOR NAME</Nm>
<PstlAdr>
<Ctry>DE</Ctry>
</PstlAdr>
</Dbtr>
<DbtrAcct>
<Id>
<IBAN>DE012345678901234</IBAN>
</Id>
</DbtrAcct>
<Cdtr>
<Nm>CREDITOR NAME</Nm>
<PstlAdr>
<Ctry>DE</Ctry>
</PstlAdr>
</Cdtr>
<CdtrAcct>
<Id>
<IBAN>DE098765432109874</IBAN>
</Id>
</CdtrAcct>
</RltdPties>
<RltdAgts>
<DbtrAgt>
<FinInstnId>
<BIC>BICCODE</BIC>
</FinInstnId>
</DbtrAgt>
<CdtrAgt>
<FinInstnId>
<BIC>BICCODE</BIC>
</FinInstnId>
</CdtrAgt>
</RltdAgts>
<Purp>
<Prtry>OTHR</Prtry>
</Purp>
<RmtInf>
<Ustrd>PAYMENT</Ustrd>
</RmtInf>
</TxDtls>
</NtryDtls>
</Ntry>
<Ntry>
<Amt Ccy="EUR">2000.20</Amt>
<CdtDbtInd>DBIT</CdtDbtInd>
<Sts>BOOK</Sts>
<BookgDt>
<Dt>2019-01-02</Dt>
</BookgDt>
<ValDt>
<Dt>2019-01-02</Dt>
</ValDt>
<AcctSvcrRef>9876543210</AcctSvcrRef>
<BkTxCd>
<Prtry>
<Cd>US03</Cd>
</Prtry>
</BkTxCd>
<NtryDtls>
<TxDtls>
<Refs>
<InstrId>987654321</InstrId>
<EndToEndId>DE987654</EndToEndId>
<TxId>898765432109876543210</TxId>
</Refs>
<RltdPties>
<Dbtr>
<Nm>DEBITOR NAME</Nm>
<PstlAdr>
<Ctry>DE</Ctry>
</PstlAdr>
</Dbtr>
<DbtrAcct>
<Id>
<IBAN>DE098765432109874</IBAN>
</Id>
</DbtrAcct>
<Cdtr>
<Nm>CREDITOR NAME</Nm>
<PstlAdr>
<Ctry>DE</Ctry>
<AdrLine>ADDRESS 3</AdrLine>
<AdrLine>ADDRESS 4</AdrLine>
</PstlAdr>
</Cdtr>
<CdtrAcct>
<Id>
<IBAN>DE12345678901234</IBAN>
</Id>
</CdtrAcct>
</RltdPties>
<RltdAgts>
<DbtrAgt>
<FinInstnId>
<BIC>BICCODE</BIC>
</FinInstnId>
</DbtrAgt>
<CdtrAgt>
<FinInstnId>
<BIC>BICCODE</BIC>
</FinInstnId>
</CdtrAgt>
</RltdAgts>
<Purp>
<Prtry>PRCP</Prtry>
</Purp>
<RmtInf>
<Strd>
<CdtrRefInf>
<Tp>
<CdOrPrtry>
<Cd>SCOR</Cd>
</CdOrPrtry>
</Tp>
<Ref>123446789</Ref>
</CdtrRefInf>
<AddtlRmtInf>PAYMENT INFO</AddtlRmtInf>
</Strd>
</RmtInf>
</TxDtls>
</NtryDtls>
</Ntry>
</Stmt>
</BkToCstmrStmt>
</Document>
1 個解決方案
解決方案1
1 已采納 2019-07-18 09:13:38
嘗試以下
Imports System.Xml
Imports System.Xml.Linq
Imports System.IO
Module Module1
Const XML_FILENAME As String = "c:\temp\test.xml"
Const CSV_FILENAME As String = "c:\temp\test.csv"
Sub Main()
Dim csvWriter As New StreamWriter(CSV_FILENAME)
csvWriter.WriteLine(String.Join(",", {
"Amount",
"Currency",
"Debitor Name",
"Debitor Account",
"Creditor Name",
"Creditor Account"}))
Dim doc As XDocument = XDocument.Load(XML_FILENAME)
Dim document As XElement = doc.Root
Dim ns As XNamespace = document.GetDefaultNamespace()
For Each Ntry In doc.Descendants(ns + "Ntry")
Dim amt As XElement = Ntry.Element(ns + "Amt")
Dim currency As String = CType(amt.Attribute("Ccy"), String)
Dim amount As Decimal = CType(amt, Decimal)
Dim Dbtr As XElement = Ntry.Descendants(ns + "Dbtr").FirstOrDefault()
Dim debitorName As String = CType(Dbtr.Element(ns + "Nm"), String)
Dim DbtrAcct As XElement = Ntry.Descendants(ns + "DbtrAcct").FirstOrDefault()
Dim DbtrIBAN As String = CType(DbtrAcct.Descendants(ns + "IBAN").FirstOrDefault(), String)
Dim Cdtr As XElement = Ntry.Descendants(ns + "Cdtr").FirstOrDefault()
Dim creditorName As String = CType(Cdtr.Element(ns + "Nm"), String)
Dim CdtrAcct As XElement = Ntry.Descendants(ns + "CdtrAcct").FirstOrDefault()
Dim CdtrIBAN As String = CType(CdtrAcct.Descendants(ns + "IBAN").FirstOrDefault(), String)
csvWriter.WriteLine(String.Join(",", {
amount.ToString(),
currency,
debitorName,
DbtrIBAN,
creditorName,
CdtrIBAN}))
Next Ntry
csvWriter.Flush()
csvWriter.Close()
End Sub
End Module
從生成的XML中讀取特定的childNode-使用vb.net的文件
[英]Reading out a specific childNode from a generated XML - File using vb.net
聲明:本站的技術帖子網頁，遵循CC BY-SA 4.0協議，如果您需要轉載，請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.