string - Fortran:如何从字符中删除文件扩展名

Question

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

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

字符(len=256)::输入文件，输出文件

原文件: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