[VB.NET] XML กับอัตราการแลกเปลี่ยนเงินตรา จากบริการฟรีของ Yahoo Finance

thongkorn

โค้ดเบาๆเล็กๆนี้จะแสดงการอ่านค่าจาก finance.yahoo.com ซึ่งจะถูกส่งค่ากลับมาเป็น XML (eXtensible Markup Language) เพื่อแสดงอัตราการแลกเปลี่ยนเงินตรา โดยยึดสกุลหลักคือ US Dollar มาเป็นสกุลเงินต่างๆ ...

1. https://finance.yahoo.com/webservice/v1/symbols/allcurrencies/quote?format=xml

คัดลอกไปที่คลิปบอร์ด

URL ลิ้งค์ที่ทำการอ่านค่า XML

1. <resource classname="Quote">
   
2. <field name="name">USD/KRW</field>
   
3. <field name="price">1125.170044</field>
   
4. <field name="symbol">KRW=X</field>
   
5. <field name="ts">1507932779</field>
   
6. <field name="type">currency</field>
   
7. <field name="utctime">2017-10-13T22:12:59+0000</field>
   
8. <field name="volume">0</field>
   
9. </resource>

คัดลอกไปที่คลิปบอร์ด

ตัวอย่างของรูปแบบ XML ซึ่งจะแสดงผลใน Web Browser มีหลักการง่ายๆโดยเราจะทำการอ่านค่า Element หลักคือ "Quote" จากนั้นเลือก Attribute ที่มีชื่อว่า name และ price

มาดูโค้ดกันเถอะ ...

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Get currency exchange rates from finance.yahoo.com
   
8. ' / Microsoft Visual Basic .NET (2010)
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------------
    
13. Imports System.Xml
    
14. 
    
15. Public Class frmExchangeCurrency
    
16. 
    
17.     Private Sub btnParser_Click(sender As System.Object, e As System.EventArgs) Handles btnParser.Click
    
18.         Dim url As String = "https://finance.yahoo.com/webservice/v1/symbols/allcurrencies/quote?format=xml"
    
19.         '// Sample XML Format.
    
20.         '<resource classname="Quote">
    
21.         '<field name="name">USD/VND</field>
    
22.         '<field name="price">22714.000000</field>
    
23.         '<field name="symbol">VND=X</field>
    
24.         '<field name="ts">1507326331</field>
    
25.         '<field name="type">currency</field>
    
26.         '<field name="utctime">2017-10-06T21:45:31+0000</field>
    
27.         '<field name="volume">0</field>
    
28.         '</resource>
    
29. 
    
30.         Try
    
31.             ' Load the data.
    
32.             Dim doc As New XmlDocument()
    
33.             doc.Load(url)
    
34.             '// Process the resource nodes.
    
35.             Dim xRoot As XmlNode = doc.DocumentElement
    
36.             '// Get the element.
    
37.             Dim xElement As String = "descendant::resource[@classname='Quote']"
    
38.             For Each node As XmlNode In xRoot.SelectNodes(xElement)
    
39.                 '// Get the attribute.
    
40.                 Dim name As String = node.SelectSingleNode("field[@name='name']").InnerText
    
41.                 Dim price As String = node.SelectSingleNode("field[@name='price']").InnerText
    
42.                 '// Read the information only with the / sign in the 4th order. (For example--> USD/VND)
    
43.                 If InStr(name, "/") = 4 Then
    
44.                     Dim LV As ListViewItem
    
45.                     LV = lvwPrices.Items.Add(name)  '// Create main node.
    
46.                     LV.SubItems.Add(price)
    
47.                 End If
    
48.             Next
    
49.             '// Sorting from A to Z
    
50.             Me.lvwPrices.Sorting = SortOrder.Ascending
    
51. 
    
52.         Catch ex As Exception
    
53.             MessageBox.Show(ex.Message, "Read Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
54.         End Try
    
55. 
    
56.     End Sub
    
57. 
    
58.     Private Sub frmExchangeCurrency_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
59.         ' Initialize ListView Control
    
60.         With lvwPrices
    
61.             .View = View.Details
    
62.             .GridLines = True
    
63.             .FullRowSelect = True
    
64.             .HideSelection = False
    
65.             .MultiSelect = False
    
66.             .Columns.Add("Name", lvwPrices.Width \ 2)
    
67.             .Columns.Add("Price", lvwPrices.Width \ 2 - 20)
    
68.         End With
    
69.     End Sub
    
70. 
    
71.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
    
72.         Me.Close()
    
73.     End Sub
    
74. 
    
75.     Private Sub frmExchangeCurrency_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
76.         Me.Dispose()
    
77.         Application.Exit()
    
78.     End Sub
    
79. 
    
80. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่