German Datenabruf von Drittanbietern

Sub Button1_Click
    
    Dim j As HttpJob
    j.Initialize("", Me)
    j.Download("https://api.coindesk.com/v1/bpi/currentprice.json")  '-- von hier kommen die Daten --
    ProgressDialogShow2("Download der Daten ...", False)
    Wait For (j) JobDone (j As HttpJob)
    If j.Success Then
        Log(j.GetString)
        Dim parser As JSONParser
        parser.Initialize(j.GetString)
        Dim root As Map = parser.NextObject
        Dim bpi As Map = root.Get("bpi")
        Dim USD As Map = bpi.Get("USD")
        Dim rate As String = USD.Get("rate")
        Dim time As Map = root.Get("time")
        Dim updatedISO As String = time.Get("updatedISO")
        Dim disclaimer As String = root.Get("disclaimer")
        Log(disclaimer)
        Log(updatedISO)

        DateTime.DateFormat = "dd.MM.yyyy"  '-- JH --
        DateTime.TimeFormat = "HH:mm"  '-- JH --
        Log("Am "&DateTime.Date(DateTime.Now)&" um "&DateTime.Time(DateTime.Now)&" Uhr")

    '-- die Tausenderzeichen beim USD auswechslen --
        rate = rate.Replace(",", "a")
        rate = rate.Replace(".", "b")
        rate = rate.Replace("a", ".")
        rate = rate.Replace("b", ",")
        Dim cs As CSBuilder
        cs.Initialize.Color(0xFF3C8C23).Append(rate).Append(" U$D")  '-- JH --
        cs.Pop.Append(CRLF).size(16).append("Am "&DateTime.Date(DateTime.Now)&" um "&DateTime.Time(DateTime.Now)&" Uhr").PopAll
        Label1.Text = cs
    Else
        Log("Fehlermeldung: " & j.ErrorMessage)
    End If
    ProgressDialogHide
    j.Release
    
End Sub