主题：[原创]字符和数值之间的转换
mltx
[专家分：20880] 发布于 2005-04-13 01:43:00
最简单的方法是用内部文件，即用字符变量作为文件。
下面程序段读取系统时间，存入字符变量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
回复列表 （共39个回复）
21 楼
clmoonlight [专家分：80] 发布于 2007-04-23 17:38:00
如果我有一个整数3要转化为字符串“003”，应该怎么做呢？有没有简便的办法？
23 楼
ah1977_2006 [专家分：0] 发布于 2007-07-17 11:17:00
增长见识啊,谢谢
24 楼
zhngyu3 [专家分：100] 发布于 2007-07-20 02:24:00
2007年NewsBar好友收益翻一翻！活动狂增，今年赚钱更容易！http://www.ads4cn.com/newsbar/refferer.asp?zhngyu3
只有被模仿，从未被超越!NewsBar——信誉100%的免费网络赚钱工具！http://www.ads4cn.com/newsbar/refferer.asp?zhngyu3
现在加入，还可立刻获赠88个新闻点！（最新开通快速积分、购物返点通道，赚钱更容易！）
提醒：现在出现一些仿冒、抄袭NewsBar的网站，请注意鉴别！
NewsBar——最佳上网伴侣！她可以：
→ 1、一边上网，一边赚钱！
→ 2、及时了解最新信息；
→ 3、自由参加各种网络拍卖，赢得巨大乐趣；
→ 4、免费参与多个广告商随时开展的各种抽奖活动...
心动？立刻行动！点击这里，免费注册：http://www.ads4cn.com/newsbar/refferer.asp?zhngyu3
现在加入，还可立刻获赠88个新闻点！（最新开通快速积分、购物返点通道，赚钱更容易！）
提醒：现在出现一些仿冒、抄袭NewsBar的网站，请注意鉴别！
NewsBar——国内最老牌的网络冲浪赚钱工具！无投资、无风险、高信誉！每月16~30日准时付款！不影响您上网打牌、聊天、玩游戏！绝对的额外收入！点击这里，免费注册http://www.ads4cn.com/newsbar/refferer.asp?zhngyu3
现在加入，还可立刻获赠88个新闻点！（最新开通快速积分、购物返点通道，赚钱更容易！）
提醒：现在出现一些仿冒、抄袭NewsBar的网站，请注意鉴别！
国内首创！你看新闻我付费！您希望在网上赚钱吗？这一切都是免费的！您以前也许遇到过“网络传销”，这不仅仅不能够真正赚到钱，补贴上网费用，而且是不合法的。我们应该远离和抵制。来这里，您不必付出1分钱，不必担心上当受骗。点击这里，免费注册http://www.ads4cn.com/newsbar/refferer.asp?zhngyu3
现在加入，还可立刻获赠88个新闻点！（最新开通快速积分、购物返点通道，赚钱更容易！）
提醒：现在出现一些仿冒、抄袭NewsBar的网站，请注意鉴别！
人人都可以做的网络赚钱：不要网站，不要技术，不要投资1分钱！快乐看新闻，时时有喜报！
点击这里，免费注册http://www.ads4cn.com/newsbar/refferer.asp?zhngyu3
现在加入，还可立刻获赠88个新闻点！（最新开通快速积分、购物返点通道，赚钱更容易！）
提醒：现在出现一些仿冒、抄袭NewsBar的网站，请注意鉴别！
看看新闻也可以赚钱哦。想不到吧！
点击这里，免费注册http://www.ads4cn.com/newsbar/refferer.asp?zhngyu3
现在加入，还可立刻获赠88个新闻点！（最新开通快速积分、购物返点通道，赚钱更容易！）
提醒：现在出现一些仿冒、抄袭NewsBar的网站，请注意鉴别！
你也许错过了网络初期的赚钱机会，这次你一定不可以再错过！
点击这里，免费注册http://www.ads4cn.com/newsbar/refferer.asp?zhngyu3
现在加入，还可立刻获赠88个新闻点！（最新开通快速积分、购物返点通道，赚钱更容易！）
提醒：现在出现一些仿冒、抄袭NewsBar的网站，请注意鉴别！
看新闻，赚现金！无须点击广告，不必投入资金！
点击这里，免费注册http://www.ads4cn.com/newsbar/refferer.asp?zhngyu3
现在加入，还可立刻获赠88个新闻点！（最新开通快速积分、购物返点通道，赚钱更容易！）
提醒：现在出现一些仿冒、抄袭NewsBar的网站，请注意鉴别！
25 楼
tangyunyong [专家分：180] 发布于 2007-09-04 16:55:00
谢谢mltx的指教!!
26 楼
jifair [专家分：0] 发布于 2007-10-18 21:57:00
title='N, 309, 1.749976, 1.249976, 2.782393E-5'
write(*,*)title
read(title,"(2x,I8,5x,f11.9,5x,f11.9,5x,f11.9)") number,x,y,z
write(*,"('number：'I3'; X:'f16.14'; y:'f16.14'; z:'f16.14)")number,x,y,z
这样读出来的x=1.74997603893280,y=1.24997603893280,z=0.00002782392949
不知何故？是我用的f11.9格式问题吗？因为要读一系列小数，有的是1.5,而有的则是2.782393E-5这样的格式，我该如何是好？敬请各位前辈指教。
27 楼
weixing1531 [专家分：2580] 发布于 2007-11-28 20:52:00
哎,什么时候能把字符串"sin(x)",转化为函数表达式"sin(x)"?
即函数的表达式能像输入数字一样直接由键盘输入,而不是要预先在源程序中设置好
C++好像可以
28 楼
bjyl [专家分：0] 发布于 2008-01-02 20:41:00
一,
要把 15.86 转换为字符串 A
把 1.39 转换为字符串 B
然后把字符串Ａ和字符串Ｂ连接成一个串Ｃ
二,
最好是
要把 15.86 转换为二进制 串 A
把 1.39 转换为二进制 串 B
然后把字符串Ａ和字符串Ｂ连接成一个串Ｃ
29 楼
xiaoshizi05 [专家分：10] 发布于 2008-04-28 13:50:00
3人行,则必皆为我师.
呵呵~~~
《Fortran95程序设计》彭国伦 电子版
《Intel Visual Fortran 应用程序开发》周振红 电子版
Compaq Visual Fortran 6.5 简化版（无帮助文档，无IMSL，CXML）安装程序
下载以上资源后，请尽量支持原作者......
Ftn95 讨论及去闪屏补丁
Visual Fortran 及 Ftn95 屏幕彩色文字输出的方法
关于 Fortran 读写二进制文件的简单介绍
30 楼
xiaoshizi05 [专家分：10] 发布于 2008-04-28 13:51:00
3人行,则必皆为我师.
呵呵~~~
《Fortran95程序设计》彭国伦 电子版
《Intel Visual Fortran 应用程序开发》周振红 电子版
Compaq Visual Fortran 6.5 简化版（无帮助文档，无IMSL，CXML）安装程序
下载以上资源后，请尽量支持原作者......
Ftn95 讨论及去闪屏补丁
Visual Fortran 及 Ftn95 屏幕彩色文字输出的方法
关于 Fortran 读写二进制文件的简单介绍
我来回复
您所在位置：