文字操作 文字列中に2バイト文字(日本語)が含まれているか判定

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][文字操作 文字列中に2バイト文字(日本語)が含まれているか判定]
Option Explicit


Function CharacterInJapanese(Character As StringAs Boolean
'******************************************
'文字列中に2バイト文字が含まれているか判定
'******************************************
Dim cntLen As Long
Dim cntByt As Long

cntLen = Len(Character)
cntByt = LenB(StrConv(Character, vbFromUnicode))

If (cntLen <> cntByt) Then
    CharacterInJapanese = True
Else
    CharacterInJapanese = False
End If

End Function


Private Sub test()
Dim a As String
Dim b As String
a = "abc"
b = "あいう"
Debug.Print CharacterInJapanese(a)
Debug.Print CharacterInJapanese(b)
'False
'True
a = "abcあいう"
b = "123abc"
Debug.Print CharacterInJapanese(a)
Debug.Print CharacterInJapanese(b)
'True
'False
End Sub





Production Japan Import Application. Since 1998