暇つぶしにNGワード対策用のスクリプトを書いてみた

以下のソース(VBScript)をメモ帳等に張り付けて適当な名前(例:Text2Code.vbs)で保存
-----------------------------------------------
Option Explicit
Dim a, b, c, d, i
Do
a = InputBox(d,"Text to Code", b) : b = a
If IsEmpty(b) Then Exit Do
c = len(b) : d = ""
If c > 0 Then
For i = 1 to c
a = Mid(b, i, 1)
If i Mod 3 = 1 And a <> " " Then
d = d & "&#" & AscW(a) & ";"
Else
d = d & a
End If
Next
CreateObject("WScript.Shell").Exec("clip").StdIn.Write d
End If
Loop
-----------------------------------------------

使い方
vbsファイルをダブルクリックで起動
入力欄にコード化したい文字列を入力して[OK]をクリックするとクリップボードに変換した文字列が出力されるのでそれをペーストして書き込みに使用する
[キャンセル]をクリックすると終了