马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
最简单的方法是用内部文件,即用字符变量作为文件。<BR><BR>下面程序段读取系统时间,存入字符变量now,再将now的时分秒转换为整数值读出。<BR><BR>program TimeNow<BR> character*8 :: now<BR> integer :: hh,mm,ss<BR><BR> call time (now) ! 读系统时间<BR> write(*,*) now ! 写出时间字符串<BR><BR> ! 用字符变量now作为内部文件,从中将时、分、秒作为整数读出<BR> read(now,"(I2,1x,I2,1x,I2)") hh,mm,ss ! 字符转换为<BR> write(*,*) hh,mm,ss ! 写出时、分、秒的整数值<BR><BR> stop<BR>end program TimeNow<BR><BR>屏幕输出例:<BR>01:35:05<BR>1 35 5<BR><BR><BR>数值转换为字符是类似的,用写语句即可:<BR> write(now,"(2I1,1H:,I2,1H:,2I1)") 0,1,35,0,5<BR> |