kanaxs VB.NET : ひらがなとカタカナ、半角と全角の相互文字変換を行うVB.NETのクラス †
kanaxs VB.NETとは? †
文字列内に含まれているひらがなとカタカナの相互変換や、半角文字と全角文字の相互変換などを行うクラスです。「kanaxs Kana.JS 1.0.5」をVB.NETに移植したものです。
実のところは、kanaxs C#をVB.NETのコードに変換したものです。
必要条件 †
実際に確認はしていませんが、すべてのバージョンの.NET Framework(VB.NET)で動くように作成したつもりです。
機能 †
kanaxs VB.NETには、以下の機能があります。
ToHiraganaメソッド †
全角カタカナを全角ひらがなに変換します。具体的には、ァ(0x30A1)からヶ(0x30F6)までの文字をひらがなに変換します。
1
2
3
4
5
6
7
| | Dim inputText As String = "キョウモイイテンキデスネ。"
Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToHiragana(inputText)
Console.WriteLine(outputText)
|
ToKatakanaメソッド †
全角ひらがなを全角カタカナに変換します。具体的には、ぁ(0x3041)からゖ(0x3096)までの文字をカタカナに変換します。
1
2
3
4
5
6
7
| | Dim inputText As String = "あしたもいいてんきですね。"
Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToKatakana(inputText)
Console.WriteLine(outputText)
|
ToHankakuメソッド †
全角英数字および記号を半角に変換します。具体的には、!(0xFF01)から〜(0xFF5E)までの文字と全角スペースを、半角文字に変換します。
1
2
3
4
5
6
7
| | Dim inputText As String = "1tasu2ha 4KA?"
Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToHankaku(inputText)
Console.WriteLine(outputText)
|
ToZenkakuメソッド †
半角英数字および記号を全角に変換します。具体的には、!(0x0021)から~(0x007E)までの文字とスペースを、全角文字に変換します。
1
2
3
4
5
6
7
| | Dim inputText As String = "1tasu2ha 3DA!"
Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToZenkaku(inputText)
Console.WriteLine(outputText)
|
ToHankakuKanaメソッド †
全角カタカナを半角カタカナに変換します。具体的には、ァ(0x30A1)からン(0x30F3)までの文字と、ー(0x30FC)を、半角に変換します。
1
2
3
4
5
6
7
| | Dim inputText As String = "キョーワ、イイテンキデスネ。"
Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToHankakuKana(inputText)
Console.WriteLine(outputText)
|
ToZenkakuKanaメソッド †
半角カタカナを全角カタカナに変換します。具体的には、ヲ(0xFF66)から゚(0xFF9F)までの文字を変換します。
1
2
3
4
5
6
7
| | Dim inputText As String = "キョーモ、イイテンキデスヨ。"
Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToZenkakuKana(inputText)
Console.WriteLine(outputText)
|
ToPaddingメソッド †
「は゛」を「ば」のように、濁点や半濁点を前の文字と合わせて1つの文字に変換します。ToZenkakuKanaメソッドは半角カナの濁点と半濁点をそのまま全角の濁点と半濁点に変換しますので、これを前の文字と合体させて1つの文字にするためには、ToPaddingメソッドを呼び出します。
1
2
3
4
5
6
7
| | Dim inputText As String = "フ゜テ゛ィンク゛"
Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToPadding(inputText)
Console.WriteLine(outputText)
|
ライセンス †
kanaxsと同じ、修正BSDライセンスです。
ダウンロード †
拡張版 †
kanaxs C#にある拡張版は、今のところVB.NETではありません。
その他 †
- 拡張メソッドにした方が便利かもしれませんが、そうしませんでした。
コメント †