Extraer información de un archivo de texto csv con ASP clásico

Código ASP clásico

En este artículo, te mostraremos cómo usar un script en ASP Clásico para leer y procesar un archivo de texto, extrayendo información específica y guardándola en un nuevo archivo. Este procedimiento es especialmente útil para manejar registros y datos almacenados en archivos de texto, y se integrará perfectamente con tu base de datos SQL Server.

Leer archivo de texto CSV

const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Scripts\datos.csv", ForReading)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    arrFields = Split(strLine, ",")
    If InStr(arrFields(1), "Everyone") Then
        strContents = strContents & arrFields(5) & vbCrlf
    End If
Loop
objFile.Close
Set objFile = objFSO.CreateTextFile("C:\Scripts\completo.csv")
objFile.Write strContents
objFile.Close


Explicación del Script ASP clásico para leer un archivo CSV

Primero, veamos el archivo de texto en cuestión (C:\Scripts\datos.csv):

MBPGPS1PRN-001\,Administrators,LOCALGROUP,S-1-5-32-544,PRINTSHARE,\\MBPGPS1PRN-001\mbbetsb01,OWNER,,
MBPGPS1PRN-001,Everyone,GLOBALGROUP,S-1-1-0,PRINTSHARE,\\MBPGPS1PRN-001\mbbetsb01,(+PrR),,
MBPGPS1PRN-001,Everyone,GLOBALGROUP,S-1-1-0,PRINTSHARE,\\MBPGPS1PRN-002\mbbetsb01,(+PrR),,
MBPGPS1PRN-001,Administrators,GLOBALGROUP,S-1-1-0,PRINTSHARE,\\MBPGPS1PRN-001\mbbetsb01,(+PrR),,
MBPGPS2PRN-001,Everyone,GLOBALGROUP,S-1-1-0,PRINTSHARE,\\MBPGPS2PRN-001\mbbet02,(+PrR),,


Cada línea en este archivo contiene múltiples campos separados por comas. Nuestro objetivo es identificar las líneas donde el segundo campo contiene la palabra "Everyone" y extraer el sexto campo de esas líneas.

Pasos del Script:

Definición de la Constante y Apertura del Archivo:

Definimos una constante ForReading con el valor 1 para abrir el archivo en modo lectura. Luego, creamos una instancia de Scripting.FileSystemObject y abrimos datos.csv:


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Scripts\datos.csv", ForReading)


Lectura y Procesamiento del Archivo:Utilizamos un bucle Do Until para leer el archivo línea por línea hasta llegar al final. Leemos cada línea y la almacenamos en strLine:


Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    arrFields = Split(strLine, ",")


División de la Línea en Campos:Convertimos cada línea en un array utilizando la función Split, que divide la línea en cada coma encontrada:


arrFields = Split(strLine, ",")


Verificación y Extracción:Verificamos si el segundo campo contiene "Everyone" y, de ser así, agregamos el sexto campo a la variable strContents con un salto de línea:


If InStr(arrFields(1), "Everyone") Then
    strContents = strContents & arrFields(5) & vbCrlf
End If


Creación del Nuevo Archivo:Una vez procesadas todas las líneas, cerramos datos.csv y creamos un nuevo archivo completo.csv, donde escribimos los datos extraídos:


objFile.Close
Set objFile = objFSO.CreateTextFile("C:\Scripts\completo.csv")
objFile.Write strContents
objFile.Close


Resultado

El archivo completo.csv contendrá las rutas de las impresoras a las que el grupo "Everyone" tiene acceso:

\\MBPGPS1PRN-001\mbbetsb01
\\MBPGPS1PRN-002\mbbetsb01
\\MBPGPS2PRN-001\mbbet02


Con este script, puedes automatizar la extracción de datos específicos de archivos de texto, facilitando la gestión de permisos y recursos en tu red. Además, esta técnica se puede adaptar y expandir para manejar diferentes tipos de archivos y datos según tus necesidades.


tags: ASP Clásico, SQL Server, procesamiento de archivos, extracción de datos, VBScript, lectura de archivos, automatización de texto, FileSystemObject, manejo de datos

En esta sección encontrarás una mezcla de códigos recopilados de fuentes públicas de Internet y otros creados por ASP TEAM. Compartimos recursos útiles de buena fe para formar una base de conocimiento en el desarrollo de aplicaciones en ASP Clásico.