声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 2618|回复: 1

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

[复制链接]
发表于 2005-11-5 18:28 | 显示全部楼层 |阅读模式

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

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

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>
回复
分享到:

使用道具 举报

发表于 2005-11-12 20:25 | 显示全部楼层
8错,很实用  奖励奖励
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-11 01:11 , Processed in 0.060573 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表