作者sexyrickysky (花心只是掩饰内心的空虚)
看板Fortran
标题[问题] 字串转数字....
时间Thu Aug 16 18:49:14 2012
想请教一下各位,
我目前有一个档案,是数字跟字串混和
有点像这样的格式:
字串行........
字串 数字 数字 数字
字串 数字 数字 数字
字串 数字 数字 数字
字串行
字串行
字串 字串 字串 数字
字串 字串 字串 数字
字串 字串 字串 数字
.
.
.
.
.
字串行
因为是字串跟数字混合的格式,读取有点麻烦,
所以我一开始想说全部用字串的型态读入,
e.g.
character(len=20):: var_1, var_2, var_3, var_4
read(unit=fileid, fmt=*), var_1, var_2, var_3, var_4
最後再拿出字串型态的"数字",转变回数字型态在做运算。
可是我现在卡在,不知道要如何将字串型态的数字,
转变回数字型态............
我有想到一个方法,就是将这些字串型态的数字,写到另一个暂存档,
再用数字型态给他读回来.......
不过这样有点麻烦,
想请问一下有没有更简便的方式,
可以直接将字串型态的数字,直接转变为数字型态?
我找到解决方法了,利用内部档(internal file)的方式
字串转数字:
character(len=20):: string
real(kind=8):: number
read(string,fmt=*) number
数字转字串:
character(len=20):: string
real(kind=8):: number
write(unit=string, fmt=*) number
--
我明白时间就像乳沟一样,挤一挤还是有的,不过我却无法挤出时间来陪你。
你曾给我最後机会,让我挽回。可我却不了解机会就像老二一样紧握就会变大的道理。
以致於你如同肛门的口的大便离我而去............
我知道我给你的承诺太多,如同一句干你娘永远做不到,
至今对你的思念有一股蛋蛋的哀伤....
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.136.176.152
※ 编辑: sexyrickysky 来自: 140.136.176.152 (08/16 19:25)