Fortran：如何从字符中删除文件扩展名

Question

我有一个Fortran代码，要求用户输入文件名。代码处理该文件，我想根据原始文件名写出另一个文件。我想如果我能理解如何删除文件扩展名，那么我可以将我想要的内容连接到最后。

如何删除字符中的文件扩展名？

字符（len = 256）:: input_file，output_file

原始档案：AnyName.xxx

输出文件：AnyName_Output.csv

Answer 1

您可以使用scan找到字符串input_file中最后一个点的位置。然后你可以使用该位置来提取没有扩展名的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