２．文字列の文字数・バイト数を取得する(39_Str_02)　(旧、SampleNo.013)

１．文字列の文字数を取得する ２．半角２バイト換算での文字列のバイト数を取得する ３．半角１バイト換算での文字列のバイト数を取得する ４． ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし その他　： 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．文字列の文字数を取得する

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '文字列の文字数を取得する     Dim str1 As String = "123あいう"     Label1.Text = "Dim str1 As String = ""123あいう""" & vbCrLf & vbCrLf     Label1.Text &= String.Format("str1.Length                      = {0}", str1.Length) & vbCrLf     Label1.Text &= String.Format("Microsoft.VisualBasic.Len(str1)  = {0}", Microsoft.VisualBasic.Len(str1)) & vbCrLf     Label2.Text = "文字列の文字数を取得する" End Sub

２．半角２バイト換算での文字列のバイト数を取得する

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '半角２バイト換算での文字列のバイト数を取得する。     Dim str1 As String = "123あいう"     'Encoding.GetByteCount メソッド     Label1.Text = "Dim str1 As String = ""123あいう""" & vbCrLf & vbCrLf     Label1.Text &= String.Format("System.Text.Encoding.Unicode.GetByteCount(str1) = {0}", _                                     System.Text.Encoding.Unicode.GetByteCount(str1)) & vbCrLf     Label2.Text = "指定した文字配列をエンコードするために必要なバイト数を計算します" & vbCrLf & _                     "(半角２バイト換算での文字列のバイト数を取得する。)" End Sub

３．半角１バイト換算での文字列のバイト数を取得する

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click '半角１バイト換算での文字列のバイト数を取得する。     Dim str1 As String = "123あいう"     Label1.Text = "Dim str1 As String = ""123あいう""" & vbCrLf & vbCrLf     Label1.Text &= String.Format("System.Text.Encoding.GetEncoding(""Shift_JIS"").GetByteCount(str1) = {0}", _                                     System.Text.Encoding.GetEncoding("Shift_JIS").GetByteCount(str1)) & vbCrLf     Label1.Text &= String.Format("System.Text.Encoding.GetEncoding(932).GetByteCount(str1)         = {0}", _                                     System.Text.Encoding.GetEncoding(932).GetByteCount(str1)) & vbCrLf     Label1.Text &= String.Format("System.Text.Encoding.Default.GetByteCount(str1)                  = {0}", _                                     System.Text.Encoding.Default.GetByteCount(str1))     Label2.Text = "半角１バイト換算での文字列のバイト数を取得する。" End Sub 　図１．上記実行結果

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)