Kanye REST

[SpriggsySpriggs]

Below is some code to grab a random Kanye "Ye" West quote:

Code: (Select All)

Option Explicit
$NoPrefix
$Console:Only
$Unstable:Http

Dim As Long connection: connection = OpenClient("HTTP:https://api.kanye.rest/")
If connection <> 0 And StatusCode(connection) = 200 Then
    Dim As String buf, outbuf
    While Not EOF(connection)
        Get connection, , buf
        outbuf = outbuf + buf
    Wend
    outbuf = Mid$(outbuf, 11)
    outbuf = Mid$(outbuf, 1, Len(outbuf) - 2)
    Print outbuf
    Print: Print "-Kanye West"
End If

[SMcNeill]

Note: This needs the latest GitHub build to run.  It won't work in version 3.4.1, just FYI.

[Jack]

you can get the quotes from https://github.com/ajzbc/kanye.rest/blob...uotes.json

[SpriggsySpriggs]

Yeah, I'm just trying to show how easy it is to use the new features in QB64pe

[Jack]

in the early Mac computer there was a program available that would at random times pop-up Bullwinkle the moose an say something silly/funny
see https://en.wikipedia.org/wiki/Bullwinkle_J._Moose
https://www.wired.com/2001/08/hey-mac-th...-is-loose/

[bplus]

Time to get out yer shovels when the moose is loose. -Kenye

[mnrvovrfc]

Requires the file "quotes.json". If it's in the same format it doesn't matter who the speaker was, does it?

Code: (Select All)

$CONSOLE:ONLY
dim as long ff, ll, l, ts

ts = (val(mid$(time$, 4, 2)) mod 2) * 60 + val(right$(time$, 2))

afile$ = "quotes.json"
ff = freefile
open afile$ for input as ff
do until eof(ff)
    line input #ff, aline$
    if aline$ = "[" then
        ll = 0
    elseif aline$ = "]" then
        exit do
    else
        ll = ll + 1
    end if
loop
close ff

redim sf$(1 to ll)
ff = freefile
open afile$ for input as ff
do until eof(ff)
    line input #ff, aline$
    if aline$ = "[" then
        l = 0
    elseif aline$ = "]" then
        exit do
    else
        l = l + 1
        aline$ = _trim$(aline$)
        if l = ll then
            sf$(l) = mid$(aline$, 2, len(aline$) - 2)
        else
            sf$(l) = mid$(aline$, 2, len(aline$) - 3)
        end if
    end if
loop
close ff

print sf$(ts)
print "- Kanye West"
system

[SpriggsySpriggs]

Yep, you definitely can read a JSON file in QB64pe

[grymmjack]

oh i get it. Kanye REST - Kanye WEST.

CLEVER. Also thanks for sharing.