| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 20:25:55 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=11fdaf94882d128a8eadee97772220c0c11452e69c768c15e694ba8835f1a93fa%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22G6r5RwBxxInnVJaILuKPeFF3h7dRPkNP%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d116e6ea5f5917-BLR
Wizard Excel CSV - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ P
JavaScript | 3 sec ago | 0.25 KB
-
💵 Make 3000$ in 20 minutes 💵
JavaScript | 7 sec ago | 0.24 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ G
JavaScript | 12 sec ago | 0.25 KB
-
📌 Swapzone +37% glitch
JavaScript | 16 sec ago | 0.24 KB
-
⭐✅ Swapzone Glitch ✅ Working ⭐⭐ 0
JavaScript | 21 sec ago | 0.25 KB
-
📝 Exchange profit method
JavaScript | 25 sec ago | 0.24 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ 4
JavaScript | 30 sec ago | 0.25 KB
-
⭐ Free Crypto Method ⭐
JavaScript | 35 sec ago | 0.24 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
