24小时热门版块排行榜    

查看: 861  |  回复: 14

yazhouqin

木虫 (小有名气)

我要读取下图中11个数据,那位老师能指导一下
求助
2015-11-10 10-30-13.jpg

ok
11楼2015-11-10 10:37:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lin_tie

至尊木虫 (著名写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
yazhouqin: 金币+35 2015-11-10 13:26:58
程序如下:
PROGRAM TIHUAN
  IMPLICIT NONE
  REAL(KIND=8) :: A(3,11)
  INTEGER :: I, J, POS1
  CHARACTER(LEN=80) :: BUFF
  CHARACTER(LEN=12) :: KEY
  DATA KEY/"NODE FOOT-"/
  OPEN(11, FILE='J0-0.DAT', STATUS='OLD')
  DO WHILE(.TRUE.)
    READ(11,'(A80)') BUFF
    POS1 = INDEX(BUFF, KEY)
    IF(POS1 /= 0) THEN
      EXIT
    END IF
  END DO
  READ(11,*)
  READ(11,*)
  DO I = 1, 11
    READ(11,*) (A(J,I), J=1,3)
  END DO
  CLOSE(11)
  OPEN(12, FILE='CHU.OUT', STATUS='REPLACE')
  DO I = 1, 11
    WRITE(12,'(2(E13.6))') (A(J,I),J=2,3)
  END DO
  CLOSE(12)
END PROGRAM TIHUAN
运行结果如下:
0.000000E+00 0.122580E-03
-0.220210E-06-0.196940E-03
-0.202010E-04 0.122310E-03
-0.369490E-06-0.249110E-03
-0.409740E-04 0.121720E-03
0.383020E-06-0.472160E-03
0.414150E-04 0.124970E-03
0.696370E-06-0.248170E-03
0.204590E-04 0.125690E-03
0.308960E-06-0.195590E-03
0.000000E+00 0.125980E-03
12楼2015-11-10 12:33:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yanshuiting

新虫 (正式写手)

【答案】应助回帖

感谢参与,应助指数 +1
如果你这个数据是某个软件,生成的话,应该是比较规范的格式数据。你可以把字符数据去掉,直接复制数据数据,到excel中粘贴,之后就好操作了

发自小木虫Android客户端
13楼2015-11-10 12:48:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yazhouqin

木虫 (小有名气)

引用回帖:
12楼: Originally posted by lin_tie at 2015-11-10 12:33:45
程序如下:
PROGRAM TIHUAN
  IMPLICIT NONE
  REAL(KIND=8) :: A(3,11)
  INTEGER :: I, J, POS1
  CHARACTER(LEN=80) :: BUFF
  CHARACTER(LEN=12) :: KEY
  DATA KEY/"NODE FOOT-"/
  OPEN(11 ...

兄弟你太牛了,这东西我搞3/4天了,太谢谢了
ok
14楼2015-11-10 13:26:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yazhouqin

木虫 (小有名气)

引用回帖:
12楼: Originally posted by lin_tie at 2015-11-10 12:33:45
程序如下:
PROGRAM TIHUAN
  IMPLICIT NONE
  REAL(KIND=8) :: A(3,11)
  INTEGER :: I, J, POS1
  CHARACTER(LEN=80) :: BUFF
  CHARACTER(LEN=12) :: KEY
  DATA KEY/"NODE FOOT-"/
  OPEN(11 ...

分全给你了,谢谢
ok
15楼2015-11-10 13:27:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 yazhouqin 的主题更新
信息提示
请填处理意见