如何读取数值和字符混合型文本文件中的数值型数据(正则表达式)[有代码]

hylovegj

data.in文本文件包含以下信息：
a
b
c
0 1 2 3 0 0
   1 2 3 0 0 →注意本行开头是两个空格！
0 4 5 6 0 0
d
e
0 7 8 9 0 0
   7 8 9 0 0 →注意本行开头是两个空格！
0 10 11 12 0
请问如何将其中的非零数值型数据写入data.out文本文件？
我要的结果是data.out文件只包含下面的数据：
1 2 3
1 2 3
4 5 6
7 8 9
7 8 9
10 11 12
请各位朋友积极建言献策。小弟在此先行谢过！

lin2009

用正则表达式函数regexp()把每一行的非零数值提取出来。

feynmand

看你的输入数据结构是不是很规范了，如果是你写出的这样，那么可以将每行前两个字符去掉，然后取剩余的前三个数字就可以了。

hylovegj

用正则表达式函数regexp()把每一行的非零数值提取出来。
lin2009 发表于 2010-11-8 16:34

“lin2009”兄，能否麻烦您说想详细一点？最好写个m文件把具体操作方法贴出来。

hylovegj

看你的输入数据结构是不是很规范了，如果是你写出的这样，那么可以将每行前两个字符去掉，然后取剩余的前三个数字就可以了。
feynmand 发表于 2010-11-8 19:49

这个是FEA软件分析产生的结果文件，格式是一样的，数据被我简化了。我要用for循环不断修改里面的这些数值型数据，调用FEA软件分析，所以根本不可能手动去掉前面的空格。等待更完善的做法。。。

zhouyang664

对于你的数据，只需用fgets读进来一行，将前两个字符去掉，然后只读取3个数字不就可以了吗？
仅仅提供一种思路...

xuxu1457

就用fgets或者fgetl读取一行 然后选取就行 以前用这个做过ABAQUS的inp文件的转换

qibbxxt

1. clear;clc;close all
   
2. fid=fopen('data.in');
   
3. fid1=fopen('data.out','w');
   
4. while ~feof(fid)
   
5.     tline = fgetl(fid);
   
6.     str=textscan(tline,'%s','delimiter',' ');
   
7.     strd=str2double(str{:});
   
8.     if all(isnan(strd))
   
9.         continue;
   
10.     else
    
11.         data=nonzeros(strd(~isnan(strd)));
    
12.         fprintf(fid1,'%d ',data');
    
13.     end
    
14.     fprintf(fid1,'\n');
    
15. end
    
16. fclose(fid);
    
17. fclose(fid1);
    
18. dbtype data.out

复制代码

1. 
   
2. 1     1 2 3
   
3. 2     1 2 3
   
4. 3     4 5 6
   
5. 4     7 8 9
   
6. 5     7 8 9
   
7. 6     10 11 12
   

复制代码

注：本程序只适用于此种形式的数据，如果文件中的数据有变，就灵活调整程序

bainhome

感觉continue可以不用，把else的那部分提到前面，else部分可不写，也可用disp或者error之类写个提示什么的。

hylovegj

特别感谢qibbxxt 版主关于如何跳过非数值行的思路。我要处理的数据比我在帖子里举的要复杂，但在qibbxxt 版主的启发下问题已得到解决。我会贴出原问题和我的初步解答方法，请大家帮我改进。感谢大家的帮助！

lin2009

感觉应该不会像8#那样复杂，就重新看了一下Matlab的正则表达式。
发现这样的问题用正则表达式处理很简单。
程序和说明（注释）如下：
data.in文本文件包含以下信息：
a
b
c
0 1 2 3 0 0
   1 2 3 0 0 →注意本行开头是两个空格！
0 4 5 6 0 0
d
e
0 7 8 9 0 0
   7 8 9 0 0 →注意本行开头是两个空格！
0 10 11 12 0
请问如何将其中的非零数值型数据写入data.out文本文件？

1. 
   
2. objstr = fileread('data.in'); % 将整个文件文本以字符串形式读取，赋给变量。
   
3. pat = '(([1-9]\d*)\s+){2}([1-9]\d*)';  % 正则表达式模式，读取三个以空格分开的整数。
   
4. m = regexp(objstr,pat,'match');     % 行模式
   
5. fid = fopen('data.out','w');
   
6. fprintf(fid, '%s\n', m{:});                  % 不用循环，直接写入目标文件
   
7. fclose(fid);
   

复制代码

data.out文件即为1#所需。

rocwoods

正则表达式的介绍MATLAB帮助文档说得很详细，而且正则表达式运用好了，很多时候也非常给力。不想看英文的同学可以看看WaitingForMe和sogooda的这两个帖子：
http://forum.simwe.com/thread-469324-1-1.html
http://forum.simwe.com/viewthread.php?tid=810764

aliuhj

这个帖子的回帖阵容可谓空前强大啊！三个版主，一个VIP会员，一个五级会员，而且还那么多高水准代码，够给力！要是论坛里的每个问题贴都可以这么火爆，得到这么多高人的关注，仿真论坛的学术氛围一定会越来越浓厚的。

knightman

都是高人。 学习了，尽管我很多都看不懂。

hylovegj

我自己写了一段很菜的代码，方法很笨，但思路很清晰，对不会正则表达式的朋友也是一种可以考虑的选择。下面是代码，大家可以帮我改进一下。

1. 
   
2. fid_in = fopen('data.in');
   
3. fid_out = fopen('data.out','w');
   
4. i = 0;
   
5. while ~feof(fid_in) % 判断文件指针是否达到文件末尾
   
6.     tline = fgetl(fid_in); % 将文件指针所在的行作为一个字符串整体读入
   
7.     if isnan(str2double(strread(tline,'%s%*[^\n]')))
   
8.         continue;% 跳过以字母开头的行
   
9.     else
   
10.         i = i + 1;% i用于统计数据行，并作为存储所读取数据的数组元素的下标
    
11.         if strncmp(tline,'0',1)
    
12.             [a(i),b(i),c(i)]=strread(tline,'%*d%d%d%d%*[^\n]');
    
13.             % 读取以0开头的数据行中的非零数据
    
14.         else
    
15.             [a(i),b(i),c(i)]=strread(tline,'%d%d%d%*[^\n]');
    
16.             % 读取不是以0开头的数据行中的非零数据
    
17.         end
    
18.     end
    
19.     fprintf(fid_out,'%d  %d  %d\n',a(i),b(i),c(i));
    
20.     % 将所读取的数据写入data.out文件
    
21. end
    
22. fclose(fid_in);
    
23. fclose(fid_out);
    

复制代码