想统计一篇文章的总字数

lanxueren121

[Fortran] 纯文本查看 复制代码

module constant
         implicit none
         integer n,nmax,cnum
         character(*):: filename
         character*1 sign
         integer count
         integer error
 end module constant

 module dealfile
 use constant

 contains
 subroutine totalnum(filename,count,nmax,sign,cnum())
         integer count,nmax,i,n,tonum
         character*1 buffer(1:nmax)
               character(*):: filename
         character*1 sign
        character,allocatable :: string(:)
        integer,allocatable :: cnum(:)
         open(10,FILE=filename)      
         allocate(string(n))
         allocate(cnum(n))

     do n=1,count
         READ(10,100) string(n)
 100        format(<nmax>A1)
         write(*,*)string(n)
     buffer=string(n)
     cnum(1)=1
         do i=1,nmax-1
           if((buffer(i)==sign) .AND. (buffer(i+1)/=sign)) cnum(n)=cnum(n)+1
         end do
         tonum=tonum+cnum(n)
     end do
         close(10)
 end subroutine totalnum

 end module dealfile

 program main
 use constant
 use dealfile

         print*,'文件名：'
         read*,filename
        count=0
        open(10,file=filename,status='old')
        do while (.true.)
        read(10,*,iostat=error) line
        if(error/=0)exit
        count=count+1
        end do
close(10)

         print*,'行数：'
         write(*,*)count
         print*,'行的最大列数：'
         read*,nmax
         print*,'分隔符：'
         read(*,100),sign

 100        format(A1)
         call totalnum(filename,count,nmax,sign,cnum(n))
         print*,tonum
 end program

lanxueren121

楚香饭 发表于 2014-11-28 17:26
你这代码问题太多了。语法错误一大堆，算法也不正确。

建议你直接使用这个代码：http://fcode.cn/code_gen ...

非常感谢你的耐心指导 初学fortran，想知道fortran可不可以统计一个文本中各个单词出现的次数····我编这个程序主要是为了这个目的，我的思路是先统计出文本总共的词数，不知道思路对不对···希望大师提点一下，万分感谢了

楚香饭

你这代码问题太多了。语法错误一大堆，算法也不正确。

建议你直接使用这个代码：http://fcode.cn/code_gen-34-1.html 获取文件的行数和列数，每行的列数相加即可。

针对你的代码，我做了一些语法上的纠正。（算法就不纠正了，思路不对。）

最后，排版很重要、很重要、很重要、很重要

[Fortran] 纯文本查看 复制代码

Module Constant
  Implicit None
  Integer N, Nmax
  integer , allocatable :: Cnum(:) !// 定义为可变
  Character(len=512) :: Filename !// 必须指定长度
  Character(len=1) :: Sign
  integer :: Tonum !// Tonum放上面，不然主程序收不到
  Integer Count
  Integer Error
End Module Constant

Module Dealfile
  Use Constant

Contains
  Subroutine Totalnum(Filename, Count, Nmax, Sign, Cnum) !// 不带括号
    Integer Count, Nmax, I, N
    Character *1 Buffer(1:Nmax)
    Character (*) :: Filename
    Character *1 Sign
    Character, Allocatable :: String(:)
    Integer, Allocatable :: Cnum(:)
    integer :: j
    Open (10, File=Filename)
    Allocate (String(Nmax)) !// 此处为 NMax
    Allocate (Cnum(Nmax))  !// 同上
    Tonum = 0 !// 初值要给
    Do N = 1, Count
      Read (10, 100) String(:N)
      Write (*, *) String(N)
      do j = 1 , n
        Buffer(j:j) = String(j:j)
      end do
      Cnum(1) = 1
      Do I = 1, Nmax - 1
        If ((Buffer(I).Eq.Sign) .And. (Buffer(I+1).Ne.Sign)) Cnum(N) = Cnum(N) + 1
      End Do
      Tonum = Tonum + Cnum(N)
    End Do
    Close (10)
    100 Format (<Nmax>A1)
  End Subroutine Totalnum

End Module Dealfile

Program Main
  Use Constant
  Use Dealfile
  Implicit None !// 非常重要
  character(len=1) :: line
  Print *, '文件名：'
  Read *, Filename
  Count = 0
  Open (10, File=Filename, Status='old')
  Do
    Read (10, *, Iostat=Error) Line
    If (Error.Ne.0) Exit
    Count = Count + 1
  End Do
  Close (10)

  Print *, '行数：'
  Write (*, *) Count
  Print *, '行的最大列数：'
  Read *, Nmax
  Print *, '分隔符：'
  Read (*, 100), Sign
  Call Totalnum(Filename, Count, Nmax, Sign, Cnum) !// cNum 不带括号
  Print *, Tonum

  100 Format (A1)
End Program Main