[Kmymoney] Auto update of currencie and stock prices
Joe W. Byers
ecjbosu at aol.com
Sat Oct 26 20:19:43 UTC 2013
On 10/26/2013 09:57 AM, Alvaro Soliverez wrote:
> 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 <ecjbosu at aol.com> wrote:
>> 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
>> KMyMoney at kde.org
>> https://mail.kde.org/mailman/listinfo/kmymoney
>>
>> 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 : ecjbosu at aol.com
>> #
>> #***************************************************************************/
>> #
>> #***************************************************************************
>> #* *
>> #* 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 <edd at debian.org>, 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 : ecjbosu at aol.com
>> #
>> #***************************************************************************/
>> #
>> #***************************************************************************
>> #* *
>> #* 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 <edd at debian.org>, 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
>> KMyMoney at kde.org
>> https://mail.kde.org/mailman/listinfo/kmymoney
>>
> _______________________________________________
> KMyMoney mailing list
> KMyMoney at kde.org
> https://mail.kde.org/mailman/listinfo/kmymoney
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.
Thanks
--
*Joe W. Byers*
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.kde.org/pipermail/kmymoney/attachments/20131026/61afc5ec/attachment.html>
More information about the KMyMoney
mailing list