実文字数カウントマクロ(for EmEditor Pro.) -ver1.0-2006年06月05日 14時52分50秒

'emcc.vbee:実文字数カウントマクロ(for EmEditor Pro.)
'半角・全角スペース、タブ、改行を除く文字数をカウント
'Ver1.0 2006/06/04 Kurebi
document.selection.selectall
txt = document.selection.text
document.selection.collapse
b = 0
c = 0
for i = 1 to len(txt)
    c1 = mid(txt,i,1)
    select case c1
    case " "," ",vbtab,vbcr,vblf
    case else
        if asc(t) >= 0 and asc(t) <= &hff then
            b = b + 1
        else
            b = b + 2
        end if
        c = c + 1
    end select
next
set ws = wscript.createobject("wscript.shell")
n = ws.popup(b & "バイト (" & c & "文字)",0,"実文字数カウント",64)
EmEditor Professionalで動作する実文字数カウント用マクロです。
  1. 点線の中身を適当なファイル名(例:emcc.vbee)で保存します。
  2. EmEditorにてマクロ登録してください。
  3. カウントしたいテキストを表示してマクロを実行すると、実文字のバイト数と文字数が表示されます。
  • 表示されるバイト数は実文字の総バイト数(半角1バイト、全角2バイト)で、文字数は半角・全角を問わない全文字数です。
  • 動作確認はWindows XP Professional Edition+EmEditor Professional Ver5.00.1で行いました。

コメント

コメントをどうぞ

※メールアドレスとURLの入力は必須ではありません。 入力されたメールアドレスは記事に反映されず、ブログの管理者のみが参照できます。

名前:
メールアドレス:
URL:
コメント:

トラックバック