３．文字列中から指定位置の文字を取り出す(39_Str_03)　(旧、SampleNo.014)

１．文字列中から先頭の１文字を取り出す(３方法) ２．文字列中から先頭の３文字を取り出す(３方法) ３．文字列中の先頭から２文字目から３文字を取り出す(２方法) ４．文字列中の末尾から３文字を取り出す(３方法) ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：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 = "あいうえお"     Label1.Text = "Dim str1 As String = ""あいうえお""" & vbCrLf & vbCrLf     Label1.Text &= String.Format("str1.Substring(0, 1)                  = {0}", str1.Substring(0, 1)) & vbCrLf     Label1.Text &= String.Format("Microsoft.VisualBasic.Left(str1, 1)   = {0}", Microsoft.VisualBasic.Left(str1, 1)) & vbCrLf     Label1.Text &= String.Format("Microsoft.VisualBasic.Mid(str1, 1, 1) = {0}", Microsoft.VisualBasic.Mid(str1, 1, 1)) & vbCrLf     Label2.Text = "文字列中から先頭の１文字を取り出す(３方法)" End Sub

２．文字列中から先頭の３文字を取り出す(３方法)

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '文字列中から先頭の３文字を取り出す(３方法)     Dim str1 As String = "あいうえお"     Label1.Text = "Dim str1 As String = ""あいうえお""" & vbCrLf & vbCrLf     Label1.Text &= String.Format("str1.Substring(0, 3)                  = {0}", str1.Substring(0, 3)) & vbCrLf     Label1.Text &= String.Format("Microsoft.VisualBasic.Left(str1, 3)   = {0}", Microsoft.VisualBasic.Left(str1, 3)) & vbCrLf     Label1.Text &= String.Format("Microsoft.VisualBasic.Mid(str1, 1, 3) = {0}", Microsoft.VisualBasic.Mid(str1, 1, 3)) & vbCrLf     Label2.Text = "文字列中から先頭の３文字を取り出す(３方法)" End Sub

３．文字列中の先頭から２文字目から３文字を取り出す(２方法)

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click '文字列中の先頭から２文字目から３文字を取り出す(２方法)     Dim str1 As String = "あいうえお"     Label1.Text = "Dim str1 As String = ""あいうえお""" & vbCrLf & vbCrLf     Label1.Text &= String.Format("str1.Substring(1, 3)                  = {0}", str1.Substring(1, 3)) & vbCrLf     Label1.Text &= String.Format("Microsoft.VisualBasic.Mid(str1, 2, 3) = {0}", Microsoft.VisualBasic.Mid(str1, 2, 3)) & vbCrLf     Label2.Text = "文字列中の先頭から２文字目から３文字を取り出す(２方法)" End Sub

４．文字列中の末尾から３文字を取り出す(３方法)

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click '文字列中の末尾から３文字を取り出す(３方法)     Dim str1 As String = "あいうえお"     Label1.Text = "Dim str1 As String = ""あいうえお""" & vbCrLf & vbCrLf     Label1.Text &= String.Format("str1.Substring(str1.Length - 3, 3)                   = {0}", str1.Substring(str1.Length - 3, 3)) & vbCrLf     Label1.Text &= String.Format("Microsoft.VisualBasic.Right(str1, 3)                 = {0}", Microsoft.VisualBasic.Right(str1, 3)) & vbCrLf     Label1.Text &= String.Format("Microsoft.VisualBasic.Mid(str1,Len(str1) - 3 + 1, 3) = {0}", _                                     Microsoft.VisualBasic.Mid(str1, Len(str1) - 3 + 1, 3)) & vbCrLf     Label2.Text = "文字列中の末尾から３文字を取り出す(３方法)" End Sub

５．

６．

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