文字変換ライブラリ StrConvDLL

文字変換ライブラリ StrConvDLLの概要

文字変換ライブラリ StrConvDll は、文字変換機能を持つActiveXです。

他のプログラムから、以下の文字変換機能を使用することができるようになります。

ひらがなに変換する
カタカナに変換する
全角文字に変換する
半角文字に変換する
小文字に変換する
大文字に変換する
半角カナを全角に変換する
HTMLエスケープ
HTMLエスケープ解除
URLエスケープ
URLエスケープの解除
大文字で始める

動作環境

Windows XP
Windows Vista
Windows 7

必要なソフト

なし

ダウンロード

こちらのページからダウンロードできます。

インストール

StrConvDllSetup.exeを実行して、インストールしてください。

アンインストール

コントロールパネルの「アプリケーションの追加と削除」でアンインストールしてください。

機能

インスタンスを作成する

VBScriptのサンプルコード

Dim sc
Set sc = CreateObject("StrConv.StrConv")

JScriptのサンプルコード

var sc = new ActiveXObject("StrConv.StrConv");

ひらがなに変換する

HRESULT _stdcall Hiragana([in] BSTR S, [out, retval] BSTR* Ret);

BSTR S 変換する文字
BSTR Ret 変換した文字

VBScriptのサンプルコード

MsgBox sc.Hiragana("アイウエオ")

JScriptのサンプルコード

WScript.Echo(sc.Hiragana("アイウエオ"));

カタカナに変換する

HRESULT _stdcall Katakana([in] BSTR S, [out, retval] BSTR* RET);

BSTR S 変換する文字
BSTR Ret 変換した文字

VBScriptのサンプルコード

MsgBox sc.Katakana("あいうえお")

JScriptのサンプルコード

WScript.Echo(sc.Hiragana("あいうえお"));

全角文字に変換する

HRESULT _stdcall FullWidth([in] BSTR S, [out, retval] BSTR* RET);

BSTR S 変換する文字
BSTR Ret 変換した文字

VBScriptのサンプルコード

MsgBox sc.FullWidth("abc")

JScriptのサンプルコード

WScript.Echo(sc.FullWidth("abc"));

半角文字に変換する

HRESULT _stdcall HalfWidth([in] BSTR S, [out, retval] BSTR* RET);

BSTR S 変換する文字
BSTR Ret 変換した文字

VBScriptのサンプルコード

MsgBox sc.HalfWidth("ａｂｃ")

JScriptのサンプルコード

WScript.Echo(sc.HalfWidth("ａｂｃ"));

小文字に変換する

HRESULT _stdcall LowerCase([in] BSTR S, [out, retval] BSTR* RET);

BSTR S 変換する文字
BSTR Ret 変換した文字

VBScriptのサンプルコード

MsgBox sc.LowerCase("ABC")

JScriptのサンプルコード

WScript.Echo(sc.LowerCase("ABC"));

大文字に変換する

HRESULT _stdcall UpperCase([in] BSTR S, [out, retval] BSTR* RET);

BSTR S 変換する文字
BSTR Ret 変換した文字

VBScriptのサンプルコード

MsgBox sc.UpperCase("abc")

JScriptのサンプルコード

WScript.Echo(sc.LowerCase("ABC"));

半角カナを全角に変換する

HRESULT _stdcall FullKatanaka([in] BSTR S, [out, retval] BSTR* RET);

BSTR S 変換する文字
BSTR Ret 変換した文字

VBScriptのサンプルコード

MsgBox sc.FullKatanaka("ｶﾀｶﾅ")

JScriptのサンプルコード

WScript.Echo(sc.FullKatanaka("ｶﾀｶﾅ"));

HTMLエスケープ(< > " & を < > " & に変換する)

HRESULT _stdcall EncodeHtml([in] BSTR S, [out, retval] BSTR* RET);

BSTR S 変換する文字
BSTR Ret 変換した文字

VBScriptのサンプルコード

MsgBox sc.EncodeHtml("<html>")

JScriptのサンプルコード

WScript.Echo(sc.EncodeHtml("<html>"));

HTMLエスケープ解除(EncodeHtmlの反対の変換を行う)

HRESULT _stdcall DecodeHtml([in] BSTR S, [out, retval] BSTR* RET);

BSTR S 変換する文字
BSTR Ret 変換した文字

VBScriptのサンプルコード

MsgBox sc.DecodeHtml("&lt;html&gt;")

JScriptのサンプルコード

WScript.Echo(sc.DecodeHtml("&lt;html&gt;"));

URLエンコード(パーセントエンコーディング)

HRESULT _stdcall EncodeUrl([in] BSTR S, [in] unsigned short CodePage, [out, retval] BSTR* RET);

BSTR S 変換する文字
unsigned short CodePage 変換する文字 S の文字コード。(Shift_JISのときは932、UTF-8のときは65001)
BSTR Ret 変換した文字

VBScriptのサンプルコード

MsgBox sc.EncodeUrl("あいうえお", 932)

JScriptのサンプルコード

WScript.Echo(sc.EncodeUrl("あいうえお", 932));

URLエンコードの解除

HRESULT _stdcall DecodeUrl([in] BSTR S, [in] unsigned short CodePage, [out, retval] BSTR* RET);

BSTR S 変換する文字
unsigned short CodePage 変換する文字 S の文字コード。(Shift_JISのときは932、UTF-8のときは65001)
BSTR Ret 変換した文字

VBScriptのサンプルコード

MsgBox sc.DecodeUrl("%82%A0%82%A2%82%A4%82%A6%82%A8", 932)

JScriptのサンプルコード

WScript.Echo(sc.DecodeUrl("%82%A0%82%A2%82%A4%82%A6%82%A8", 932));

大文字で始める

先頭の文字を大文字に、それ以外の文字を小文字に変換します。

HRESULT _stdcall Capitalize([in] BSTR S, [out, retval] BSTR* RET);

BSTR S 変換する文字
BSTR Ret 変換した文字

VBScriptのサンプルコード

MsgBox sc.Capitalize("hello")

JScriptのサンプルコード

WScript.Echo(sc.Capitalize("hello"));

サンプルコード

VBScriptのサンプルコード

'文字変換ライブラリをVBScriptから実行するサンプルプログラム
Dim sc
Set sc = CreateObject("StrConv.StrConv")

'ひらがなに変換する
MsgBox sc.Hiragana("アイウエオ")
'カタカナに変換する
MsgBox sc.Katakana("あいうえお")
'全角文字に変換する
MsgBox sc.FullWidth("abc")
'半角文字に変換する
MsgBox sc.HalfWidth("ａｂｃ")
'小文字に変換する
MsgBox sc.LowerCase("ABC")
'大文字に変換する
MsgBox sc.UpperCase("abc")
'半角カナを全角に変換する
MsgBox sc.FullKatanaka("ｶﾀｶﾅ")
'HTMLエスケープ
MsgBox sc.EncodeHtml("<html>")
'HTMLエスケープ解除
MsgBox sc.DecodeHtml("&lt;html&gt;")
'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)
'大文字で始める
MsgBox sc.Capitalize("hello")

Set sc = Nothing

その他

ライセンス

フリーソフトとして公開します。転載については事前にメールで連絡してください。

免責事項

このプログラムの使用により生じたいかなる損害についても保障することは出来ません。

サポート

本ソフトウェアについては、メールでのみサポートを受け付けています。

質問・要望・バグ報告・作者への励ましのメールは、yamamoto@gesource.jpまでお願いします。

文字変換ライブラリ StrConvDLL