字符和数值之间的转换

kkkttt · 发表于 2005-11-5 18:28

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？我要加入

x

最简单的方法是用内部文件，即用字符变量作为文件。 下面程序段读取系统时间，存入字符变量now，再将now的时分秒转换为整数值读出。 program TimeNow character*8 :: now integer :: hh,mm,ss call time (now) ! 读系统时间 write(*,*) now ! 写出时间字符串 ! 用字符变量now作为内部文件，从中将时、分、秒作为整数读出 read(now,"(I2,1x,I2,1x,I2)") hh,mm,ss ! 字符转换为 write(*,*) hh,mm,ss ! 写出时、分、秒的整数值 stop end program TimeNow 屏幕输出例： 01:35:05 1 35 5 数值转换为字符是类似的，用写语句即可: write(now,"(2I1,1H:,I2,1H:,2I1)") 0,1,35,0,5

FSI · 发表于 2005-11-12 20:25

8错，很实用奖励奖励

账号		自动登录	找回密码
密码			我要加入

[其他相关] 字符和数值之间的转换

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。