【VB.NET】配列の指定要素のみを削除する

Module SpecificElementRemovalExample
    Sub Main()
        ' 元の配列
        Dim numbers() As Integer = {1, 2, 3, 4, 5, 3, 6, 7, 3, 8}
        Console.WriteLine("元の配列:")
        PrintArray(numbers)

        ' 削除したい要素
        Dim elementToRemove As Integer = 3

        ' 新しい配列を作成（削除する要素の数を数えて、新しい配列のサイズを決定）
        Dim countToRemove As Integer = numbers.Count(Function(n) n = elementToRemove)
        Dim newNumbers(numbers.Length - countToRemove - 1) As Integer
        Dim newIndex As Integer = 0

        For Each num In numbers
            If num <> elementToRemove Then
                newNumbers(newIndex) = num
                newIndex += 1
            End If
        Next

        Console.WriteLine($"{elementToRemove}を削除した新しい配列:")
        PrintArray(newNumbers)
    End Sub

    Sub PrintArray(arr As Integer())
        For Each num In arr
            Console.Write(num & " ")
        Next
        Console.WriteLine()
    End Sub
End Module

Imports System.Linq

Module LinqSpecificRemovalExample
    Sub Main()
        ' 元の配列
        Dim fruits() As String = {"りんご", "バナナ", "オレンジ", "りんご", "ぶどう", "メロン", "りんご"}
        Console.WriteLine("元の配列:")
        PrintArray(fruits)

        ' 削除したい要素
        Dim fruitToRemove As String = "りんご"

        ' LINQを使用して新しい配列を作成
        Dim newFruits = fruits.Where(Function(f) f <> fruitToRemove).ToArray()

        Console.WriteLine($"{fruitToRemove}を削除した新しい配列:")
        PrintArray(newFruits)
    End Sub

    Sub PrintArray(arr As String())
        For Each fruit In arr
            Console.Write(fruit & " ")
        Next
        Console.WriteLine()
    End Sub
End Module

Imports System.Collections.Generic

Module ListRemovalExample
    Sub Main()
        ' Listの作成
        Dim numbers As New List(Of Integer) From {1, 2, 3, 4, 5, 3, 6, 7, 3, 8}
        Console.WriteLine("元のList:")
        PrintList(numbers)

        ' 削除したい要素
        Dim numberToRemove As Integer = 3

        ' 要素の削除
        numbers.RemoveAll(Function(n) n = numberToRemove)

        Console.WriteLine($"{numberToRemove}を削除後のList:")
        PrintList(numbers)
    End Sub

    Sub PrintList(list As List(Of Integer))
        For Each num In list
            Console.Write(num & " ")
        Next
        Console.WriteLine()
    End Sub
End Module