- 积分
- 27
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2014-7-5
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2015-12-11 14:47:47
|
显示全部楼层
本帖最后由 pengyulong 于 2015-12-11 14:49 编辑
是啊,我手里有台风经过的经纬度以及时间的信息,现在想提取fnl实测代码数据,现在那个gs代码,还是有点问题。可以帮忙看一下吗?- "reinit"
- "set display color white";*设置背景色为白色,默认为黑色
- "c"
- "open fnl_20.ctl"
- FileName='lonStr.txt'
- rf=readfile(FileName)
- str=subwrd(rf,2)*这样只能提取str中的第二个数值,在这里我想用while循环依次提取str中的数字。但是一加上while循环就报错!!
- say str
- ;*定义函数
- function readfile(FileName)
- *读取整个ASCII文本文件,最多读10行
- Lines=''
- while(1);
- r=read(FileName)
- temp=subwrd(r,1);*第一行仅有一个单词,为状态码,读取无错误应状态码为0
- if (temp != 0);break;endif;*如果读取有误或读到EOF就退出
- line=sublin(r,2);*提取该行字符串
- Lines=Lines' ' line ' '
- endwhile
- *返回文本字符串
- return(Lines)
- ;
复制代码 |
|