Matlab 版 (精华区)

发信人: hitwdh (心灯), 信区: Matlab
标  题: [每日一题]如何读出txt文件，并且重新排版？
发信站: 哈工大紫丁香 (Sun Oct  2 21:27:19 2005), 转信

//萝卜回家，替萝卜贴。

把txt文件排版
萝卜 @ 2005-09-25 12:36

把下面的记事本文件形式: 
visual sensation视觉Chromaticity Diagram色度图Color Temperature色温HSV Model色彩模型 

排版为 
visual sensation视觉 
Chromaticity Diagram色度图 
Color Temperature色温 
HSV Model色彩模型 

程序如下: 

function typeset_txt 
% Author's email: zjliu2001@163.com 
clc; 
fid1=fopen('aa.txt');   % aa.txt是排版前的文件名 
fid2 = fopen('aanew.txt','wt'); % aanew.txt是排版后的文件名 
ss=[char(65:90),char(97:122),' ','-','(',')']; 
sd=[]; 
while 1; 
   tline = fgetl(fid1); 
   k1=0; 
   k2=0; 
   for k=1:length(tline); 
       dd=nnz(tline(k)-ss); 
       if dd==55 & ~k1; 
           sd=[sd,tline(k)]; 
       elseif dd==56 & ~k2; 
           sd=[sd,tline(k)]; 
           k1=1; 
       elseif dd==55 & ~k2; 
           fprintf(fid2,'%c',sd); 
           fprintf(fid2,'%c\n',' '); 
           sd=[];k1=0;k2=0; 
       end 
   end 
   if ~ischar(tline), break, end 
end 
fclose(fid1); 
fclose(fid2); 
figure; 
 


Trackback地址: http://www.yculblog.com/trackback/4/882798



--
 欢迎访问HIT振动中心站点:http://vib.hit.edu.cn  ftp://vib.hit.edu.cn 
特  色   版   面：
动力学研究专区：力学基础理论、结构动力学分析及优化、流体动力学及热分析、
                数学与非线性、耦合动力学模型及分析、故障诊断及噪声控制
综合讨论区：    科学研究方法、学术漫谈、国防和工业科技
计算辅助工具专区：工程数学软件、工程商用软件应用、算法原理及编程、计算机安全维护


※ 修改:·hitwdh 于 Oct  2 21:27:54 修改本文·[FROM: 202.118.237.9]
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.237.9]