【求助】求高手关于Fortran数据读写的问题。【已完结】 - 程序语言 - Fortran

版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

返回列表

本帖产生 2 个程序强帖，点击这里进行查看

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

ykwang

金虫 (正式写手)

程序强帖: 2
应助: 0 (幼儿园)
金币: 3171.7
帖子: 639
在线: 386.4小时
虫号: 500302

★
77585218358(金币+10): 2010-12-01 14:32:50
余泽成(金币+1):谢谢参与应助！ 2010-12-06 15:15:50
zyj8119(程序强帖+1): 2010-12-14 18:04:03

你需要的程序片段如下：

      Dimension C1(3,100),C2(3,100)
      Character  CHS*80
      J1=0
      J2=0
10    READ(10,'(A)',END=20)CHS
      IF(CHS(1:2).EQ.'C1')THEN
            J1=J1+1
            IF(J1.GT.100)STOP 'Error Message .......'
            READ(CHS(3:80),*)(C1(I,J1),I=1.3)
         ENDIF
         IF(CHS(1:2).EQ.'C2')THEN
            J2=J2+1
            IF(J2.GT.100)STOP 'Error Message .......'
            READ(CHS(3:80),*)(C2(I,J2),I=1.3)
         ENDIF
         GOTO 10
20    CONTINUE

赞一下(2人)

回复此楼

2楼2010-12-01 10:30:05

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

智能机器人

Robot (super robot)

我们都爱小木虫

找到一些相关的精华帖子，希望有用哦~

Fortran如何读取数据避开空行？已经有7人回复
【求助】Fortran语言赋值问题？已经有3人回复
写了一个fortran90的小程序，编译通不过，请大侠帮忙已经有59人回复
【求助】FORTRAN读取文本文件已经有9人回复
请教fortran导txt数据进origin问题已经有1人回复
【求助】Fortran编译目标文件后的链接问题已经有4人回复
【求助】Fortran 程序可以直接读取和输出excel文件吗已经有3人回复
【求助】matlab读取fortran输出的txt文件【已解决】已经有3人回复
【求助】求助个Fortran计算，应该不难，半天搞不定，请高手帮忙已经有11人回复

点击这里搜索更多相关资源

科研从小木虫开始，人人为我，我为人人

snoopyzhao

至尊木虫 (职业作家)

★
77585218358(金币+10): 2010-12-01 14:32:59
余泽成(金币+1):谢谢参与应助！ 2010-12-06 15:15:59
zyj8119(程序强帖+1): 2010-12-14 18:03:44

一个简单的实现

CODE:

C234567

      PROGRAM C1C2

      CHARACTER*80 LINE

      OPEN(7,FILE = 'A.TXT', STATUS='OLD')

      OPEN(8,FILE = 'B.TXT', STATUS='NEW')

5     READ(7,'(A)', END = 10) LINE

      IF( INDEX(LINE, 'C1') .NE. 0 .OR. INDEX(LINE, 'C2') .NE. 0)

     &  WRITE(8, '(A)') LINE

      GOTO 5

10    CONTINUE

      END

赞一下(2人)

回复此楼

3楼2010-12-01 10:37:01

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

相关版块跳转我要订阅楼主 77585218358 的主题更新

返回列表