字符与数据之间的转换问题

zhangxiaoman66

要读取的文件是这样
bs16001n
bs16002z
bs16003e
yx17002e
.........
只想读第5-7个数字也就是001，002.但要读只能用字符串读。
a=fn(5:7)
如何把字符型数值转成整型数字，有的人说用内部文件操作，但试了一下不行。

wudi198178

program haha
   implicit none
   character(10)::a="123"
   integer(kind=4)::b
   read(a,*)b
   print*,b
end
照葫芦画瓢

GWinston

主程序中调用函数执行转换：
        program main
        character*10 str
        integer i,strtoint
        open(2,file='data.txt')
        read(2,*)str
        write(*,*)str
        i=strtoint(str(5:7))
        write(*,*)i
        end
        integer function strtoint(str)
        character*(*)str
        read(str,*)strtoint
        end function