Fortran数字转字符串以及字符串转数字

在fortran程序中，经常会碰到循环建立新文件，写入数据。对新建文件名我们一般用迭代的次数来作为区分，如何将迭代次数加到文件名中呢？这就需要将数字转为字符串，并与其他字符连接起来形成一个新的文件名。

program main
implicit none
character(len=180) str,path_dir
real*8 num
integer iter,i

iter=100

path_dir="~/a/"
num=50.22
str='11.1'
!字符串转数字
read(str,"(f7.1)") num
write(*,*) str
!数字转字符串
str = write(str,'(f7.1)') num
write(*,*) trim(adjustl(str)) !去掉空格

path_dir=path_dir//trim(adjustl(str))
write(*,*) path_dir !输出的路径中没有空格了

!在当前目录下新建100个文件名,如1.txt,2.txt
!如果是其他路径，请补充绝对路径或者相对路径，home目录请请补充绝对路径，不要使用~/
do i=1,iter
	str = write(str,'(I4)') i
	open(20,file="note"//trim(adjustl(str))//".txt")
	write(20,*) i
	close(20)
enddo
end program

常用的Fortran字符串函数

函数	解释
adjustl	移动字符串左对齐
adjustr	移动字符串右对齐
trim	去掉字符串右边空格
len	字符串长度
len_trim	不算字符串右边的空格的字符串长度
//	字符串连接符号

赏

谢谢金主

支付宝

微信