| 文字列中から指定位置の文字を取り出す （11個） (SNo.014) １．文字列中から先頭の１文字を取り出す (４方法） ２．文字列中から先頭の３文字を取り出す (３方法） ３．文字列中の先頭から２文字目から３文字を取り出す （２方法） ４．文字列中の末尾から３文字を取り出す （２方法） |
|
| 使用コントロール | Button1 〜 Button4 |
| その他条件 | WindowsXP(Vista) Visual Basic 2005(VB2008) |
|
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click '文字列中から先頭の１文字を取り出す Dim str1 As String = "あいうえお" Dim wk As String wk = str1.Chars(0) Debug.WriteLine(wk) '結果 あ wk = str1.Substring(0, 1) Debug.WriteLine(wk) '結果 あ MessageBox.Show("文字列 [" & str1 & "] の先頭から１文字は [" & wk & "] です。") wk = Microsoft.VisualBasic.Left(str1, 1) Debug.WriteLine(wk) '結果 あ wk = Microsoft.VisualBasic.Mid(str1, 1, 1) Debug.WriteLine(wk) '結果 あ End Sub |
|
|
２．文字列中から先頭の３文字を取り出す (３方法）
Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click '文字列中から先頭の３文字を取り出す Dim str1 As String = "あいうえお" Dim wk As String wk = str1.Substring(0, 3) Debug.WriteLine(wk) '結果 あいう MessageBox.Show("文字列 [" & str1 & "] の先頭から３文字は [" & wk & "] です。") wk = Microsoft.VisualBasic.Left(str1, 3) Debug.WriteLine(wk) '結果 あいう wk = Microsoft.VisualBasic.Mid(str1, 1, 3) Debug.WriteLine(wk) '結果 あいう End Sub |
|
| ３．文字列中の先頭から２文字目から３文字を取り出す （２方法） Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click '文字列中の先頭から２文字目から３文字を取り出す Dim str1 As String = "あいうえお" Dim wk As String wk = str1.Substring(1, 3) Debug.WriteLine(wk) '結果 いうえ MessageBox.Show("文字列 [" & str1 & "] の先頭から２文字目から３文字は [" & wk & "] です。") wk = Microsoft.VisualBasic.Mid(str1, 2, 3) Debug.WriteLine(wk) '結果 いうえ End Sub |
|
| ４．文字列中の末尾から３文字を取り出す（２方法） Private Sub Button4_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button4.Click '文字列中の末尾から３文字を取り出す Dim str1 As String = "あいうえお" Dim wk As String wk = str1.Substring(str1.Length - 3, 3) Debug.WriteLine(wk) '結果 うえお MessageBox.Show("文字列 [" & str1 & "] の末尾から３文字は [" & wk & "] です。") wk = Microsoft.VisualBasic.Right(str1, 3) Debug.WriteLine(wk) '結果 うえお End Sub |
|