将数据中： -变为空格的matlab程序

nx花儿-LJQ

clear;
fid=fopen('d:\cp.txt','r') ;
s = fscanf(fid,'%c') ; %以字符串形式读入原始数据
fclose(fid);
n=length(s) ;
%将日期及时间数据之间的-和:替换为空格，形成纯数字格式的数据
for i = 1 : n
    if strcmp(s(i),':') | strcmp(s(i),'-')
        s(i) = ' ' ;
    end
end
dat = sscanf(s,'%c') ; %将原始数据从字符串中读入到向量dat中
fid2 = fopen('d:\cpp.txt','w') ; %建立整理后的数据文件以备写入
m=length(dat);
for i = 1:m
fprintf(fid2,'%c',dat) ;
end
fclose(fid2)

fortran版：http://bbs.06climate.com/forum.php?mod=viewthread&tid=1991&extra=page%3D1

mofangbao

恩，不错，和上次的fortran程序形成对应了，而且注释很详细

artmunich

mofangbao 发表于 2011-8-31 20:36

                               
登录/注册后可看大图

恩，不错，和上次的fortran程序形成对应了，而且注释很详细

这个帖子现在在Fortran板块中，还是移到MATLAB板块较好，但可以加个与原来Fortran程序对应的链接

mofangbao

artmunich 发表于 2011-8-31 20:45

                               
登录/注册后可看大图

这个帖子现在在Fortran板块中，还是移到MATLAB板块较好，但可以加个与原来Fortran程序对应的链接

恩 我还没发现，我转一下

zsmnantong

花儿给力，感谢分享

artmunich

m=length(dat);
for i = 1:m
fprintf(fid2,'%c',dat) ;
end

这个循环看不懂，既然已经把转换后的字符串都写入到dat中了，就不需要循环了
可以直接fprintf(fid2,'%c',dat)
加上循环反而输出的有问题

nx花儿-LJQ

artmunich 发表于 2011-9-3 00:50

                               
登录/注册后可看大图

m=length(dat);
for i = 1:m
fprintf(fid2,'%c',dat) ;

呵呵 你说的很对 不过输出一点问题都没有 你说的那样也对 两种我都试过了 都是对的

又是那隻貓

这个挺好！！