128.111.101.185: Created page with '

 function deemmer(filename) %created by Erik Stassinos 4/11/2010 %this is a short function to remove the '^M' that is created at the end of %the line by matlabs write/print …'

2010-08-05T22:37:15Z

Created page with '<pre> function deemmer(filename) %created by Erik Stassinos 4/11/2010 %this is a short function to remove the '^M' that is created at the end of %the line by matlabs write/print …'

New page

<pre>
function deemmer(filename)
%created by Erik Stassinos 4/11/2010
%this is a short function to remove the '^M' that is created at the end of
%the line by matlabs write/print function
%call in the file you want deemmed

hs6t =0;
demfile = fopen(filename);
newfile = strcat('d',filename);
hs6test = filename(1,3)
if strncmp(hs6test,'h',1) ~= 1
cd ..
cd('final')
end
if strncmp(hs6test,'h',1) == 1
hs6t =1
cd('final')
end
newfile = fopen(newfile,'w+');
count = 0;
n=2;
linecount = 1;

dmlength = 40;
if hs6t ==1
dmlength =55;
end
while linecount < dmlength%feof(demfile) ~= 1
clear lineis
line = fgets(demfile);
lengthfirst = length(line);

line = strread(line,'%s',lengthfirst)';
lengthafterread = length(line);
for i = 1:lengthafterread
lineis{i,:} = line{:,i}';
end
% linechar = char(lineis{:,1})' %ttttttttesssssssssssttttttt
for t =1:(length(lineis) -1);
q = lineis{t,:}';
fprintf(newfile,'%s',q);
fprintf(newfile,'%s',' ');
end
clear q
q1 = lineis{length(lineis),:}';
fprintf(newfile,'%s\n',q1);

%line = line'
count = count +1;
location = ftell(demfile);
linecount = linecount +1;
end

while feof(demfile) ~= 1;
nomline = fgets(demfile);
fprintf(newfile,nomline);
end

close all
pwd
cd ..
if strncmp(hs6test,'h',1) ~= 1

cd('processing')
end

</pre>

<big>[[deemmer]]<big>

Deemmer.m - Revision history

128.111.101.185: Created page with '
function deemmer(filename) %created by Erik Stassinos 4/11/2010 %this is a short function to remove the '^M' that is created at the end of %the line by matlabs write/print …'