827347_ja-JP

liliconcom

ログコンパイラ

ソース ディレクトリ内のファイルのタイトルに応じてログ ファイルのグループをコンパイルするスクリプトがあります。このスクリプトは、アドレス テーブルからロット ID を読み取り、それを使用してパス ディレクトリ "dir" を検索し、ターゲット ファイルをコンパイルします。このスクリプトを再利用して、使用可能なファイルのテキスト内を調べて、ロット ID がそこに表示されているかどうかを確認し、それに応じてコンパイルするようにする必要があります。これについてはオンラインでいくつか参照しましたが、すべてのファイルを開いて判断するというアイデアは、時間がかかりそうです。アイデアをいただければ幸いです。

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" );

自動化とスクリプトRe: ログコンパイラ

ファイルの大きさはどれくらいですか? ファイルの数はいくつですか? ID はファイル内のどこにでも、または特定の場所/行に配置できますか? 何を試しましたか (たとえば、 Load Text File() )?

Re: ログコンパイラ

ファイルは 25kB 程度、300 から 400 行の長さで出力されます。ファイル数は変化する可能性があり、最悪の場合 100 個になるかもしれません。私が検討した方法では、関連性を判断するために各ファイルを開く必要がありましたが、私はそのようなことは書いていません。データが到着する前に期限が切れるかもしれません。Load Text File() は面白そうです。試してみます。

Re: ログコンパイラ

複数ファイルのインポートは、CSV をインポートしてスタックするか、未処理のテキストをファイルごとに 1 行にロードすることで役立つ場合があります。GUI を操作して、気に入った結果が得られたらスクリプトを保存します。ファイルのタイムスタンプを使用できる場合は、これも役立ちます。