Đọc dữ liệu json trong VBscript

[ketoan113]

Em chào các anh chị,
Em có lấy dữ liệu từ api, lấy nội dung json về thì em làm được rồi. Dữ liệu lấy về em import vào phần mềm bên thứ 3 sử dụng VBscript.
Cho em hỏi có cách nào đọc nội dung json trong VBscript không? Em xin cám ơn.

Sub test()

Dim http, url, response
Set http = CreateObject("MSXML2.XMLHTTP")


url = "https://min-api.cryptocompare.com/data/price?fsym=ETH&tsyms=USD"
http.Open "GET", url, False
http.Send

response = http.responseText

Debug.Print response

End Sub

 

[befaint]

VBscript cũng tương tự y như VBA.

 

[ketoan113]

VBscript cũng tương tự y như VBA.

Nếu được code mẫu dùm em với, em tham khảo. Em cảm ơn nhiều.

 

[Văn Toàn 1996]

Em chào các anh chị,
Em có lấy dữ liệu từ api, lấy nội dung json về thì em làm được rồi. Dữ liệu lấy về em import vào phần mềm bên thứ 3 sử dụng VBscript.
Cho em hỏi có cách nào đọc nội dung json trong VBscript không? Em xin cám ơn.

Sub test()

Dim http, url, response
Set http = CreateObject("MSXML2.XMLHTTP")


url = "https://min-api.cryptocompare.com/data/price?fsym=ETH&tsyms=USD"
http.Open "GET", url, False
http.Send

response = http.responseText

Debug.Print response

End Sub

Chào bạn!

Trong VBScript, không có thư viện tích hợp sẵn để xử lý JSON như trong nhiều ngôn ngữ lập trình khác. Tuy nhiên, bạn có thể sử dụng một số phương pháp để phân tích cú pháp (parse) JSON trong VBScript. Một trong những cách đơn giản nhất là sử dụng một thư viện JSON bên ngoài.

Bước 1: Tải thư viện JSON​

Bạn có thể sử dụng một thư viện JSON có sẵn cho VBScript, nhưJsonConverter. Tải xuống tệp JsonConverter.bas và thêm nó vào dự án của bạn.

Bước 2: Sử dụng thư viện để phân tích cú pháp JSON​

Dưới đây là ví dụ về cách bạn có thể sử dụng thư viện JSON để phân tích cú pháp nội dung JSON mà bạn đã nhận được từ API:


Sub test()
Dim http, url, response
Dim json
Dim jsonObject

' Tạo đối tượng XMLHTTP
Set http = CreateObject("MSXML2.XMLHTTP")

url = "https://min-api.cryptocompare.com/data/price?fsym=ETH&tsyms=USD"
http.Open "GET", url, False
http.Send

response = http.responseText
Debug.Print response

' Khởi tạo đối tượng JSON và phân tích cú pháp phản hồi
Set json = New JSONParser
Set jsonObject = json.parse(response)

' Lấy giá trị từ đối tượng JSON
Dim ethPrice
ethPrice = jsonObject("USD")
Debug.Print "Giá ETH (USD): " & ethPrice
End Sub

Chú ý:​

1. Tải và thêm JsonConverter.bas: Bạn cần tải và thêm mã nguồn của thư viện này vào dự án của bạn.
2. Kiểm tra tên phương thức: Đảm bảo rằng bạn đã khai báo đúng tên của phương thức và lớp trong thư viện JSON.
3. Xuất lỗi nếu không hoạt động: Nếu có lỗi xảy ra, đảm bảo rằng bạn đã thêm thư viện đúng cách và sử dụng đúng cú pháp với các đối tượng.

Hy vọng rằng điều này hữu ích cho bạn! Nếu bạn có bất kỳ câu hỏi nào khác, đừng ngần ngại hỏi.

 

[ketoan113]

Chào bạn!

Trong VBScript, không có thư viện tích hợp sẵn để xử lý JSON như trong nhiều ngôn ngữ lập trình khác. Tuy nhiên, bạn có thể sử dụng một số phương pháp để phân tích cú pháp (parse) JSON trong VBScript. Một trong những cách đơn giản nhất là sử dụng một thư viện JSON bên ngoài.

Bước 1: Tải thư viện JSON​

Bạn có thể sử dụng một thư viện JSON có sẵn cho VBScript, nhưJsonConverter. Tải xuống tệp JsonConverter.bas và thêm nó vào dự án của bạn.

Bước 2: Sử dụng thư viện để phân tích cú pháp JSON​

Dưới đây là ví dụ về cách bạn có thể sử dụng thư viện JSON để phân tích cú pháp nội dung JSON mà bạn đã nhận được từ API:


Sub test()
Dim http, url, response
Dim json
Dim jsonObject

' Tạo đối tượng XMLHTTP
Set http = CreateObject("MSXML2.XMLHTTP")

url = "https://min-api.cryptocompare.com/data/price?fsym=ETH&tsyms=USD"
http.Open "GET", url, False
http.Send

response = http.responseText
Debug.Print response

' Khởi tạo đối tượng JSON và phân tích cú pháp phản hồi
Set json = New JSONParser
Set jsonObject = json.parse(response)

' Lấy giá trị từ đối tượng JSON
Dim ethPrice
ethPrice = jsonObject("USD")
Debug.Print "Giá ETH (USD): " & ethPrice
End Sub

Chú ý:​

1. Tải và thêm JsonConverter.bas: Bạn cần tải và thêm mã nguồn của thư viện này vào dự án của bạn.
2. Kiểm tra tên phương thức: Đảm bảo rằng bạn đã khai báo đúng tên của phương thức và lớp trong thư viện JSON.
3. Xuất lỗi nếu không hoạt động: Nếu có lỗi xảy ra, đảm bảo rằng bạn đã thêm thư viện đúng cách và sử dụng đúng cú pháp với các đối tượng.

Hy vọng rằng điều này hữu ích cho bạn! Nếu bạn có bất kỳ câu hỏi nào khác, đừng ngần ngại hỏi.

Chân thành cảm ơn bạn.
Thân mến.