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