Edit Textfile for analysis

Question

RAKESH KUMAR TOTA 2021-1-12

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/715108-edit-textfile-for-analysis

编辑： Rik 2021-1-18

aba.txt

Hi, I here by attached text file. I want the text file to be read as the following manner. Any help would be appreciated. Thank you

*Heading

** Job name: Job-1 Model name: Model-1

** Generated by: Abaqus/CAE 6.14-5

*Preprint, echo=NO, model=NO, history=NO, contact=NO

**

** PARTS

**

*Part, name=rect

*Node

1, -0.375, -0.125

2, -0.427631587, -0.125

3, -0.480263144, -0.125

*Element, type=CPS4

1, 1, 2, 22, 21

2, 2, 3, 23, 22

3, 3, 4, 24, 23

4, 4, 5, 25, 24

*End Part

**

2 个评论
显示无隐藏无

Mathieu NOE 2021-1-13

hi

you can use readlines :

readlines('file.txt')

RAKESH KUMAR TOTA 2021-1-13

编辑：Rik 2021-1-13

Please check the text fie which i uploaded. I know how to read the file but the problem is i have to edit the node data lines where . to be remove and also one line to be leaved after starting element data and also after element data one line to be leaved. All lines to be started from left allignemnt and there should be a gap of only one space between node and element data.

any help in this direction would be appreciated

请先登录，再进行评论。

请先登录，再回答此问题。

Answer 1

Rik 2021-1-13

0
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/715108-edit-textfile-for-analysis#answer_596988

编辑：Rik 2021-1-13

在 MATLAB Online 中打开

readfile.m

You can get my readfile function from the FEX. If you are using R2017a or later, you can also get it through the AddOn-manager.

The readlines function was introduced in R2020b and will work similar to readfile (except it will read to a string instead of a cell array of char arrays).

data=readfile('https://www.mathworks.com/matlabcentral/answers/uploaded_files/486763/aba.txt');
if isempty(data{end}),data(end)=[];end %strip trailing empty line if the file ended with a newline
for n=1:numel(data)
    if ~strcmp(data{n}(1),'*')
        str=data{n};
        %trim leading/trailing whitespace
        str=strtrim(str);
        
        %trim internal double spaces
        removed_double_spaces=inf;
        while removed_double_spaces~=0
            length1=length(str);
            str=strrep(str,'  ',' ');
            length2=length(str);
            removed_double_spaces=length1-length2;
        end
        
        %store back to cell array
        data{n}=str;
    end
end
fprintf('%s\n',data{:})
*Heading
** Job name: Job-1 Model name: Model-1
** Generated by: Abaqus/CAE 6.14-5
*Preprint, echo=NO, model=NO, history=NO, contact=NO
**
** PARTS
**
*Part, name=rect
*Node
1, -0.375, -0.125
2, -0.427631587, -0.125
3, -0.480263144, -0.125
*Element, type=CPS4
1, 1, 2, 22, 21
2, 2, 3, 23, 22
3, 3, 4, 24, 23
4, 4, 5, 25, 24
*End Part
**  

6 个评论
显示 4更早的评论隐藏 4更早的评论

RAKESH KUMAR TOTA 2021-1-13

Please check the allignment of lines in the text file. I want to change the text file according to the above way. Please see the above line which i wrote in comment section and check it with the text file . There is variation. For example please see the 10th line of text fiel and line which i would like to in text fiel i posted. Thank you

RAKESH KUMAR TOTA 2021-1-18

编辑：Rik 2021-1-18

Thank you for your answer.

Can you please look the below question. Its a similar question extension. Any help would save a lot of time. Thank you in advance.

https://it.mathworks.com/matlabcentral/answers/719820-input-files-editing-format

请先登录，再进行评论。

Answer 2

Mathieu NOE 2021-1-13

1
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/715108-edit-textfile-for-analysis#answer_597118

在 MATLAB Online 中打开

ok

so my 2 cent suggestion to make that array looks nicer -

lines = readlines('aba.txt','WhitespaceRule','trim');
ll_out = strings; % init string array
for ci = 1:numel(lines)
    ll = lines(ci,:);        % current line
    if ~startsWith(ll,'*');  % check lines 10 to 20 - here we have to work things out
        lldk = strrep(ll,' ',''); % remove all (multiple) blanks inside the char array
        ll_out(ci,1) = strrep(lldk,',',', '); % put back one blank after the comma (if really needed)
    else % nothing to do except copy the original line
        ll_out(ci,1) = ll;
    end
end
% save it - and remove the double quote
writematrix(ll_out, 'test.txt',"QuoteStrings",0)