「VB.NET」Midメソッドで文字列を切り出すサンプル

2021年11月26日

書式
Mid(文字列,開始の位置 ,文字数)
指定した箇所から指定した文字数分の文字を切り出します
開始の位置は1~
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Module Module1
Public Sub Main()
'半角英文字
Dim str As String
str = "study88skill"
Console.WriteLine("半角英文字から指定の位置から文字を切り出す")
Console.WriteLine(Mid(str, 1, 2))
Console.WriteLine(Mid(str, 1, 3))
Console.WriteLine(Mid(str, 1, 4))
Console.WriteLine("")
'全角文字
Dim str2 As String
str2 = "テスト太郎"
Console.WriteLine("全角文字から指定の位置から文字を切り出す")
Console.WriteLine(Mid(str2, 1, 1))
Console.WriteLine(Mid(str2, 1, 2))
Console.WriteLine(Mid(str2, 1, 3))
Console.WriteLine(Mid(str2, 2, 2))
Console.ReadKey()
End Sub
End Module
Module Module1 Public Sub Main() '半角英文字 Dim str As String str = "study88skill" Console.WriteLine("半角英文字から指定の位置から文字を切り出す") Console.WriteLine(Mid(str, 1, 2)) Console.WriteLine(Mid(str, 1, 3)) Console.WriteLine(Mid(str, 1, 4)) Console.WriteLine("") '全角文字 Dim str2 As String str2 = "テスト太郎" Console.WriteLine("全角文字から指定の位置から文字を切り出す") Console.WriteLine(Mid(str2, 1, 1)) Console.WriteLine(Mid(str2, 1, 2)) Console.WriteLine(Mid(str2, 1, 3)) Console.WriteLine(Mid(str2, 2, 2)) Console.ReadKey() End Sub End Module
Module Module1

    Public Sub Main()

        '半角英文字
        Dim str As String
        str = "study88skill"
        Console.WriteLine("半角英文字から指定の位置から文字を切り出す")
        Console.WriteLine(Mid(str, 1, 2))
        Console.WriteLine(Mid(str, 1, 3))
        Console.WriteLine(Mid(str, 1, 4))

        Console.WriteLine("")

        '全角文字
        Dim str2 As String
        str2 = "テスト太郎"
        Console.WriteLine("全角文字から指定の位置から文字を切り出す")
        Console.WriteLine(Mid(str2, 1, 1))
        Console.WriteLine(Mid(str2, 1, 2))
        Console.WriteLine(Mid(str2, 1, 3))
        Console.WriteLine(Mid(str2, 2, 2))

        Console.ReadKey()
    End Sub

End Module

実行結果

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
半角英文字から指定の位置から文字を切り出す
st
stu
stud
全角文字から指定の位置から文字を切り出す
テス
テスト
スト
半角英文字から指定の位置から文字を切り出す st stu stud 全角文字から指定の位置から文字を切り出す テ テス テスト スト
半角英文字から指定の位置から文字を切り出す
st
stu
stud

全角文字から指定の位置から文字を切り出す
テ
テス
テスト
スト

 

VB.net

Posted by arkgame