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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】怎样知道一个文件的某行有多少个数？【已完结】
41/1返回列表
查看: 773  |  回复: 3
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
本帖产生 1 个 程序强帖 ，点击这里进行查看

zcntydyd

禁虫 (小有名气)
本帖内容被屏蔽

» 猜你喜欢
1楼 2010-11-06 10:42:58
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)
★ ★ ★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+5):辛苦了！ 2010-11-06 22:17:50
帮你写了一个简单的小程序，我测试了，没有问题。
Subroutine File(In,Channel,Num)
输入参数 In, Channel, Num 均为 Integer类型。
Channel是你要读的文件的通道
In是你要读的文件的第几行
Num返回的是该行有多少个数字
程序会自动打印出这几个数字出来。
我假设你输入文件，只含有空格和数字，不含有别的任何字符。


[ Last edited by maomao1210 on 2010-11-6 at 21:52 ]
赞一下(2人) 回复此楼
2楼2010-11-06 21:42:21
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)
★ ★ ★ ★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+5):帮新虫发金币！ 2010-11-06 22:18:02
nono2009(金币+1, 程序强帖+1):鼓励应助 2010-11-10 18:33:41
!
!  input file is here
!

C
C     361 2   3   4  5 6 7 8 9 10
C



      Implicit None
      
      Integer in,channel,num
       Channel=5
        Open(Channel,file='a.input',status='old')
      
        in=1
      call File(In,Channel,Num)
      write(*,*) '****************************'
      write(*,*) num
        End

      
        Subroutine File(In,Channel,Num)
      Implicit None
        Integer In,Channel,Num
      Character(Len=100) Temp
        Character(Len=100) Temp_here
      Integer Index_dicp(100)
        Integer Index_here(200)
        Integer Total(100)
        Integer Ldicp,IK,Idicp,Jdicp,Ihere
        Rewind(channel)
        Do Jdicp=1,In-1
        Read(Channel,*)
        Enddo
      Read(Channel,'(A100)') Temp
      Ihere=Len_trim(Temp)
      Temp_here(2:Ihere+2)=Temp(1:Ihere+1)
      Temp_here(1:1)=' '
      Do Idicp=1,Ihere+2
      If(Temp_here(Idicp:Idicp).Eq.' ') Then   
      Index_here(Idicp)=-1
        Else   
      Index_here(Idicp)=1
        EndIf
        Enddo  
      IK=0
      Do Idicp=1,Ihere+2   
        If(Index_here(Idicp)*Index_here(Idicp+1).eq.-1) Then       
      IK=Ik+1
      Total(IK)=Idicp
        EndIf   
        Enddo
      DO Ldicp=1,IK+2,2
        Write(*,*) Temp_here(Total(Ldicp)+1: Total(Ldicp+1))
        EnddO
      Num=IK/2
        Return
        End

[ Last edited by maomao1210 on 2010-11-6 at 21:49 ]
赞一下(3人) 回复此楼
3楼2010-11-06 21:45:07
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

zcntydyd

禁虫 (小有名气)
本帖内容被屏蔽
4楼2010-11-08 16:39:56
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zcntydyd 的主题更新
41/1返回列表
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 1uaZt2kAZj2S 2026-10-30 14/700 2026-11-01 05:17 by YXM1FDCSE8Bn
[考研] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +3 1uaZt2kAZj2S 2026-10-31 7/350 2026-11-01 04:04 by YXM1FDCSE8Bn
[基金申请] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-31 3/150 2026-11-01 04:04 by YXM1FDCSE8Bn
[论文投稿] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 1uaZt2kAZj2S 2026-10-31 8/400 2026-11-01 03:59 by YXM1FDCSE8Bn
[找工作] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 1uaZt2kAZj2S 2026-10-31 6/300 2026-11-01 03:56 by YXM1FDCSE8Bn
[博后之家] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +3 1uaZt2kAZj2S 2026-10-31 6/300 2026-11-01 03:56 by YXM1FDCSE8Bn
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +3 1uaZt2kAZj2S 2026-10-30 13/650 2026-11-01 03:46 by YXM1FDCSE8Bn
[硕博家园] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +3 X5bHxOULxFqb 2026-10-30 16/800 2026-11-01 03:38 by YXM1FDCSE8Bn
[考博] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +4 X5bHxOULxFqb 2026-10-30 20/1000 2026-11-01 03:33 by YXM1FDCSE8Bn
[基金申请] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +5 X5bHxOULxFqb 2026-10-30 20/1000 2026-11-01 03:30 by YXM1FDCSE8Bn
[论文投稿] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +4 X5bHxOULxFqb 2026-10-30 25/1250 2026-11-01 03:30 by YXM1FDCSE8Bn
[考研] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +3 xvJS1BYDxvBS 2026-10-31 7/350 2026-11-01 02:33 by YXM1FDCSE8Bn
[找工作] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 1uaZt2kAZj2S 2026-10-31 5/250 2026-11-01 02:28 by YXM1FDCSE8Bn
[考博] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-31 5/250 2026-11-01 02:25 by YXM1FDCSE8Bn
[基金申请] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 xvJS1BYDxvBS 2026-10-31 7/350 2026-11-01 00:54 by YXM1FDCSE8Bn
[公派出国] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 1uaZt2kAZj2S 2026-10-31 4/200 2026-11-01 00:41 by YXM1FDCSE8Bn
[硕博家园] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +3 xvJS1BYDxvBS 2026-10-31 7/350 2026-10-31 23:18 by YXM1FDCSE8Bn
[硕博家园] 越来越担心硕士毕业后没有竞争力了 +8 zuesli 2026-10-27 14/700 2026-10-30 22:44 by 好运连连公主
[硕博家园] 申博自荐 2篇一区TOP+1篇EI+2公开发明专利 2027博士申请 +3 小小阿光 2026-10-27 3/150 2026-10-29 23:56 by 起风了的快乐
[考博] 申博求助 20+3 Katrinae 2026-10-26 4/200 2026-10-27 09:56 by 北京莱茵编辑
信息提示
关闭
请填处理意见
关闭