FQuantToolBox/GetStock3Sheet_Web.m at master · faruto/FQuantToolBox · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
function [BalanceSheet,ProfitSheet,CashFlowSheet,YearList] = GetStock3Sheet_Web(StockCode,Year)
% 获取财务指标
% by LiYang_faruto
% Email:farutoliyang@foxmail.com
% 2014/12/12
% http://money.finance.sina.com.cn/corp/go.php/vFD_BalanceSheet/stockid/600588/ctrl/displaytype/4.phtml
% http://money.finance.sina.com.cn/corp/go.php/vFD_ProfitStatement/stockid/600588/ctrl/2014/displaytype/4.phtml
% http://money.finance.sina.com.cn/corp/go.php/vFD_CashFlow/stockid/600588/ctrl/part/displaytype/4.phtml
%% 输入输出预处理
if nargin < 2 || isempty(Year)
    Year = '2014';
end
if nargin < 1 || isempty(StockCode)
    StockCode = '600588';
end

% 股票代码预处理，目标代码demo '600588'
if strcmpi(StockCode(1),'s')
    StockCode = StockCode(3:end);
end
if strcmpi(StockCode(end),'h') ||  strcmpi(StockCode(end),'z')
    StockCode = StockCode(1:end-2);
end

BalanceSheet = [];
ProfitSheet = [];
CashFlowSheet = [];
YearList = [];
%% 获取数据-BalanceSheet

URL = ['http://money.finance.sina.com.cn/corp/go.php/vFD_BalanceSheet/stockid/' ...
    StockCode,'/ctrl/',Year,'/displaytype/4.phtml'];

[TableTotalNum,TableCell] = GetTableFromWeb(URL);

if iscell( TableCell ) && ~isempty(TableCell)
    TableInd = 20;
    FIndCell = TableCell{TableInd};

    TableInd = 19;
    YearList = TableCell{TableInd};
    YearList = YearList{2,1};
else
    return;
end
%% 数据再处理-YearList
temp = YearList;
YearList = [];
YearList{1,1} = ['历年数据'];
if iscell(temp)
    temp = temp{1};
end

Yend = str2num( temp(end-3:end) );
CurrenYear = str2num( Year );
for r = Yend:CurrenYear
    expr = [num2str(r)];
    [matchstart,matchend,tokenindices,matchstring,tokenstring,tokenname,splitstring] = regexpi(temp, expr);

    if ~isempty(matchstring)
        if iscell(matchstring)
            matchstring = matchstring{1};
        end
        len = size(YearList,1)+1;
        YearList{len,1} = str2num(matchstring);

    end
end
%% 数据再处理-BalanceSheet
[RowNum,ColNum] = size( FIndCell );

for s = 3:RowNum
    for t = 2:ColNum
        temp = FIndCell{s,t};
        if ~isempty(temp)
            temp = str2double(temp);
            if isnumeric(temp)
                FIndCell{s,t} = temp;
            else
                FIndCell{s,t} = [];
            end

        end
    end
end
BalanceSheet = FIndCell;
%% 获取数据-ProfitSheet

URL = ['http://money.finance.sina.com.cn/corp/go.php/vFD_ProfitStatement/stockid/' ...
    StockCode,'/ctrl/',Year,'/displaytype/4.phtml'];

[TableTotalNum,TableCell] = GetTableFromWeb(URL);

TableInd = 20;
FIndCell = TableCell{TableInd};
%% 数据再处理-ProfitSheet
[RowNum,ColNum] = size( FIndCell );

for s = 3:RowNum
    for t = 2:ColNum
        temp = FIndCell{s,t};
        if ~isempty(temp)
            temp = str2double(temp);
            if isnumeric(temp)
                FIndCell{s,t} = temp;
            else
                FIndCell{s,t} = [];
            end

        end
    end
end
ProfitSheet = FIndCell;
%% 获取数据-CashFlowSheet

URL = ['http://money.finance.sina.com.cn/corp/go.php/vFD_CashFlow/stockid/' ...
    StockCode,'/ctrl/',Year,'/displaytype/4.phtml'];

[TableTotalNum,TableCell] = GetTableFromWeb(URL);

TableInd = 20;
FIndCell = TableCell{TableInd};
%% 数据再处理-CashFlowSheet
[RowNum,ColNum] = size( FIndCell );

for s = 3:RowNum
    for t = 2:ColNum
        temp = FIndCell{s,t};
        if ~isempty(temp)
            temp = str2double(temp);
            if isnumeric(temp)
                FIndCell{s,t} = temp;
            else
                FIndCell{s,t} = [];
            end

        end
    end
end
CashFlowSheet = FIndCell;