Word文档数字组统计
Word文档中有一批单个数字组（部分数字组重复）如：101 221 258 396 147 369 456 789 324 258 147 369等等多个重复的数字组，要将所有数字组进行统计，并标明各数字组重复出现的次数，怎样操作最简单？
注明：1.一次输入所有数字组后就得到结果。
2.我要的结果是各个数据组的出现次数，
请详细说明操作，谢谢！
参考答案:★
下面是f95程序
PROGRAM MAIN
implicit none
integer,parameter:: ip_max=1000
integer:: i,j,k
integer:: i_readstate,i_datanumber
integer:: i_temp
integer:: i_data(ip_max),i_same(2,ip_max)
open(1,file="1.txt")
read(1,*,iostat=i_readstate) i_data
close(1)
do i=1,ip_max-1
if ((i_data(i)/=0).and.((i_data(i+1)==0))) exit
end do
i_datanumber=i
open(2,file="结果.txt")
write(2,*) "1.txt中数据个数共有：",i_datanumber
! write(*,*) "1.txt中计数据个数共有：",i_datanumber
do i=1,i_datanumber
i_same(1,i)=1 !个数
i_same(2,i)=1 !有没有计过，1为没有，0为计过
end do
do i=1,i_datanumber-1
if(i_same(2,i)==1) then
do j=i+1,i_datanumber
if(i_data(i)==i_data(j)) then
i_same(1,i)=i_same(1,i)+1
i_same(2,j)=0
end if
end do
end if
end do
do i=1,i_datanumber
if(i_same(2,i)==1) then
write(2,*) i_data(i),"的个数有：", i_same(1,i)
! write(*,*) i_data(i),"的个数有：", i_same(1,i)
end if
end do
END