読者です 読者をやめる 読者になる 読者になる

文字数カウントスクリプト

Vim

vimエディタの質問で、よくファイル内の文字数の数え方を聞く人がいるけど、

ひょっとして、こんなスクリプトが欲しいんじゃないかな?

(さっき思いついて作ったよ。私自身がこういうの欲しいな、と思ったんだ。)

これをみて、ステータスラインに表示するのに都合が良いようにしてみた。
(ステータスラインに関数を直接埋め込むと大変なことになりそうなので変数を更新する方式で)
WC:[0/0] とか埋め込んで書き換えちゃうと変更あつかいになっちゃうし…

" Tue Apr 22 07:49:35 JST 2008
"
" b:charCounterCount に文字数をセットするスクリプト
" バッファを保存したりしたときに、更新される。
"
" ステータスラインに入れて使う例↓
" set statusline=%{b:charCounterCount}

if exists("anekos_charCounter")
	finish
endif
let anekos_charCounter=1

augroup CharCounter
	autocmd!
	autocmd BufCreate,BufEnter * call <SID>Initialize()
	autocmd BufUnload,FileWritePre,BufWritePre * call <SID>Update()
augroup END

function! s:Initialize()
	if exists('b:charCounterCount')
	else
		return s:Update()
	endif
endfunction

function! s:Update()
	let b:charCounterCount = s:CharCount()
endfunction

function! s:CharCount()
	let l:result = 0
	for l:linenum in range(0, line('$'))
		let l:line = getline(l:linenum)
		let l:result += strlen(substitute(l:line, ".", "x", "g"))
	endfor
	return l:result
endfunction

function! AnekoS_CharCounter_CharCount()
	return s:CharCount()
endfunction

http://www.kurinton.net/~snca/blogfiles/ank_cc.vim

08/22 07:51

Initializeを使うように修正