[VB.NET]RemoveAtでListの指定要素を削除する

2021年11月26日

構文
Dim リスト名 As New List(Of String)
リスト名.RemoveAt(インデックス)
List<T> の指定したインデックスにある要素を削除します。

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Public Sub Main()
'リストの初期化
Dim cityLst As New List(Of String)
Dim target As String = "福岡"
'リストに要素を追加
cityLst.Add("東京")
cityLst.Add("大阪")
cityLst.Add("福岡")
'インデックスは0から始まります
cityLst.RemoveAt(2)
If cityLst.Contains(target) = True Then
Console.WriteLine("リストに要素 '{0}' は存在します", target)
Else
Console.WriteLine("リストに要素 '{0}' は存在しません", target)
End If
Console.WriteLine("指定した要素を削除する後結果")
For i As Integer = 0 To cityLst.Count - 1
Console.WriteLine(cityLst(i))
Next
Console.ReadKey()
End Sub
Public Sub Main() 'リストの初期化 Dim cityLst As New List(Of String) Dim target As String = "福岡" 'リストに要素を追加 cityLst.Add("東京") cityLst.Add("大阪") cityLst.Add("福岡") 'インデックスは0から始まります cityLst.RemoveAt(2) If cityLst.Contains(target) = True Then Console.WriteLine("リストに要素 '{0}' は存在します", target) Else Console.WriteLine("リストに要素 '{0}' は存在しません", target) End If Console.WriteLine("指定した要素を削除する後結果") For i As Integer = 0 To cityLst.Count - 1 Console.WriteLine(cityLst(i)) Next Console.ReadKey() End Sub
Public Sub Main()

     'リストの初期化
     Dim cityLst As New List(Of String)
     Dim target As String = "福岡"

     'リストに要素を追加
     cityLst.Add("東京")
     cityLst.Add("大阪")
     cityLst.Add("福岡")

     'インデックスは0から始まります
     cityLst.RemoveAt(2)

     If cityLst.Contains(target) = True Then
         Console.WriteLine("リストに要素 '{0}' は存在します", target)
     Else
         Console.WriteLine("リストに要素 '{0}' は存在しません", target)
     End If

     Console.WriteLine("指定した要素を削除する後結果")
     For i As Integer = 0 To cityLst.Count - 1
         Console.WriteLine(cityLst(i))
     Next
     Console.ReadKey()
 End Sub

実行結果

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
リストに要素 '福岡' は存在しません
指定した要素を削除する後結果
東京
大阪
リストに要素 '福岡' は存在しません 指定した要素を削除する後結果 東京 大阪
リストに要素 '福岡' は存在しません
指定した要素を削除する後結果
東京
大阪

 

VB.net

Posted by arkgame