function total_length=text_length_num(file_cell)



total_length=0

for i=1:length(file_cell)

y1=char(file_cell(i))

for j=1:length(y1)

if(y1(j)== > )

got=j-3

end

end

y=

for k=1:got

y(k)=y1(k)

end

[a,b,c,d]=fileparts(y)

FileName=[b c]

fid=fopen(y)

total_length_char=0

while 1

tline = fgetl(fid)

if ~ischar(tline), break,-function total_length=text_length_num(file_cell)



total_length=0

for i=1:length(file_cell)

y1=char(file_cell(i))

for j=1:length(y1)

　　if(y1(j)== > )

　　　　got=j-3

　　end

end

y=　

for k=1:got

　　y(k)=y1(k)

end

[a,b,c,d]=fileparts(y)

FileName=[b c]

fid=fopen(y)

total_length_char=0

while 1

　　tline = fgetl(fid)

　　if ~ischar(tline), break,