!可以借助fortran的内部文件来实现，核心概念是把字符串看作"文件"
integer::num
character*20::str1,str2,str3
num=11
str1='11'
str2='22'
str3='33'
!1，数字转字符
write(str1,"(i4.4)")num ! 如有需要，不足四位前面补零
print*,str1
!2，字符转数字
read(str1,"(i2)")num
print*,str1
!3，字符转字符（字符串连接...）
write(str1,"(a8)")trim(str1)//trim(str2)//trim(str3)//'eg'
!两个斜杆//连接不同的字符串
!还有一种办法可以实现字符串连接
str1(3:4)=str2
str1(5:6)=str3
str1(7:8)='eg'
print*,str1
end
注意：
Fortran 无格式文件的读写，是按数据块操作的，默认文件头文件尾和中间字节，编译器不同文件插入字节也可能不同；
与C语言通过文件交互时，最好选用二进制或文本格式，慎用无格式。
============================================================
转换成浮点数
character( 3 ) :: cStr = '123'
Real :: rReal = 0.0
Read( cStr , * ) rReal
此时 rReal = 123.0
从数字转换成字符串，用 Write 既可
character( 3 ) :: cStr
Integer :: iInt = 123
Write( cStr , * ) iInt
此时 cStr = '123'
转自：http://zhidao.baidu.com/link?url=RTODmKdugFVNA7AeKL6fIiFBnPH-BHwIlr6g9qZy0RXXPyagk_GQHyneAVPLCBqBgzsyRRA5lntBkNWBMgqz7_
=======================================================================================
FORTRAN语言中整数转换为字符串，如整数123变为字符串
FORTRAN中整（实）型与字符型转换
2008-01-13 18:21
整型 转字符，借助FORTRAN语言的内部文件完成，即将一个字符串变量当作一个内部文件来看待。给一个实用的例子吧。
假如你有一组文件有20个，命名规律是myFile*.dat，其中*是从1到20递增的整型 数，则要用循环依次打开这些文件可以这样写：
program main
implicit none
character( len = 2 ) :: cTemp
integer :: k
do k = 1, 20
write( cTemp,'(i2)' ) k
open ( 1, file = 'myFile' // trim(adjustl(
cTemp )) // '.dat', status = 'old' )
...
close( 1 )
end do
end porgram main
这里因为k可能是一位数，也可能是两位数，所以字符串变量cTemp的长度至少要是2个字符长度，才能保证最大整数能装下。trim和adjustl是FORTRAN的标准内部函数。adjustl的作用是将字符串里的内容左对齐，空格置于右端。trim的作用是将字符串末尾(即右端)的空格删掉。这样无论你的k是一位数还是两位数，都可以保证open路径中不会出现多余的空格。//
是FORTRAN的字符串操作符，作用是将字符串连接起来。
同理，如果是字符型 数字转整型 或实型，方法一样，比如：
character( len = 4 ) :: cTemp = '2007'
integer :: year
read( cTemp, '(i4)' ) :: year
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
用write语句
CHARACTER*3 STR
WRITE(STR,'(A3)')123
此时STR作为内部文件使用
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Use a character string variable as an "internal file", write
the file
: name you want to this string (like sprintf in C), and use the
string.
: character(len=12)::fname
: integer::i
: do i=0,9999,1
: write(unit=fname,fmt="('file',i4.4,'.dat')")i ! like sprintf() in
C
: open(unit=10,file=fname)
: ...
: close(unit=10)
: end do
编制有限元程序时，经常要用到序列文件名，如：
file001.txt, file002.txt, ...
贴出源程序，供各位参考：
文件名： NAMEGEN.F90
****************************************************************************
MODULE NAMEGEN_
CONTAINS
!
*****************************************************************
FUNCTION NAMEGEN (NAME, NUM, INDEX, EXT)
!
*****************************************************************
!
! 程序说明：
!
Generate sorted file name. Attach the number after each filename.
!
The conversion of integer value into character is used.
!
! INPUT:
! NAME filename;
! NUM
indicate the maximum file number
! used, e.g.
! "0000","00000";
! INDEX
the number of this file;
! EXT
extension of the file;
! EXAMPLE:
! NAME='FILE'
! NUM='0000'
! INDEX=18
! EXT='TXT'
!
Returned name is: FILE0018.TXT
!
!
Xin Zhao, 2002-2-12
!
*****************************************************************
CHARACTER*108 NAMEGEN,NA,NUM1
CHARACTER*(*) NAME,EXT,NUM
INTEGER*4 INDEX,LENGTH1,LENGTH2
WRITE(NA,'(I4)') INDEX
NA=ADJUSTL (NA)
LENGTH1=LEN_TRIM(NA)
LENGTH2=LEN_TRIM(NUM)
NUM1=NUM(1:(LENGTH2-LENGTH1))//NA
NAMEGEN=TRIM(NAME)//TRIM(NUM1)//'.'//TRIM(EXT)
END FUNCTION
END MODULE
&%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Fortran字符串操作备忘录——产生序列文件名
2008-2-18 幻影整理
主程序： 根据一个前缀字符串、一个序列号，生成一个文件名。
函数1：根据一个字符串、串定义长度，计算该串非空字符的首个位置。
函数2：根据一个字符串、串定义长度、非空字符的首个位置，计算该串非空字符的未尾位置。
cccccccccccccccccccccccccccccccccccccccccc Main
Program
program test
cccc
Just to make string with prefix Name
cccc
and serial Num
parameter(lengthStr=80,lengthNum =5)
character(len=lengthStr)::str
character(len=lengthNum)::num
character(len=lengthStr)::preName
integer i,baseNum
integer loca1Pre,loca2Pre
integer loca1Num,loca2Num
integer loca1Str,loca2Str
ccccccccccccccccccccccccc
make subString : prefix
Name
preName='file'
loca1Pre = loca1(preName,lengthStr)
loca2Pre = loca2(preName,lengthStr,loca1Pre)
write(*,*)'preName (',loca1Pre,':',loca2Pre,
+
') = ', preName(loca1Pre:loca2Pre)
baseNum =
1000
！ 为整型数值转换为长度相同（3位）的字符串而准备
cccccccccccccccccccccccc
do i=1,10
cccc
make subString : serial Num
write(num,*)baseNum +
i
！ 统一整型数的位数，将1变为1001，转字符串类型
loca1Num =
loca1(num,lengthNum)+1
！非空字符的首个位置向后移动一位，将1001变为001
loca2Num = loca2(num,lengthNum, loca1Num)
cccc
make final String
！ 前缀_SerialNum.txt
str = preName(loca1Pre:loca2Pre)//'_'
+
//num(loca1Num:loca2Num)//'.txt'
loca1Str = loca1(str,lengthStr)
loca2Str = loca2(str,lengthStr, loca1Str)
cccc
write(*,*)'i=',i,', num=',num,', num(',loca1Num,':',loca2Num,
+
')=',num(loca1Num:loca2Num) ,
+
', str(',loca1Str,':',loca2Str,
+
' )= ', str(loca1Str:loca2Str),'.'
enddo
end
ccccccccccccccccccccccccccccccccccccccccc
Function 1
integer function loca1(str,length)
cccc
get the begin point of
string
character*256 str
integer loca2,length
integer i
do i=1,length
if (str(i:i).ne.'') then
goto 222
endif
enddo
222
loca1=i
return
end
ccccccccccccccccccccccccccccccccccccccccc
Function 2
integer function loca2(str,length,loca1)
cccc
get the end point of string
character*256 str
integer loca1 ,length
do i=loca1+1,length
if (str(i:i).eq.'') then
goto 223
endif
enddo
223
loca2 = i-1
return
加载中…