<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div class="moz-cite-prefix">On 10/26/2013 09:57 AM, Alvaro
Soliverez wrote:<br>
</div>
<blockquote
cite="mid:CAMJ2LZ6o_mnybt5ebBc0N9ZSEvNSP_X=vm5EFMz1ueZ_wWemiw@mail.gmail.com"
type="cite">
<pre wrap="">Hello Joe,
Is the script yours? Do we have your permission to add it to
KMyMoney's source under the contrib directory?
We can later link it from KMyMoney, like we do with finance::quote.
Thanks for your contribution!
Regards,
Alvaro
On Sat, Oct 26, 2013 at 10:40 AM, Joe W. Byers <a class="moz-txt-link-rfc2396E" href="mailto:ecjbosu@aol.com"><ecjbosu@aol.com></a> wrote:
</pre>
<blockquote type="cite">
<pre wrap="">On 10/26/2013 12:06 AM, Thomas Baumgart wrote:
Hi,
On Wednesday 23 October 2013 22:00:22 Koos Pol wrote:
Good evening all,
Is it possible to automatically update the prices of currencies and stocks?
For instance by cron? Or update once a week but also download the prices
for all intermediate days? I find myself firing up KMM everynight just to
keep an eye on my stock portfolio. (granted, I should probably use a stock
program for this ;-)
No, unfortunately this is currently not supported, though thoughts have
already been spent as part of the Alkimia project. Even some source code for
such feature already exists but is not integrated/used yet.
_______________________________________________
KMyMoney mailing list
<a class="moz-txt-link-abbreviated" href="mailto:KMyMoney@kde.org">KMyMoney@kde.org</a>
<a class="moz-txt-link-freetext" href="https://mail.kde.org/mailman/listinfo/kmymoney">https://mail.kde.org/mailman/listinfo/kmymoney</a>
My workaround is using the following perl script on linux and the import
into Kmymoney. Put your symbols into @syms. I would like to pass a
parameter to read a text or xml file of the ticker symbols, but this is low
on my priority. I also pasted in a scirpt that will backfill dates not
currently in kymoney.
Have fun.
Joe
#!/usr/bin/perl -w
#***************************************************************************
# fy-qif.pl - description
# -------------------
# begin : Sat 10 Feb 2012
# copyright : (C) 2012 by Joe W. Byers
# email : <a class="moz-txt-link-abbreviated" href="mailto:ecjbosu@aol.com">ecjbosu@aol.com</a>
#
#***************************************************************************/
#
#***************************************************************************
#* *
#* This program is free software; you can redistribute it and/or modify *
#* it under the terms of the GNU General Public License as published by *
#* the Free Software Foundation; either version 2 of the License, or *
#* (at your option) any later version. *
#* *
#***************************************************************************/
# Simple script to download security prices from finance.yahoo and create a
# qif format for KMyMoney2.
# Run by ''./fy-qif.pl' .
# You are required to specify a directory and file location in line 57.
# You should edit the list of security symbols in line 42.
# This file can be scheduled as a cron job if needed
# Output format -
# !Type:Prices
# "HJU8.BE",61.62,"23.12.09"
# ^
# This uses perl-Finance-YahooQuote
# Copyright (C) 2002 Dirk Eddelbuettel <a class="moz-txt-link-rfc2396E" href="mailto:edd@debian.org"><edd@debian.org></a>, and GPL'ed
# Based on the original example by Dj Padzensky
#
# $Id: yahooquote,v 1.2 2002/12/24 17:50:28 edd Exp $
#Todo: create a file read to read a file
#use strict;
use Getopt::Long;
use Finance::YahooQuote;
@syms=(WMB,AAON,CSCO,EP,FLVCX,FSCGX,ISSC,MSFT,NOEQX,NOSIX,NTCHX,PG,RHT,SLR,FCNTX,FPURX,FJPNX,FSENX,OSMVX,ALU,TCLFX,FSLBX,FDFAX,FDIVX,ARTMX,EPD,FDGFX,OBFVX,TCLFX,OBBC,FDIKX,FDGFX);
my $verbose = 0;
#GetOptions("verbose" => \$verbose);
#die "Usage: $0 [--verbose] symbol [symbol ...]\n" if $#ARGV == -1;
my @h = ("Symbol","Name","Last","Trade Date","Trade Time","Change","%
Change",
"Volume","Avg. Daily Volume","Bid","Ask","Prev. Close","Open",
"Day's Range","52-Week Range","EPS","P/E Ratio","Div. Pay Date",
"Div/Share","Div. Yield","Mkt. Cap","Exchange");
$Finance::YahooQuote::TIMEOUT = 30;
my @q = getquote(@syms);
$file = "/var/datadl/quotes.csv";
open(FH, ">> $file") || die $!;
foreach $a (@q) {
print FH "!Type:Prices\n";
foreach (0..$#h) {
if ($verbose) {
print "$h[$_]: $$a[$_]\n";
} else {
print FH "\"$$a[$_]\"," if $h[$_] =~ /(Symbol)/m;
print FH "\"$$a[$_]\"\n" if $h[$_] =~ /(Trade Date)/m;
# print FH "$$a[$_]\n" if $h[$_] =~ /(Symbol)/m;
print FH "$$a[$_]," if $h[$_] =~ /(Last)/m;
}
}
print FH "^\n";
}
close(FH);
backfill history of uquoted.
#!/usr/bin/perl -w
#***************************************************************************
# fy-qif.pl - description
# -------------------
# begin : Sat 10 Feb 2012
# copyright : (C) 2012 by Joe W. Byers
# email : <a class="moz-txt-link-abbreviated" href="mailto:ecjbosu@aol.com">ecjbosu@aol.com</a>
#
#***************************************************************************/
#
#***************************************************************************
#* *
#* This program is free software; you can redistribute it and/or modify *
#* it under the terms of the GNU General Public License as published by *
#* the Free Software Foundation; either version 2 of the License, or *
#* (at your option) any later version. *
#* *
#***************************************************************************/
# Simple script to download security prices from finance.yahoo and create a
# qif format for KMyMoney2.
# Run by ''./fy-qif.pl' .
# You are required to specify a directory and file location in line 57.
# You should edit the list of security symbols in line 42.
# This file can be scheduled as a cron job if needed
# Output format -
# !Type:Prices
# "HJU8.BE",61.62,"23.12.09"
# ^
# This uses perl-Finance-YahooQuote
# Copyright (C) 2002 Dirk Eddelbuettel <a class="moz-txt-link-rfc2396E" href="mailto:edd@debian.org"><edd@debian.org></a>, and GPL'ed
# Based on the original example by Dj Padzensky
#
# $Id: yahooquote,v 1.2 2002/12/24 17:50:28 edd Exp $
#Todo: create a file read to read in security symbols
#use strict;
use Getopt::Long;
use Finance::QuoteHist::Yahoo;
use HTTP::Date;
use DateTime;
use DateTime::Format::Flexible;
#@syms=qw("WMB AAON");
# CSCO EP FLVCX FSCGX ISSC MSFT NOEQX NOSIX NTCHX PG RHT SLR
# FCNTX FPURX FJPNX FSENX OSMVX ALU TCLFX FSLBX FDFAX FDIVX ARTMX EPD
FDGFX OBFVX TCLFX
# OBBC FDIKX FDGFX");
$padlen = 2;
#print "@syms";
my $verbose = 0;
my $q = new Finance::QuoteHist::Yahoo (
symbols => [qw("WMB AAON CSCO EP FLVCX FSCGX ISSC MSFT NOEQX NOSIX
NTCHX PG RHT SLR
FCNTX FPURX FJPNX FSENX OSMVX ALU TCLFX FSLBX FDFAX FDIVX ARTMX EPD
FDGFX OBFVX TCLFX
OBBC FDIKX FDGFX")],
start_date => '1/1/2010',
end_date => 'today'
);
$file = "/var/datadl/quoteshist.csv";
open(FH, ">> $file") || die $!;
#values
foreach $row ($q->quotes()) {
print FH "!Type:Prices\n";
($symbol, $date, $close) = @$row;
#print "$symbol\n";
print FH "Y$symbol" . ",";
$yr=substr($date,0,4);
$mm = substr($date,5,2);
$mm = sprintf("%0${padlen}d", $mm);
$dd = substr($date,8,2);
#$dd=sprintf("%0${padlen}d", $d);
#print "$date\n";
print FH " $mm/$dd/$yr" . "\n";
print FH "I$close\n";
print FH "^\n";
# print @$row["$symbol"]; print "=="; print @$row[ "$date"] ;
}
close(FH);
--
Joe W. Byers
_______________________________________________
KMyMoney mailing list
<a class="moz-txt-link-abbreviated" href="mailto:KMyMoney@kde.org">KMyMoney@kde.org</a>
<a class="moz-txt-link-freetext" href="https://mail.kde.org/mailman/listinfo/kmymoney">https://mail.kde.org/mailman/listinfo/kmymoney</a>
</pre>
</blockquote>
<pre wrap="">_______________________________________________
KMyMoney mailing list
<a class="moz-txt-link-abbreviated" href="mailto:KMyMoney@kde.org">KMyMoney@kde.org</a>
<a class="moz-txt-link-freetext" href="https://mail.kde.org/mailman/listinfo/kmymoney">https://mail.kde.org/mailman/listinfo/kmymoney</a>
</pre>
</blockquote>
Yes the script is mine. I might have received suggestions several
years ago from Dirk since I use his perl yahoo package. I would be
honored to have it included.<br>
<br>
Thanks<br>
<br>
<div class="moz-signature">-- <br>
<b>Joe W. Byers</b><br>
</div>
</body>
</html>