24小时热门版块排行榜    

查看: 1851  |  回复: 11
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

nigel332

新虫 (初入文坛)

[求助] fortran,带字符的数据读取与存储!

假如文件中数据如下:
$GRDNAM
     NAME = 'cylinder',
     $END
$BCINP
  NBC= 4,
IBTYP( 1)= 4, IBDIR( 1)= -3,
IBTYP( 2)= 4, IBDIR( 2)= -3,
IBTYP( 3)= 8, IBDIR( 3)= 3,
IBTYP( 4)= 8, IBDIR( 4)= 3,
现在想读取其中IBTYP的值,然后写到另一个文件中去:如下
$MESH
    NAME = 'cylinder',
    $END
IBTYP = 4, 4, 8, 8,
IBDIR = -3, -3, 3, 3,
请问该怎样做到呢?
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★
感谢参与,应助指数 +1
jjdg: 金币+1, 感谢参与 2012-11-11 01:13:10
nigel332: 金币+1 2013-04-19 09:42:31
Fortran 中没有什么好办法,自己想办法把 = 与 , 之间的那几个字符(其实就是空格与数字)以字符串的形式读出来,然后用 Fortran 的内部文件形式转成数字,赋值到数组中,最后输出就行了……
2楼2012-11-10 19:50:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

引用回帖:
4楼: Originally posted by weiwei43 at 2012-11-11 07:58:12
能不能知道=号前是多少位?如果这个位数固定,可以按有格式方式读入。
例如IBTYP( 1)= 4, IBDIR( 1)= -3,
“IBTYP( 1)=”是10位,“, IBDIR( 1)=”是10位,注意假设里面都没有空格的。数值也是一位的。
那么
re ...

i1 是不行的,因为有负数……
5楼2012-11-11 08:50:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

引用回帖:
10楼: Originally posted by nigel332 at 2012-11-12 11:44:47
顺序读取文件的时候,不能跳跃读取
因为我的数据每行的变量不同,所以需要根据读取的行数控制读取的数据
这有没有什么好的办法?...

这与是否顺序读取有什么关系呢,呵呵……
12楼2012-11-12 13:43:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 nigel332 的主题更新
信息提示
请填处理意见