DoboWiki

Dim inputText As String = "キョウモイイテンキデスネ。"
 
'カタカナをひらがなに変換する
Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToHiragana(inputText)
 
Console.WriteLine(outputText)
'きょうもいいてんきですね。

Dim inputText As String = "あしたもいいてんきですね。"
 
'ひらがなをカタカナに変換する
Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToKatakana(inputText)
 
Console.WriteLine(outputText)
'アシタモイイテンキデスネ。

Dim inputText As String = "１ｔａｓｕ２ｈａ　４ＫＡ？"
 
'全角を半角に変換する
Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToHankaku(inputText)
 
Console.WriteLine(outputText)
'1tasu2ha 4KA?

Dim inputText As String = "1tasu2ha 3DA!"
 
'半角を全角に変換する
Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToZenkaku(inputText)
 
Console.WriteLine(outputText)
'１ｔａｓｕ２ｈａ　３ＤＡ！

Dim inputText As String = "キョーワ、イイテンキデスネ｡"
 
'全角カナを半角カナに変換する
Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToHankakuKana(inputText)
 
Console.WriteLine(outputText)
'ｷｮｰﾜ、ｲｲﾃﾝｷﾃﾞｽﾈ｡

Dim inputText As String = "ｷｮｰﾓ､ｲｲﾃﾝｷﾃﾞｽﾖ｡"
 
'半角カナを全角カナに変換する
Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToZenkakuKana(inputText)
 
Console.WriteLine(outputText)
'キョーモ､イイテンキテ゛スヨ｡

Dim inputText As String = "フ゜テ゛ィンク゛"
 
'濁点と半濁点を前の文字と結合させる
Dim outputText As String = VisualBasic.Japanese.Kanaxs.Kana.ToPadding(inputText)
 
Console.WriteLine(outputText)
'プディング