《Fortran产生序列文件名》由会员分享，可在线阅读，更多相关《Fortran产生序列文件名（2页珍藏版）》请在金锄头文库上搜索。
1、Fortran 字符串操作备忘录产生序列文件名主程序： 根据一个前缀字符串、一个序列号，生成一个文件名。函数 1：根据一个字符串、串定义长度，计算该串非空字符的首个位置。函数 2：根据一个字符串、串定义长度、非空字符的首个位置，计算该串非空字符的未尾位置。cccccccccccccccccccccccccccccccccccccccccc Main Programprogram testcccc Just to make string with prefix Namecccc and serial Numparameter(lengthStr=80,lengthNum =5)character
2、(len=lengthStr):strcharacter(len=lengthNum):numcharacter(len=lengthStr):preNameinteger i,baseNuminteger loca1Pre,loca2Preinteger loca1Num,loca2Numinteger loca1Str,loca2Str ccccccccccccccccccccccccc make subString : prefix Name preName=fileloca1Pre = loca1(preName,lengthStr)loca2Pre = loca2(preName,l
3、engthStr,loca1Pre)write(*,*)preName (,loca1Pre,:,loca2Pre,+ ) = , preName(loca1Pre:loca2Pre)baseNum = 1000 ！ 为整型数值转换为长度相同（3 位）的字符串而准备cccccccccccccccccccccccc do i=1,10cccc make subString : serial Num write(num,*)baseNum + i ！ 统一整型数的位数，将 1 变为1001，转字符串类型loca1Num = loca1(num,lengthNum)+1 ！非空字符的首个位置向后移动
4、一位，将 1001 变为 001loca2Num = loca2(num,lengthNum, loca1Num)cccc make final String ！ 前缀_SerialNum.txtstr = preName(loca1Pre:loca2Pre)/_+ /num(loca1Num:loca2Num)/.txtloca1Str = loca1(str,lengthStr)loca2Str = loca2(str,lengthStr, loca1Str)ccccwrite(*,*)i=,i, num=,num, num(,loca1Num,:,loca2Num,+ )=,num(lo
5、ca1Num:loca2Num) ,+ , str(,loca1Str,:,loca2Str,+ )= , str(loca1Str:loca2Str),. enddoendccccccccccccccccccccccccccccccccccccccccc Function 1integer function loca1(str,length)cccc get the begin point of string character*256 strinteger loca2,lengthinteger ido i=1,lengthif (str(i:i).ne.) thengoto 222end
6、ifenddo222 loca1=ireturn endccccccccccccccccccccccccccccccccccccccccc Function 2 integer function loca2(str,length,loca1)cccc get the end point of stringcharacter*256 strinteger loca1 ,lengthdo i=loca1+1,lengthif (str(i:i).eq.) thengoto 223endifenddo223 loca2 = i-1return endccccccccccccccccccccccccc
7、cccccccccccccccccc运行结果：preName ( 1: 4) = filei= 1, num= 1001, num( 3: 5)=001, str( 1: 12 )= file_001.txt.i= 2, num= 1002, num( 3: 5)=002, str( 1: 12 )= file_002.txt.i= 3, num= 1003, num( 3: 5)=003, str( 1: 12 )= file_003.txt.i= 4, num= 1004, num( 3: 5)=004, str( 1: 12 )= file_004.txt.i= 5, num= 1005
8、, num( 3: 5)=005, str( 1: 12 )= file_005.txt.i= 6, num= 1006, num( 3: 5)=006, str( 1: 12 )= file_006.txt.i= 7, num= 1007, num( 3: 5)=007, str( 1: 12 )= file_007.txt.i= 8, num= 1008, num( 3: 5)=008, str( 1: 12 )= file_008.txt.i= 9, num= 1009, num( 3: 5)=009, str( 1: 12 )= file_009.txt.i= 10, num= 1010, num( 3: 5)=010, str( 1: 12 )= file_010.txt.
