文本文件操作

fan6cy

一个文本文件中，我想把每行的首字母为'$'的行全部删除，我做一个程序，总是出错，请问该怎么修改？
[filename,pathname]=uigetfile('*.txt','Select the text file','MultiSelect','on');
file=fullfile(pathname,filename);
fid=fopen(file,'w');
i=0
while ~feof(fid)
  line=fgetl(fid)
  if(~line(1)=='$')
   line=[]  
  end
i=i+1
end
fclose(fid);

例如a.txt的内容如下
abc
$cdgdsd
jdfsghu
$hshfg
要把第2行和第4行删掉

qibbxxt

下面的程序供你参考，希望对你有帮助

1. clear;clc;close all
   
2. a=textread('data.txt','%s');
   
3. b=a(cellfun(@isempty,strfind(a,'$')));
   
4. fid = fopen('datafile.txt', 'w');
   
5. fprintf(fid, '%s\n', b{:});
   
6. fclose(fid);
   
7. dbtype datafile.txt

复制代码

运行结果

1. 1     abc
   
2. 2     jdfsghu

复制代码