827347_es-ES

liliconcom

Compilador de registros

Tengo un script que compila un grupo de archivos de registro según el título de los archivos en el directorio de origen. Este script lee un ID de lote de una tabla de direcciones y lo usa para buscar en el directorio de ruta "dir" y compilar los archivos de destino. Necesito reutilizar este script para que mire dentro del texto de los archivos disponibles para ver si el ID de lote aparece allí y se compile en consecuencia. Vi algunas referencias a esto en línea, pero la idea de abrir cada archivo para tomar la determinación parece algo que podría llevar mucho tiempo. Se agradecen las ideas.

Names Default To Here( 1 );
Clear Globals();

lst = Column( "lot" ) << Get Values;

n = N Items( lst );

dir = "\\Source_Directory\";

myfiles = {};

files = Files In Directory( dir, Recursive );

n_getfiles = N Items( files );

filteredFiles = {};

While( (testname = Remove From( files, 1 )) != {}, 

	Relevant = Char( Regex( testname[1], "/4(\d{6})R", "4\1" ) );

If( Contains( testname[1], Relevant ),

		Insert Into( filteredFiles, testname, 1 );

	);
);

Show( filteredFiles );

t_filterfiles = t4 - t3;

n_filterfiles = N Items( filteredFiles );

Show( t_getfiles, n_getfiles, t_filterfiles, n_filterfiles );

Show( filteredFiles );

compiler_function = Function( {lot_number}, 

	Try(
		use1 = lot_number;
		LotID = Char( use1 );

		For( i = 1, i <= N Items( filteredFiles ), i++, 
			If( Contains( filteredFiles[i], LotID ), 
				Insert Into( myFiles, filteredFiles[i] ))
		);
		final_files = myfiles;
	)
);

For( l = 1, l <= n, l++, //Show(l);
	compiler_function( lst[l] )
);

i = 1;

dtjoin = Open(

	dir || myfiles[i], 

	Import Settings(
		End Of Line( CRLF, CR, LF ),
		End Of Field( Tab, Comma, CSV( 1 ) ),
		Strip Quotes( 1 ),
		Use Apostrophe as Quotation Mark( 0 ),
		Use Regional Settings( 0 ),
		Scan Whole File( 1 ),
		Treat empty columns as numeric( 0 ),
		CompressNumericColumns( 0 ),
		CompressCharacterColumns( 0 ),
		CompressAllowListCheck( 0 ),
		Labels( 1 ),
		Column Names Start( 1 ),
		First Named Column( 1 ),
		Data Starts( 2 ),
		Lines To Read( "All" ),
		Year Rule( "20xx" )
	);
	
	
);
Wait( 0 );
Column( 1 ) << set name( "Column 1" );
dtjoin << set name( "Joined1" );
dtjoin << Add Rows( 1, after( N Rows( dtjoin ) ) );
For( i = N Rows( dtjoin ), i <= N Rows( dtjoin ), i++,
	:Column 1[i] = "File 1"
);

i = 2;

For( i = 2, i <= N Items( myfiles ), i++, 

	dt = Open(

		dir || myfiles[i], 

		Import Settings(
			End Of Line( CRLF, CR, LF ),
			End Of Field( Tab, Comma, CSV( 1 ) ),
			Strip Quotes( 1 ),
			Use Apostrophe as Quotation Mark( 0 ),
			Use Regional Settings( 0 ),
			Scan Whole File( 1 ),
			Treat empty columns as numeric( 0 ),
			CompressNumericColumns( 0 ),
			CompressCharacterColumns( 0 ),
			CompressAllowListCheck( 0 ),
			Labels( 1 ),
			Column Names Start( 1 ),
			First Named Column( 1 ),
			Data Starts( 2 ),
			Lines To Read( "All" ),
			Year Rule( "20xx" )
		);

	);
        
	Column( 1 ) << set name( "Column 1" );
	dt << Add Rows( 1, after( N Rows( dt ) ) );
	For( j = N Rows( dt ), j <= N Rows( dt ), j++,
		:Column 1[j] = ("File " || Char( i ))
	);
 
	dtjoin = dtjoin << Concatenate(
		dt, output table name( "Joined" || Char( i ) ), 
	);

	Close( dt, nosave );

	Close( "Joined" || Char( i - 1 ), nosave );

	Wait( 0.1 );

); 

dtjoin << set name( " Mask Data" );

Automatización y scriptingRe: Compilador de registros

¿Qué tamaño tienen los archivos? ¿Cuántos archivos? ¿El ID puede estar en cualquier parte del archivo o en una ubicación o línea específica? ¿Qué has probado (por ejemplo, Load Text File() )?

Re: Compilador de registros

Los archivos salen con un peso de ~25 kB, de 300 a 400 líneas de longitud, la cantidad de archivos puede variar, tal vez 100 en el peor de los casos. Cualquier cosa que considerara tendría que haber abierto cada archivo para decidir la relevancia, no escribí nada de eso, podría caducar antes de que lleguen los datos. Load Text File() parece interesante, intentaré modificarlo.

Re: Compilador de registros

La importación de varios archivos puede resultar de ayuda, ya sea importando y apilando archivos CSV o cargando el texto sin procesar en una fila por archivo. Experimente con la interfaz gráfica de usuario y luego guarde el script si obtiene algo que le guste. Si puede usar marcas de tiempo de archivo, también será de ayuda.