ヤフーファイナンス - 会社を取得する方法重要な統計

Question

私は （http://www.codeproject.com/Articles/37550/Stock-quote-and-chart-from-Yahoo-in-C）から共有データを取得するためにcodeprojectを使用しました。

ヤフーファイナンスには、使用したいと思う「重要な統計」がありますが、この手段では利用できません（例：http://uk.finance.yahoo.com/q/ks?s=BNZL.Lのデータ）。この情報を直接入手する方法はありますか？可能であれば、私は本当にむしろスクレープをスクリーニングしません。

私はC＃の/を使用しています。NET4を。

Answer 1

あなたは、.NET Yahoo! Managedのための私のlibを使用することができます。そこにはあなたが望むものを正確に行うためのMaasOne.Finance.YahooFinance.CompanyStatisticsDownloadクラスがあります。

P/S：あなたが最新バージョン（0.10.1）を使用する必要があります。 v0.10.0.2はキー統計ダウンロードでは廃止されました。

Answer 2

私はRで作成した回答を提供すると考えていました（そしてR-Bloggersで共有しました）。私が提供している答えはC＃ではなく、XPathとXMLはすべての言語でサポートされているので、このアプローチを使用することができます。ブログへのURLです - あなたはBarChart.comから主要な統計情報を使用して気にしない場合はhttp://www.r-bloggers.com/pull-yahoo-finance-key-statistics-instantaneously-using-xml-and-xpath-in-r/

####################################################################### 
##Alternate method to download all key stats using XML and x_path - PREFERRED WAY 
####################################################################### 

setwd("C:/Users/i827456/Pictures/Blog/Oct-25") 
require(XML) 
require(plyr) 
getKeyStats_xpath <- function(symbol) { 
    yahoo.URL <- "http://finance.yahoo.com/q/ks?s=" 
    html_text <- htmlParse(paste(yahoo.URL, symbol, sep = ""), encoding="UTF-8") 

    #search for <td> nodes anywhere that have class 'yfnc_tablehead1' 
    nodes <- getNodeSet(html_text, "/*//td[@class='yfnc_tablehead1']") 

    if(length(nodes) > 0) { 
    measures <- sapply(nodes, xmlValue) 

    #Clean up the column name 
    measures <- gsub(" *[0-9]*:", "", gsub(" \\(.*?\\)[0-9]*:","", measures)) 

    #Remove dups 
    dups <- which(duplicated(measures)) 
    #print(dups) 
    for(i in 1:length(dups)) 
    measures[dups[i]] = paste(measures[dups[i]], i, sep=" ") 

    #use siblings function to get value 
    values <- sapply(nodes, function(x) xmlValue(getSibling(x))) 

    df <- data.frame(t(values)) 
    colnames(df) <- measures 
    return(df) 
    } else { 
    break 
    } 
} 

tickers <- c("AAPL") 
stats <- ldply(tickers, getKeyStats_xpath) 
rownames(stats) <- tickers 
write.csv(t(stats), "FinancialStats_updated.csv",row.names=TRUE) 

####################################################################### 

Answer 3

が、ここでは簡単な関数スクリプトです：

library(XML) 

getKeyStats <- function(symbol) { 
    barchart.URL <- "http://www.barchart.com/profile.php?sym=" 
    barchart.URL.Suffix <- "&view=key_statistics" 
    html_table <- readHTMLTable(paste(barchart.URL, symbol, barchart.URL.Suffix, sep = "")) 
    df_keystats = html_table[[5]] 
    print(df_keystats) 
}