Fortran: как удалить расширение файла из символа

Question

У меня есть код Fortran, который запрашивает у пользователя имя входного файла. Код обрабатывает этот файл, и я хотел бы записать другой файл на основе исходного имени файла. Я думаю, что если я смогу понять, как удалить расширение файла, тогда я могу просто конкатенировать все, что хочу, до конца.

Как отключить расширение файла в символе?

характер (Len = 256) :: input_file, output_file

Оригинальный файл: AnyName.xxx

Выходной файл: AnyName_Output.csv

Answer 1

Вы можете использовать scan, чтобы определить положение последнего точка в строке input_file. Затем вы можете использовать эту позицию, чтобы извлечь файл ввода без расширения и объединить новый.

character(len=256):: input_file, output_file 
integer :: ppos 
character(len=3) :: new_ext="csv" 

ppos = scan(trim(input_file),".", BACK= .true.) 
if (ppos > 0) output_file = input_file(1:ppos)//new_ext