Wizard Excel CSV

Public Class Inspeccion_Archivos
        Class InspeccionExcel
            Shared Function BusquedaCSV(RutaOrigen As String, carpetaDestino As String)
                Try
                    'Verificamos la ruta si existe el archivo
                    If Not File.Exists(RutaOrigen) Then Console.WriteLine("El archivo: " & RutaOrigen & " - No Existe")

                    Console.WriteLine("Archivo encontrado")

                    Console.WriteLine("Paso 2: Verificando o creando carpeta de destino...")
                    If Not Directory.Exists(carpetaDestino) Then
                        Directory.CreateDirectory(carpetaDestino)
                        Console.WriteLine("Carpeta creada exitosamente.")
                    Else
                        Console.WriteLine("Carpeta ya existente.")
                    End If

                    Dim rutaDestino As String = Path.Combine(carpetaDestino, Path.GetFileName(RutaOrigen))
                    Console.WriteLine("Paso 3: Copiando archivo al destino...")
                    File.Copy(RutaOrigen, rutaDestino, overwrite:=True)
                    Console.WriteLine("Archivo copiado exitosamente a: {rutaDestino}")

                    ConsultaCSV(rutaDestino)

                    Console.WriteLine("Paso 5: Eliminando archivo copiado...")
                    File.Delete(rutaDestino)
                    Console.WriteLine("Archivo eliminado de la carpeta 'CSV Example'.")

                Catch ex As Exception
                    Console.WriteLine("Error al copiar el archivo: {ex.Message}")
                End Try

                Return ""
            End Function
            Shared Function ConsultaCSV(RutaCSV As String)
                Try
                    Console.WriteLine("Paso 4: Iniciando análisis del archivo CSV...")

                    ' Reiniciar variables antes de cada búsqueda
                    Dim falseCount As Integer = 0
                    Dim trueValues As New List(Of String)

                    Dim lines As String() = File.ReadAllLines(RutaCSV)

                    For Each line As String In lines.Skip(1) ' Saltar la cabecera
                        Dim columns As String() = line.Split(","c)
                        If columns.Length >= 2 Then
                            Dim colA As String = columns(0).Trim()
                            Dim colB As String = columns(1).Trim()

                            If colA = "OFF" Then
                                falseCount += 1
                            ElseIf colA = "ON" Then
                                trueValues.Add(colB)
                            End If
                        End If
                    Next

                    ' Resultados del análisis
                    Console.WriteLine("Análisis completado. Total OFF: {falseCount}")
                    If trueValues.Count > 0 Then
                        Console.WriteLine("Valores ON en la columna B:")
                        For Each value As String In trueValues.Distinct() ' Asegurarse de mostrar valores únicos
                            Console.WriteLine("  - {value}")
                        Next
                    Else
                        Console.WriteLine("No se encontraron valores ON.")
                    End If

                Catch ex As Exception
                    Console.WriteLine("Error durante el análisis del archivo CSV: {ex.Message}")
                End Try

                Return ""
            End Function
        End Class
    End Class