[Solved] Get data from REST API

[jza]

Hi I would like to know if there is a script that uses REST API from a website for Live Data. So I got python script to do it on the CLI:

Code: Select all

import sys,requests

getme= requests.get("https://api.vaultoro.com/latest")
quote=float(getme.text)
print calc
>>> '0.07696479'

Of course a simple curl on bash can return that:

Code: Select all

 $ curl https://api.vaultoro.com/latest
0.07696479

What I want is to have a macro that will do this request and return the value into a cell. Also some aditional information for possible parameters when trying to do post. I might want to keep it portable so an OOoBasic would be fine.

regards.

[karolus]

Hallo

http://python-requests.org

Code: Select all

import requests

def get_value():
    
    doc = XSCRIPTCONTEXT.getDocument()
    sel = doc.CurrentSelection    
    url = "https://api.vaultoro.com/latest"
    res = requests.get(url)
    sel.Value = res.json()
 

Karolus

[jza]

Sorry I should mention that I wanted this for Basic, not Python. I want to make this portable without the next user to have to run the system python (windows users). The AOO python also doesnt include requests and many end users will be intimidated asking them, oh btw you need to manually install requests on your AOO python-path.

[B Marcelly]

Hi,
Solution in Basic:

Code: Select all

Function getWebService(request As String) As String
Dim sfa As Object, flux As Object, repDoc As Object
Dim repXml As String

sfa = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
repDoc = CreateUnoService("com.sun.star.io.TextInputStream")
repXml = ""
On Error GoTo badRequest
flux = sfa.openFileRead(request)
repDoc.InputStream = flux
Do while not repDoc.isEOF
  repXml = repXml & " " & repDoc.readLine
Loop
flux.closeInput
repDoc.closeInput
finished:
getWebService = repXml
Exit Function

badRequest:
  Resume finished
End Function

Usage (if the answer does not need further analysis):

Code: Select all

Dim rep As String

rep = getWebService("https://api.vaultoro.com/latest")
MsgBox rep

Note : LibreOffice 4.2 has introduced the Calc function WEBSERVICE().

[karolus]

Hallo

theres no need for third-party--requests, use the builtin-module `urllib2` instead.

[jza]

Basic doesnt have urllib2

[karolus]

Basic doesnt have urllib2

no surprise, but python