想一个一个读出一行的每个单词，但是这个程序不运行··

lanxueren121

program main
  character,allocatable:: word(:)
  character spliter,substring
  integer id,len_spliter,len_substring
  integer,parameter ::ncol=4
  allocate(word(ncol))
  open(unit=12,file='a.txt')
  read(12,*) substring
  write(*,*)'分隔符:'
  read(*,*)spliter
  len_spliter=len(spliter)
  do i=1,ncol
    len_substring=len(substring)
    id=index(trim(substring),spliter)
    substring=substring(1:(id-1))
    word(i)=substring
    write(*,*) word(i)
    substring=substring((id+len_spliter):len_substring)
end do
stop
end

莫名╰☆╮殇

你输出的结果是什么？？如果是一个字母的话原因就是你的定义那边要写成character*num，你的num就是你单词的长度

lanxueren121

莫名╰☆╮殇 发表于 2014-12-11 17:55
你输出的结果是什么？？如果是一个字母的话原因就是你的定义那边要写成character*num，你的num就是你单词的 ...

就是定义的不太对！！