当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 6 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : Emacs有没有字数统计的功能
帖子发表于 : 2007-09-25 16:35 
头像

注册: 2007-03-13 4:59
帖子: 159
地址: Erlangen
送出感谢: 0 次
接收感谢: 0 次
学习需要, 很多时候还是要统计一下论文的字数, Emacs有没有相应的功能?


页首
 用户资料  
 
2 楼 
 文章标题 :
帖子发表于 : 2007-09-25 17:11 

注册: 2006-09-20 19:56
帖子: 768
送出感谢: 0 次
接收感谢: 1
没有直接提供,但可以自己写函数来实现,给一个:
代码:
(defun zjs-count-word ()
  (interactive)
  (let ((beg (point-min)) (end (point-max))
        (eng 0) (non-eng 0))
    (if mark-active
        (setq beg (region-beginning)
              end (region-end)))
    (save-excursion
      (goto-char beg)
      (while (< (point) end)
        (cond ((not (equal (car (syntax-after (point))) 2))
               (forward-char))
              ((< (char-after) 128)     
               (progn
                 (setq eng (1+ eng))
                 (forward-word)))
              (t
               (setq non-eng (1+ non-eng))
               (forward-char)))))
    (message "English words: %d\nNon-English characters: %d"
             eng non-eng)))


页首
 用户资料  
 
3 楼 
 文章标题 :
帖子发表于 : 2007-09-25 17:14 
头像

注册: 2007-05-10 19:42
帖子: 255
地址: 南京, Deutschland, Karlsruhe
送出感谢: 0 次
接收感谢: 0 次
C-x h
M-|
wc -w

适用英文
中文你再搜搜
wc -m可以统计字数,但是空格和一些特殊符号可能也会计算进去,所以你自己测试一下


页首
 用户资料  
 
4 楼 
 文章标题 :
帖子发表于 : 2007-09-25 17:21 

注册: 2006-09-20 19:56
帖子: 768
送出感谢: 0 次
接收感谢: 1
给那个函数可以分别统计英文单词和非英文字符的数目。但同样没有完全避免特殊符号的计算问题。你自己可以扩展一下,不过我觉得完全没有必要。


页首
 用户资料  
 
5 楼 
 文章标题 :
帖子发表于 : 2007-09-27 6:47 
头像

注册: 2007-03-13 4:59
帖子: 159
地址: Erlangen
送出感谢: 0 次
接收感谢: 0 次
已经很不错了.. 真正最后定稿上交的时候都得转到word里面去, 所以有个大概就很好了. 非常感谢!


页首
 用户资料  
 
6 楼 
 文章标题 :
帖子发表于 : 2007-11-25 19:26 

注册: 2007-09-28 10:21
帖子: 27
送出感谢: 0 次
接收感谢: 0 次
perl -ne 'END { print $t."\n" } @w = /(\w+)/g; $t += @w' <文件名>
应该可以的,试试哦


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 6 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 2 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译