clear all
numeroDiLinee=0;
numCaratteri=0;
numeroDiParole=0;
A={};
filelettura=fopen("testo.txt","r")
while ~feof(filelettura)
    a=fgets(filelettura);
    A{numeroDiLinee+1}=a;
    numeroDiLinee = numeroDiLinee + 1;
    numCaratteri=numCaratteri+strlength(a)
    Parole = strsplit(a); % Split the string into words
    numeroDiParole = length(Parole); % Count the number of words
end

fid=fopen("intervista.txt","w")
fprintf(fid, '#Numero di caratteri: %d  ', numCaratteri);
fprintf(fid, 'Numero di parole: %d  ', numeroDiParole);
fprintf(fid, 'Numero di linee: %d\n', numeroDiLinee);
for indice=1:length(A)
    a=A{indice};
    a(find(a>=97 & a<=122))=a(find(a>=97 & a<=122))-32 %converte nimuscole in maiuscole
    fprintf(fid,"%s",a);
end
fclose(fid);