fortran中按字符拆分字符串的子程序【原创】

mofangbao

    今天做东西的时候要用到从时间格式的字符串中提取字串的方法，之前一直想做的，都没去做，今天要用到了，终于决定做一个子程序，以后用起来就方便多了，既然做好了，就发上来大家共享一下吧。

    大概是这么一个功能：
    现有下列格式的字符串，可以看出来，时间是以 ':' 来分隔的，我要的是1981、11、8、0类似的几个数，也就是按照冒号把字符串分为几个字串，提取其中的某一串出来，因为整个字符串的长度不定，因此，不能直接使用string(n:m)的形式。

1. 1981:11:8:0 -0.143923
   
2. 1981:11:15:0 -0.311886
   
3. 1981:11:22:0 -0.403949
   
4. 1981:11:29:0 -0.304858
   
5. 1981:12:6:0 0.119933
   
6. 1981:12:13:0 0.182778
   
7. 1981:12:20:0 -0.442663

复制代码

通过下面的子程序，当给定源字符串，分隔字符，分隔后字串的位置，就能返回相应的字串，比如：
substr("1981:11:8:0 -0.143923",':',3,substring)
则会返回 8
把上面的3改成2，则返回11，如果把3改成10，则返回NULL，也就是说按冒号分隔之后会形成4个字串，超出了4，则返回字符串NULL

为了节省大家的金币，直接贴出来啦！需要演示的可以下载附件以及演示数据

1. subroutine substr(string,spliter,num,substring)
   
2. character(*) string,spliter,substring
   
3. integer num,id,nownum,len_spliter,len_substring
   
4. 
   
5. len_spliter=len(spliter)
   
6. nownum=1
   
7. substring=string
   
8. 
   
9. 100 continue
   
10. len_substring=len_trim(substring)
    
11. id=index(trim(substring),spliter)
    
12. if(id==0)then
    
13.     if(nownum<num)then
    
14.     substring="null"
    
15. endif
    
16. goto 200
    
17. endif
    
18. 
    
19. if(nownum==num)then
    
20.     substring=trim(substring(1:(id-1)))
    
21.     goto 200
    
22. endif
    
23. substring=substring((id+len_spliter):len_substring)
    
24. nownum=nownum+1
    
25. goto 100
    
26. 200 continue
    
27. endsubroutine

复制代码

阿华田

清风老大，太给力了。等我忙完这段时间，和大家分享下最近学到的东西！

watertea

学习了！
先收藏了以后肯定用得上

善人/jw

最近在忙着帮老板做事，很少来了~~
清风辛苦了~~

传说中的谁

来膜拜一下大大，最近忙的

mofangbao

阿华田 发表于 2011-11-16 17:24

                               
登录/注册后可看大图

清风老大，太给力了。等我忙完这段时间，和大家分享下最近学到的东西！

呵呵 期待一下啦

watertea

传说中的谁 发表于 2011-11-16 17:53

                               
登录/注册后可看大图

来膜拜一下大大，最近忙的

你明明就没有在忙。。。。只是顾着研究54号文件去了而已

兰溪之水

顶起~

大竹子

感谢楼主分享的程序，正学着用读字符串的方法读取数据……