参考此处帖子 :http://bbs.lasg.ac.cn/?action-viewthread-tid-14968
需要读取数据如下
zone i= 2001 j= 151
读取方法如下:
read(77,'(a)')str
ip=index(str,"=")
str(1:ip)=''
ip=index(str,'=')
str(ip-1:ip)=''
read(str,*)i,j
参考此处帖子 :http://bbs.lasg.ac.cn/?action-viewthread-tid-14968
需要读取数据如下
zone i= 2001 j= 151
read(77,'(a)')str
ip=index(str,"=")
str(1:ip)=''
ip=index(str,'=')
str(ip-1:ip)=''
read(str,*)i,j