您的位置:首页 > 编程语言 > MATLAB

以前写的matlab代码,有部分是从txt导数据到matlab里,还有合并矩阵

2016-02-16 09:39 453 查看
功能有把txt/excel表导数据到matlab里,还有合并矩阵,还有连mysql数据库

我从以前的代码里找到,不知道这个版本是不是能运行的,但是也差不多就是这样。matlab中总是要转换数据的类型,心好累

load 'X:/work/CN_Univ.mat'

t=dhfetch('S_SHARE_TOTAL','CN_Univ.RIC',datestr(date,'yyyy-mm-dd'));

c=dhfetch('S_SHARE_FREESHARES','CN_Univ.RIC',datestr(date,'yyyy-mm-dd'));

dhfetch('S_SHARE_TOTAL','000001.SZ','2015-10-27')

dhfetch('S_SHARE_TOTAL','000001.SZ',datestr(date,'yyyy-mm-dd'))

dhfetch('S_SHARE_TOTAL',CN_Univ.RIC,datestr(date,'yyyy-mm-dd'))

clc

t=dhfetch('S_SHARE_TOTAL',CN_Univ.RIC,datestr(date,'yyyy-mm-dd'))

clc

t=dhfetch('S_SHARE_TOTAL',CN_Univ.RIC,datestr(date,'yyyy-mm-dd'));

c=dhfetch('S_SHARE_FREESHARES',CN_Univ.RIC,datestr(date,'yyyy-mm-dd'));

for i = 1:length(CN_Univ.RIC)

a=CN_Univ.RIC{i,1};

id(i) = str2num(a(1:6));

end

id=id';

txtFileName = 'X:\work\capitalStock.txt';

fid = fopen(txtFileName,'w+');

for ii = 1:size(Temp,1)

for jj = 1:size(Temp,2)

if ii < size(Temp,1)

if jj == 1

fprintf( fid, '%s\t', Temp{ii,jj});

else

fprintf( fid, '%s\n', Temp{ii,jj});

end

elseif ii == size(Temp,1)

if jj == 1

fprintf( fid, '%s\t',Temp{ii,jj});

else

fprintf( fid, '%s\n',Temp{ii,jj});

end

end

end

end

%合并两个矩阵到一个里面 c,d分别为一个矩阵名

Temp(:,1)=id;

Temp(:,2)=t;

Temp(:,3)=c;

Temp{:1}=id

Temp=[id t c]

t=cell2mat(t)

t=int32(t)

t=dhfetch('S_SHARE_TOTAL',CN_Univ.RIC','2015-10-27');

t=dhfetch('S_SHARE_TOTAL',000018.sz','2015-10-27');

t=dhfetch('S_SHARE_TOTAL','000018.sz','2015-10-27');

t=dhfetch('S_SHARE_TOTAL',CN_Univ.RIC','2015-10-27');

t=dhfetch('S_SHARE_TOTAL',CN_Univ.RIC,'2015-10-27');

dhfetch('S_SHARE_TOTAL','000018.sz','2015-10-27')

find(cell2mat(t) == 420991949)

find(strcmp(CN_Univ.RIC,'000018.sz'))

CN_Univ.RIC

clc

test=[ans';t';c']

clc

test=test';

idcell=num2cell(id);

test=[idcell';t';c'];

test=test'

clc

DH

c=dhfetch('S_SHARE_FREESHARES',CN_Univ.RIC,datestr(date,'yyyy-mm-dd'));

txtFileName = 'X:\work\capitalStock.txt';

fid = fopen(txtFileName,'w+');

for ii = 1:size(test,1)

for jj = 1:size(test,2)

if ii < size(test,1)

if jj == 1

fprintf( fid, '%s\t', test{ii,jj});

else

fprintf( fid, '%s\n', test{ii,jj});

end

elseif ii == size(Temp,1)

if jj == 1

fprintf( fid, '%s\t',test{ii,jj});

else

fprintf( fid, '%s\n',test{ii,jj});

end

end

end

end

txtFileName = 'X:\work\capitalStock.txt';

fid = fopen(txtFileName,'w+');

for ii = 1:size(test,1)

for jj = 1:size(test,2)

if ii < size(test,1)

if jj == 1

fprintf( fid, '%lf\t', test{ii,jj});

else

fprintf( fid, '%lf\n', test{ii,jj});

end

elseif ii == size(Temp,1)

if jj == 1

fprintf( fid, '%lf\t',test{ii,jj});

else

fprintf( fid, '%lf\n',test{ii,jj});

end

end

end

end

txtFileName = 'X:\work\capitalStock.txt';

fid = fopen(txtFileName,'w+');

for ii = 1:size(test,1)

for jj = 1:size(test,2)

if ii < size(test,1)

if jj == 1

fprintf( fid, '%f\t', test{ii,jj});

else

fprintf( fid, '%f\n', test{ii,jj});

end

elseif ii == size(Temp,1)

if jj == 1

fprintf( fid, '%f\t',test{ii,jj});

else

fprintf( fid, '%f\n',test{ii,jj});

end

end

end

end

test=[idcell';t';c'];

test=test'

clc

filename='X:\work\Excle.xls';

[status,message]=xlswrite( filename,test,'sheet1')

conn =database('test','jtjz','jtjz123456','com.mysqljdbc.Driver','jdbc:mysql://192.168.0.19:3306/test');
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: