#title(kanaxs VB.NET : ひらがなとカタカナ、半角と全角の相互文字変換を行うVB.NETのクラス) #contents *kanaxs VB.NET : ひらがなとカタカナ、半角と全角の相互文字変換を行うVB.NETのクラス [#n518b6f2] **kanaxs VB.NETとは? [#g0a65490] 文字列内に含まれているひらがなとカタカナの相互変換や、半角文字と全角文字の相互変換などを行うクラスです。「[[kanaxs>http://code.google.com/p/kanaxs/]] Kana.JS 1.0.5」をVB.NETに移植したものです。 実のところは、[[kanaxs C#>../kanaxsCSharp]]をVB.NETのコードに変換したものです。 **必要条件 [#q6a41a70] 実際に確認はしていませんが、すべてのバージョンの.NET Framework(VB.NET)で動くように作成したつもりです。 **機能 [#hf5d06c1] kanaxs VB.NETには、以下の機能があります。 ***ToHiraganaメソッド [#a9c8186c] 全角カタカナを全角ひらがなに変換します。具体的には、ァ(0x30A1)からヶ(0x30F6)までの文字をひらがなに変換します。 #code(vbnet){{ Dim inputText As String = "キョウモイイテンキデスネ。" 'カタカナをひらがなに変換する Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToHiragana(inputText) Console.WriteLine(outputText) 'きょうもいいてんきですね。 }} ***ToKatakanaメソッド [#q9089b28] 全角ひらがなを全角カタカナに変換します。具体的には、ぁ(0x3041)からゖ(0x3096)までの文字をカタカナに変換します。 #code(vbnet){{ Dim inputText As String = "あしたもいいてんきですね。" 'ひらがなをカタカナに変換する Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToKatakana(inputText) Console.WriteLine(outputText) 'アシタモイイテンキデスネ。 }} ***ToHankakuメソッド [#c983f77f] 全角英数字および記号を半角に変換します。具体的には、!(0xFF01)から〜(0xFF5E)までの文字と全角スペースを、半角文字に変換します。 #code(vbnet){{ Dim inputText As String = "1tasu2ha 4KA?" '全角を半角に変換する Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToHankaku(inputText) Console.WriteLine(outputText) '1tasu2ha 4KA? }} ***ToZenkakuメソッド [#scd6f057] 半角英数字および記号を全角に変換します。具体的には、!(0x0021)から~(0x007E)までの文字とスペースを、全角文字に変換します。 #code(vbnet){{ Dim inputText As String = "1tasu2ha 3DA!" '半角を全角に変換する Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToZenkaku(inputText) Console.WriteLine(outputText) '1tasu2ha 3DA! }} ***ToHankakuKanaメソッド [#p7863e98] 全角カタカナを半角カタカナに変換します。具体的には、ァ(0x30A1)からン(0x30F3)までの文字と、ー(0x30FC)を、半角に変換します。 #code(vbnet){{ Dim inputText As String = "キョーワ、イイテンキデスネ。" '全角カナを半角カナに変換する Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToHankakuKana(inputText) Console.WriteLine(outputText) 'キョーワ、イイテンキデスネ。 }} ***ToZenkakuKanaメソッド [#wf74a9ca] 半角カタカナを全角カタカナに変換します。具体的には、ヲ(0xFF66)から゚(0xFF9F)までの文字を変換します。 #code(vbnet){{ Dim inputText As String = "キョーモ、イイテンキデスヨ。" '半角カナを全角カナに変換する Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToZenkakuKana(inputText) Console.WriteLine(outputText) 'キョーモ、イイテンキテ゛スヨ。 }} ***ToPaddingメソッド [#pd006268] 「は゛」を「ば」のように、濁点や半濁点を前の文字と合わせて1つの文字に変換します。ToZenkakuKanaメソッドは半角カナの濁点と半濁点をそのまま全角の濁点と半濁点に変換しますので、これを前の文字と合体させて1つの文字にするためには、ToPaddingメソッドを呼び出します。 #code(vbnet){{ Dim inputText As String = "フ゜テ゛ィンク゛" '濁点と半濁点を前の文字と結合させる Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToPadding(inputText) Console.WriteLine(outputText) 'プディング }} **ライセンス [#license] [[kanaxs>http://code.google.com/p/kanaxs/]]と同じ、[[修正BSDライセンス>./license]]です。 **ダウンロード [#download] |バージョン|リンク|変更点|h |1.0.0|&ref(./kanaxs-1.0.0.vb);|| |1.0.0|&ref(./kanaxs-1.0.0.vb.txt);|| **拡張版 [#extension] [[kanaxs C#>../kanaxsCSharp]]にある拡張版は、今のところVB.NETではありません。 **その他 [#s3255027] -拡張メソッドにした方が便利かもしれませんが、そうしませんでした。 **コメント [#e896da57] #comment //これより下は編集しないでください #pageinfo([[:Category/.NET]] [[:Category/ASP.NET]],2011-03-22 (火) 01:06:54,DOBON!,2011-03-22 (火) 01:06:54,DOBON!) #pageinfo([[:Category/.NET]] [[:Category/ASP.NET]],2011-03-22 (火) 01:06:54,DOBON!,2011-03-22 (火) 01:09:45,DOBON!) |