先日公開した「文字変換バージョン1.7.0」で新しく追加した「文字変換ライブラリ StrConvDLL」を紹介します。
「文字変換ライブラリ StrConvDll」は、文字変換機能を持つActiveXです。
このソフトウェアをインストールすると、他のプログラムから以下の文字変換機能を使用することができるようになります。
- ひらがなに変換する
- カタカナに変換する
- 全角文字に変換する
- 半角文字に変換する
- 小文字に変換する
- 大文字に変換する
- 半角カナを全角に変換する
- HTMLエスケープ
- HTMLエスケープ解除
- URLエスケープ
- URLエスケープの解除
「テキストエディタ Mery」から文字変換ライブラリStrConvDLLを呼び出すマクロも同封しています。
文字変換ライブラリStrConvDLLをVBScriptから実行するサンプルプログラムです。
Dim sc
Set sc = CreateObject("StrConv.StrConv")
'ひらがなに変換する
MsgBox sc.Hiragana("アイウエオ")
'カタカナに変換する
MsgBox sc.Katakana("あいうえお")
'全角文字に変換する
MsgBox sc.FullWidth("abc")
'半角文字に変換する
MsgBox sc.HalfWidth("abc")
'小文字に変換する
MsgBox sc.LowerCase("ABC")
'大文字に変換する
MsgBox sc.UpperCase("abc")
'半角カナを全角に変換する
MsgBox sc.FullKatanaka("カタカナ")
'HTMLエスケープ
MsgBox sc.EncodeHtml("<html>")
'HTMLエスケープ解除
MsgBox sc.DecodeHtml("<html>")
'URLエスケープ(Shift_JIS)
MsgBox sc.EncodeUrl("あいうえお", 932)
'URLエスケープ(UTF8)
MsgBox sc.EncodeUrl("あいうえお", 65001)
'URLエスケープの解除(Shift_JIS)
MsgBox sc.DecodeUrl("%82%A0%82%A2%82%A4%82%A6%82%A8", 932)
'URLエスケープの解除(UTF-8)
MsgBox sc.DecodeUrl("%e3%81%82%e3%81%84%e3%81%86%e3%81%88%e3%81%8a", 65001)
Set sc = Nothing