Autor Tema: (.NET) Obtener información de archivo JSON.  (Leído 553 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Baator

  • Bit
  • Mensajes: 1
  • Reputación: +0/-0
    • Ver Perfil
(.NET) Obtener información de archivo JSON.
« en: Diciembre 06, 2022, 04:22:51 am »
Hola chic@s, un placer.

Tengo un archivo JSON (https://api.coinbase.com/v2/prices/spot?currency=USD), del cual concretamente quiero obtener el fragmento del precio del Bitcoin (“amount”) y luego mostrarlo dentro de un TextBox. Parece que no poseo el conocimiento suficiente aún para hacerlo funcionar yo solo.

Les agradezco la ayuda. 🙂

LeandroA

  • Administrador
  • Petabyte
  • *****
  • Mensajes: 1127
  • Reputación: +150/-8
    • Ver Perfil
Re:(.NET) Obtener información de archivo JSON.
« Respuesta #1 en: Diciembre 14, 2022, 11:42:05 pm »
Hola existe algunos módulos para leer JSON, pero veo que para tu caso s un Json sencillo y podría pasearse con  algunas funciones

Código: [Seleccionar]
Private Sub Form_Load()
    Dim oXMLHTTP As Object
    Dim sURL As String
    Dim sJSON As String
    Dim lPos1 As Long, lPos2 As Long
   
    sURL = "https://api.coinbase.com/v2/prices/spot?currency=USD"
   

    Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP")

    oXMLHTTP.Open "GET", sURL, False
    oXMLHTTP.send
   
    If oXMLHTTP.Status = 200 Then
        sJSON = oXMLHTTP.responseText
        lPos1 = InStrRev(sJSON, """:""")
        lPos2 = InStrRev(sJSON, """")

        Text1.Text = Mid$(sJSON, lPos1 + 3, lPos2 - lPos1 - 3)
    End If
End Sub

ticosoft

  • Bytes
  • *
  • Mensajes: 10
  • Reputación: +1/-0
    • Ver Perfil
Re:(.NET) Obtener información de archivo JSON.
« Respuesta #2 en: Noviembre 22, 2023, 04:00:38 pm »
Oye Leandro, genial este aporte.. fuiste mas certero en este momento que el mismo chatgpt
Un programador apasionado, un tomador de café compulsivo