我有一段Fortran代码,它要求用户输入一个文件名。该代码会处理该文件,我想根据原始文件名编写另一个文件。如果我能理解如何删除文件扩展名,那么我只需将任何我想要的内容连接到其末尾。
如何从字符中去除文件扩展名?
character(len=256):: input_file, output_file
原始文件:任意名称.xxx
输出文件:AnyName_Output.csv
您可以使用 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