C# VB Web システム開発の部屋

システム開発で役に立つコードを厳選したブログです。

【VB.NET】文字列が全角かチェックする方法

 

'全角のみかチェック
Dim str As String = 'チェックする文字列'
If Len(str) = 0 Then IsMultiByte = False Exit Sub End If Dim intCountByte As Integer = System.Text.Encoding.GetEncoding(932).GetByteCount(str) Dim intWideCountByte As Integer = System.Text.Encoding.GetEncoding(932).GetByteCount(StrConv(str, VbStrConv.Wide))
If intCountByte = intWideCountByte Then IsMultiByte = True Else IsMultiByte = False End If

IsMultiByte True なら全角、Falseなら全角でない。

 

VB.NET