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

Question

我有一段Fortran代码，它要求用户输入一个文件名。该代码会处理该文件，我想根据原始文件名编写另一个文件。如果我能理解如何删除文件扩展名，那么我只需将任何我想要的内容连接到其末尾。

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

character(len=256):: input_file, output_file

原始文件：任意名称.xxx

输出文件：AnyName_Output.csv

- Mark S

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

- credondo