Post by meerkat on Jan 15, 2018 7:42:29 GMT -5
Have you tried to get your stock quotes from Google. Seems to be a little easier.
I'm going to try some analysis on some of this stuff and see what I get..
Give it a try.. You may make millions.
a$ = httpGet$("http://finance.google.com/finance/historical?output=csv&q=AAPL")
sqliteconnect #mem, ":memory:"
mem$ = "CREATE TABLE market (mrkDate date,opn decimal(8,2),high decimal(8.2), low decimal(8,2), mktClose decimal(8.2), vol int(10))"
#mem execute(mem$)
mth$ = "JanFebMarAprMayJunJulAugSepOctNovDec"
T$ = chr$(9)
j = 1
for i = 1 to len(a$)
k = instr(a,ドルchr$(10),j)
if k < 1 then exit for
x$ = mid$(a,ドルj,k-j)
if x$ = "" then exit for
if i > 1 then ' skip first line header
m = instr(x,ドル",") ' convert date to yyyy-mm-dd
d$ = left$(x,ドルm-1)
dd$ = right$("0";word$(d,1,ドル"-"),2)
mmm$ = word$(d,2,ドル"-")
mm = instr(mth,ドルmmm$)
mm = (mm + 2) / 3
mm$ = right$("0";mm,2)
yyyy$ = "20";word$(d,3,ドル"-")
d1$ = yyyy$;"-";mm$;"-";dd$
x$ = "'";d1$;"'";mid$(x,ドルm)
mem$ = "INSERT INTO market VALUES(";x$;")"
#mem execute(mem$)
end if
j = k + 1
next i
print " ------------------- day of week average ------------------------------"
mem$ = "SELECT strftime('%w',mrkDate) as dow,
*,
avg(opn) as opn,
avg(high) as high,
avg(low) as low,
avg(mktClose) as mktClose,
avg(vol) as vol
FROM market
GROUP BY strftime('%w',mrkDate)"
#mem execute(mem$)
rows = #mem rowcount()
for i = 1 to rows
#row = #mem #nextrow()
dow$ = #row dow$()
gosub [getMarketData]
print i;T$;dow$;T$;opn;T$;high;T$;low;T$;mktClose;T$;vol
next i
print "------------------ for days from today ------------------------------"
mem$ = "SELECT round(julianday('now') - julianday(mrkDate),0) as julDay,* FROM market"
#mem execute(mem$)
rows = #mem rowcount()
for i = 1 to rows
#row = #mem #nextrow()
julDay$ = #row julDay$()
gosub [getMarketData]
print i;T$;julDay$;T$;mrkDate$;T$;opn;T$;high;T$;low;T$;mktClose;T$;vol
next i
print "------------------- for day of week -----------------------------"
mem$ = "SELECT *,strftime('%w',mrkDate) as dow FROM market"
#mem execute(mem$)
rows = #mem rowcount()
for i = 1 to rows
#row = #mem #nextrow()
dow$ = #row dow$()
gosub [getMarketData]
print i;T$;dow$;T$;mrkDate$;T$;opn;T$;high;T$;low;T$;mktClose;T$;vol
next i
end
[getMarketData]
mrkDate$ = #row mrkDate$()
opn = #row opn()
high = #row high()
low = #row low()
mktClose = #row mktClose()
vol = #row vol()
RETURN