Public Function getECBCurrencyExchanges(ByVal WebAddress As String) As Array
      Try
         Dim xr As XElement = XElement.Load(WebAddress)
         Dim xn As XNamespace = xr.Attribute("xmlns").Value
 
         Dim xECBs = From ECB In xr.Descendants(xn + "Cube") _
                     Where ECB.Attribute("currency") IsNot Nothing _
                     AndAlso ECB.Attribute("rate") IsNot Nothing _
                     Select ECBCurrency = ECB.Attribute("currency"), _
                            ECBRate = ECB.Attribute("rate")
 
         Return xECBs.ToArray
      Catch ex As Exception
         Throw ex
      End Try
   End Function

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control

Imports System.Globalization
 
' ECB Struktur
Public Structure ECBType
   Public ECBCurrency As String
   Public ECBRate As String
   Public DisplayName As String
End Structure
 
 
Public Class ECBExchanges
   Public Function getECBCurrencyExchanges(ByVal WebAddress As String) As List( _
     Of ECBType)
      Try
         Dim xr As XElement = XElement.Load(WebAddress)
         Dim xn As XNamespace = xr.Attribute("xmlns").Value
 
         Dim xECBs = From ECB In xr.Descendants(xn + "Cube") _
                     Where ECB.Attribute("currency") IsNot Nothing _
                     AndAlso ECB.Attribute("rate") IsNot Nothing _
                     Select New ECBType With { _
                        .ECBCurrency = ECB.Attribute("currency").Value, _
                        .ECBRate = ECB.Attribute("rate").Value, _
                        .DisplayName = CurrencyName(.ECBCurrency)}
 
         Return xECBs.ToList
      Catch ex As Exception
         Throw ex
      End Try
   End Function
 
   Private Function CurrencyName(ByVal isoCode As String) As String
      Dim cultures As CultureInfo() = CultureInfo.GetCultures( _
        CultureTypes.SpecificCultures)
 
      For Each ci As CultureInfo In cultures
         Dim ri As New RegionInfo(ci.LCID)
         If ri.ISOCurrencySymbol = isoCode Then
            Return ci.DisplayName
         End If
      Next
      Return String.Empty
   End Function
End Class

   Private MyECB As New ECBExchanges
 
   Dim ECBList As List(Of ECBType) = MyECB.getECBCurrencyExchanges( _
     "http://www.ecb.int/stats/eurofxref/eurofxref-daily.xml")

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control

Salzburger

Beitrag wurde zuletzt am 28.09.09 um 19:55:27 editiert.

Zitat:

Dim ECBList As List(Of ECBType) = MyECB.getECBCurrencyExchanges( _ "http://www.ecb.int/stats/eurofxref/eurofxref-daily.xml")

Salzburger

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control

Salzburger

Beitrag wurde zuletzt am 12.04.10 um 14:14:39 editiert.

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Salzburger

Imports System.Globalization
 
Public Class Form1
   Private bs As New BindingSource
 
   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
     Handles MyBase.Load
      bs.DataSource = getECBCurrencyExchanges( _
      "http://www.ecb.int/stats/eurofxref/eurofxref-daily.xml")
      Me.DataGridView1.DataSource = bs
   End Sub
 
 
   Private Function getECBCurrencyExchanges(ByVal WebAddress As String) As _
     IQueryable
      Try
         Dim xr As XElement = XElement.Load(WebAddress)
         Dim xn As XNamespace = xr.Attribute("xmlns").Value
 
         Dim xECBs = From ECB In xr.Descendants(xn + "Cube") _
                     Where ECB.Attribute("currency") IsNot Nothing _
                     AndAlso ECB.Attribute("rate") IsNot Nothing _
                     Select Currency = ECB.Attribute("currency").Value, _
                            DisplayName = GetCurrencyName(ECB.Attribute( _
                            "currency").Value), _
                            Rate = Double.Parse(ECB.Attribute("rate").Value, _
                            New CultureInfo("en-US"))
 
         Return xECBs.AsQueryable
      Catch ex As Exception
         Throw ex
      End Try
   End Function
 
   Private Function GetCurrencyName(ByVal isoCode As String) As String
      Dim cultures As CultureInfo() = CultureInfo.GetCultures( _
        CultureTypes.SpecificCultures)
 
      For Each ci As CultureInfo In cultures
         Dim ri As New RegionInfo(ci.LCID)
         If ri.ISOCurrencySymbol = isoCode Then
            Return ci.DisplayName
         End If
      Next
      Return String.Empty
   End Function
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control

<Window.Resources>
        <XmlDataProvider x:Key="Currency"
                   Source="http://www.ecb.europa.eu/stats/eurofxref/eurofxref-" & _
                     "aily.xml"
                   XPath="gemses/cube" />
    </Window.Resources>
    <DataGrid  ItemsSource="{Binding
                 Source={StaticResource Currency}}"

Imports System.Globalization
 
Public Class ECBItem
   Public Property Currency As String
   Public Property DisplayName As String
   Public Property Rate As Double
End Class
 
 
Public Class clsECB
   Inherits ObjectModel.ObservableCollection(Of ECBItem)
 
   Public Sub LoadExchanges()
      Try
         Dim xr As XElement = XElement.Load( _
           "http://www.ecb.int/stats/eurofxref/eurofxref-daily.xml")
         Dim xn As XNamespace = xr.Attribute("xmlns").Value
 
         Dim xECBs = From ECB In xr.Descendants(xn + "Cube") _
                     Where ECB.Attribute("currency") IsNot Nothing _
                     AndAlso ECB.Attribute("rate") IsNot Nothing _
                     Select New ECBItem With {
                        .Currency = ECB.Attribute("currency").Value,
                        .DisplayName = GetCurrencyName(ECB.Attribute( _
                          "currency").Value),
                        .Rate = Double.Parse(ECB.Attribute("rate").Value, New _
                        CultureInfo("en-US"))}
 
         For Each Item As ECBItem In xECBs
            Me.Add(Item)
         Next
      Catch ex As Exception
         Throw ex
      End Try
   End Sub
 
   Private Function GetCurrencyName(ByVal isoCode As String) As String
      Dim cultures As CultureInfo() = CultureInfo.GetCultures( _
        CultureTypes.SpecificCultures)
 
      For Each ci As CultureInfo In cultures
         Dim ri As New RegionInfo(ci.LCID)
         If ri.ISOCurrencySymbol = isoCode Then
            Return ci.DisplayName
         End If
      Next
      Return String.Empty
   End Function
End Class

<Window
   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
   xmlns:my="clr-namespace:WpfApplication1" 
   x:Class="MainWindow" Loaded="Window_Loaded_1"
   Title="MainWindow" Height="350" Width="525">
   <Window.DataContext>
      <my:clsECB x:Name="myECBs" />
   </Window.DataContext>
 
   <Grid>
      <DataGrid x:Name="dgExchanges" AutoGenerateColumns="True" _
        ItemsSource="{Binding}" />
   </Grid>
</Window>

Class MainWindow 
 
   Private Sub Window_Loaded_1(sender As Object, e As RoutedEventArgs)
      Dim ecb As clsECB = DirectCast(FindName("myECBs"), clsECB)
      ecb.LoadExchanges()
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control

The type 'my:clsECB' was not found. Verify that you are not missing an assembly _
  reference and that all referenced assemblies have been built...

<loadFromRemoteSources enabled="true" />