このページをはてなブックマークに追加このページを含むはてなブックマーク このページをlivedoor クリップに追加このページを含むlivedoor クリップ

  • 追加された行はこの色です。
  • 削除された行はこの色です。
*全角文字と半角文字を識別する [#k0a15acb]

 If Len(strValue) = System.Text.Encoding.GetEncoding("Shift-JIS").GetByteCount(strValue) Then
  Debug.Print("半角文字だけである。")
 Else If Len(strValue) = 2 * System.Text.Encoding.GetEncoding("Shift-JIS").GetByteCount(strValue) Then
  Debug.Print("全角文字だけである。")
 Else
  Debug.Print("半角文字・全角文字が混在している。")
 End If

 Len()は文字数を取得する関数である。一方、EncodingクラスのGetByteCount()はバイト数を取得するメソッドである。

 よって、文字数とバイト数が一致すれば、指定された文字列strValueはすべて半角文字で構成されていることを意味する。

[補講]半角1文字=1バイト、全角1文字=2バイト ◇