% PEng 8.8
% Läsa in ett valfritt antal flyttal från fil, avrunda, skriv ut på annan
% fil som valts av användaren

clear 

% Be användaren om ett infilnamn ända tills Matlab lyckas öppna filen
fid = -1;
while fid < 0
	% Be användaren om ett infilnamn
	filnamn = input('Skriv ett namn på en (text)fil med flyttal: ', 's');
	% Öppna filen för läsning
	fid = fopen(filnamn);
	% Ge felmeddelande
	if fid < 0
		disp('Filen existerar inte.')
	end
end

% Läs alla flyttal från filen
flyttal = fscanf(fid, '%f');
% Stäng filen
fclose(fid);
	
% Avrunda och spara som heltal
heltal = round(flyttal);

% Be användaren om ett utfilnamn
filnamn = input('Skriv namnet på en (text)fil där de avrundade värdena ska lagras: ', 's');
% Öppna utfilen för skrivning
fid = fopen(filnamn, 'w');

% Skriv alla heltal på filen
fprintf(fid, '%i\n', heltal);
% Stäng filen
fclose(fid);
