大头鼹鼠 发表于 2016-5-26 13:53:40

CESHI

SubroutineNUM_LINE(Num)
02
    Integer::Numline=0,value=0,Num
03
    Character line
04
    OPEN(UNIT=11,FILE='material.txt',STATUS='OLD')
05
    Do While(value==0)
06
    Read(11,*,iostat=value) line
07
    If(value/=0)cycle
08
    Numline=Numline+1
09
    End Do
10
    Num=Numline
11
    Close(11)
12
    End

大头鼹鼠 发表于 2016-5-26 13:55:28

这个只是用来 验证怎么可以发表有颜色文字的帖子的 不用回复 我删不了
页: [1]
查看完整版本: CESHI