M-x調出命令,輸入:

count-words

老張說:

如果有選區,則顯示選區內的行數,詞數,字(母)數。 如果沒有選區,則計算當前buffer。 注意這個對於英文比較正常,中文因為分詞的問題,word數是有問題的。應該以字數為準。 因此上述方法只是大致統計,精度不高,網上搜到了下面的程式碼,可以分別統計英文單詞數和非英文的字數,未經測試,供參考。

(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)))

支援我們

如果您喜欢这篇文章,您可以分享给您的朋友,分享到您的社交账号比如:

或者 点击这个链接 观看广告支持我【广告内容与我们无关,请不要轻易相信并打开弹出的广告】。
若您经济宽裕,更欢迎通过下面的方式小额赞助以支持我们的创作。