位置を指定して文字列の一部を抜き出す

Dim value As String = "いろはにほへと"
Dim result As String = value.First

Debug.WriteLine(result)　' い

→ Debug.WriteLineが表示される場所

他にもいろいろな方法があります。

Dim value As String = "いろはにほへと"
Dim result1 As String = value(0)
Dim result2 As String = value.Substring(0, 1)
Dim result3 As String = Strings.Left(value, 1)
Dim result4 As String = value.Take(1).ToArray 'このやり方はVB2008以降

Dim value As String = "いろはにほへと"
Dim result As String = value.Substring(0, 3)

Debug.WriteLine(result)　' いろは

→ Debug.WriteLineが表示される場所

他にもいくつか方法があります。

Dim value As String = "いろはにほへと"
Dim result1 As String = Strings.Left(value, 3)
Dim result2 As String = value.Take(3).ToArray 'このやり方はVB2008以降

Dim value As String = "いろはにほへと"
Dim result As String = value.SkipLast(2).ToArray

Debug.WriteLine(result)　' いろはにほ

→ Debug.WriteLineが表示される場所

他にもいくつか方法があります。

Dim value As String = "いろはにほへと"
Dim result1 As String = value.Substring(0, Len(value) - 2)
Dim result2 As String = Strings.Left(value, Len(value) - 2)

Dim value As String = "いろはにほへと"
Dim result As String = value(2)

Debug.WriteLine(result)　' は

→ Debug.WriteLineが表示される場所

Dim value As String = "いろはにほへと"
Dim result As String = value.Substring(2, 5)

Debug.WriteLine(result)　' はにほへと

→ Debug.WriteLineが表示される場所

これでもできます。

Dim value As String = "いろはにほへと"
Dim result As String = Strings.Mid(value, 3, 5)

Debug.WriteLine(result)　' いろはにほ

→ Debug.WriteLineが表示される場所

Dim value As String = "いろはにほへと"
Dim result As String = value.Last

Debug.WriteLine(result)　' と

→ Debug.WriteLineが表示される場所

他にもいろいろな方法があります。

Dim value As String = "いろはにほへと"
Dim result1 As String = value(Len(value) - 1)
Dim result2 As String = value.Substring(Len(value) - 1)
Dim result3 As String = Strings.Right(value, 1)
Dim result4 As String = value.TakeLast(1).ToArray 'このやり方はVB2008以降

Dim value As String = "いろはにほへと"
Dim result As String = value.TakeLast(3).ToArray

Debug.WriteLine(result)　' ほへと

→ Debug.WriteLineが表示される場所

他にもいくつか方法があります。

Dim value As String = "いろはにほへと"
Dim result1 As String = value.Substring(Len(value) - 3)
Dim result2 As String = Strings.Right(value, 3)

Dim value As String = "いろはにほへと"
Dim result As String = value.Substring(2)

Debug.WriteLine(result)　' はにほへと

→ Debug.WriteLineが表示される場所

これでもできます。

Dim value As String = "いろはにほへと"
Dim result1 As String = Strings.Right(value, Len(value) - 2) 
Dim result2 As String = value.Skip(2).ToArray 'このやり方はVB2008以降

Dim value As String = "いろはにほへと"
Dim result As String = value.ElementAt(Len(value) - 2)

Debug.WriteLine(result)　' へ

→ Debug.WriteLineが表示される場所

Dim value As String = "いろはにほへと"
Dim result As String = value.Where(Function(c, i) i Mod 2 = 0).ToArray

Debug.WriteLine(result)　' いはほと

→ Debug.WriteLineが表示される場所

Dim value As String = "いろはにほへと"
Dim result As String = value.Substring(0, value.IndexOf("に"))

Debug.WriteLine(result)　' いろは

→ Debug.WriteLineが表示される場所

これでもできます。

Dim value As String = "いろはにほへと"
Dim result As String = value.TakeWhile(Function(c) c <> "に").ToArray

Debug.WriteLine(result)　' いろは

→ Debug.WriteLineが表示される場所