matlab获取A股，港股，美股的全市场实时盘口数据

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1. % 例子
   
2. % load stocklistA;tic;[data,name]=get_stock_tick(stocklistA(:,4));toc
   
3. 
   
4. function [data,name]=get_stock_tick(stocklist) % 获取股票实时盘口数据
   
5. data=[];
   
6. name=[];
   
7. str=get_str(stocklist); % 获取需要解析
   
8. %% 判断是A股还是港股，美股
   
9. s=stocklist{1,1};
   
10. s=s(1);
    
11. if strcmp(s,'s') % A股
    
12.     N=1;
    
13. elseif strcmp(s,'r') % 港股
    
14.     N=2;
    
15. else % 美股
    
16.     N=3;
    
17. end
    
18. [data,name]=get_data(str,N,stocklist) ;% 解析
    
19. end
    
20. function str=get_str(stocklist) % 获取需要解析的字符
    
21. N=size(stocklist,1);
    
22. N1=800;
    
23. M=ceil(N/N1);
    
24. str=[];
    
25. for i=1:M
    
26.     ind1=(i-1)*N1 1;
    
27.     ind2=min(i*N1,N);
    
28.     symbol=[];
    
29.     for j=ind1:ind2
    
30.         symbolT=stocklist{j,1};
    
31.         if size(symbol,1)==0
    
32.             symbol=symbolT;
    
33.         else
    
34.             symbol=[symbol,',',symbolT];
    
35.         end
    
36.     end
    
37.     url2Read=['http://hq.sinajs.cn/list=',symbol];
    
38.     strT=urlread(url2Read);
    
39.     str=[str,strT];
    
40. end
    
41. end
    
42. 
    
43. function [data,name]=get_data(str,N,stocklist) % 解析
    
44. NN=N;
    
45. datacell=textscan(str,'%s','delimiter', ',');
    
46. datacell=datacell{1,1};
    
47. ind=strfind(datacell,'var hq_str' );
    
48. indA=find(~cellfun(@isempty,ind));
    
49. indDiff=[indA(1:end-1)-indA(2:end);indA(end)-size(ind,1)-1];
    
50. indD=find(indDiff~=min(indDiff));
    
51. indNow=find(indDiff==min(indDiff));
    
52. indB=indA;
    
53. indB(indD)=[];
    
54. datacell(indA,:)=[];
    
55. N=size(datacell,1)/size(indB,1);
    
56. M=size(indB,1);
    
57. dataA=reshape(datacell,N,M);
    
58. if NN==1
    
59.     dataA=dataA(1:end-3,:);
    
60.     name={'今日开盘价';'昨日收盘价';'最近成交价';'最高成交价';'最低成交价';'买入价';'卖出价';'成交数量';'成交金额';...
    
61.         '买数量一';'买价位一';'买数量二';'买价位二';'买数量三';',买价位三';'买数量四';'买价位四';'买数量五';...
    
62.         '买价位五';'卖数量一';'卖价位一';'卖数量二';'卖价位二';'卖数量三';'卖价位三';'卖数量四';'卖价位四';'卖数量五';'卖价位五'};
    
63. elseif NN==2
    
64.     dataA=dataA(2:16,:);
    
65.     name={'开盘';'昨收';'最高';'最低';'当前';'涨跌额';'涨跌幅';'卖一';'买一';'成交额';'成交量';'市盈率';'收益率';'52周最高';'52周最低'};
    
66. else
    
67.     dataA([3 14 24 25 27],:)=[];
    
68.     name={'最新价';'涨跌幅';'涨跌额';'开盘价';'最高价';'最低价';'52周最高价';'52周最低价';'成交量（单位股）';'平均成交量（单位股）';...
    
69.         '市值（单位元）';'每股收益,市盈率';'fpe';'贝塔系数';'股息,收益率,总股本（单位元）';'instown';'盘前盘后价';...
    
70.         '盘前盘后涨跌幅';'盘前盘后涨跌额';'昨收价'};
    
71. end
    
72. dataB=str2num(char(dataA));
    
73. dataC=reshape(dataB,size(dataA,1),M);
    
74. data=nan(size(dataC,1),size(stocklist,1));
    
75. data(:,indNow)=dataC;
    
76. 
    
77. end

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：delimiter function reshape delimit symbol

谢谢分享