iT邦幫忙

0

關於VB.Net 程式抓取網站回傳的JSON字串資料

  • 分享至 

  • xImage

請問我有一個連結會回傳目前最新的JSON氣象資料
https://api.weatherlink.com/v1/NoaaExt.json?user=001D0A00B51E&pass=5582000&apiToken=493DE6B9FC754BE6B42214E122C41039

我想用VB.NET程式語言將回傳的JSON字串解析之後並顯示在Label中,請問該如何做呢
以下是回傳字串的程式碼,可以用類別的方式來顯示各測項資料嗎?

Dim Url As String = "https://api.weatherlink.com/v1/NoaaExt.json?user=001D0A00B51E&pass=5582000&apiToken=493DE6B9FC754BE6B42214E122C41039"
    Dim objWebClient As New System.Net.WebClient
    objWebClient.Encoding = Encoding.UTF8
    Dim jsonString As String = objWebClient.DownloadString(Url) '取得回傳的JSON字串
    Thread.Sleep(1000)
    TextBox1.Text = jsonString

雖然可以使用逗點字串分割的方式來擷取,但是每個字串內容文字符號不一樣處理的效率不是很好。

'===========將回傳的JSON字串以逗點分開並放入陣列中
Dim tmpData() As String
tmpData = Strings.Split(jsonString, ",")
For Each dat As String In tmpData
    Debug.Print(dat)
Next

https://ithelp.ithome.com.tw/upload/images/20240112/201647330DB1YQ5Nev.png

圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

2 個回答

1
純真的人
iT邦大師 1 級 ‧ 2024-01-12 09:39:29
最佳解答

參考VB的Json轉Class方法~

https://ithelp.ithome.com.tw/questions/10213939

lctgood iT邦新手 5 級 ‧ 2024-01-12 11:07:28 檢舉

謝謝!
幫助很大

0
allenlwh
iT邦高手 1 級 ‧ 2024-01-12 10:07:21
lctgood iT邦新手 5 級 ‧ 2024-01-12 11:06:56 檢舉

感謝

我要發表回答

立即登入回答