Re: 데이터를 요약 테이블로 추출하기 위한 일괄 처리 파일루핑을 시작하기 전에 파일 이름 및 영역 열이 있는 새 테이블을 만들고 원하는 대로 형식을 지정합니다. 가장 쉬운 방법은 새 테이블을 만든 다음 테이블 복사 스크립트를 사용하는 것입니다. 또한 해당 테이블에 참조 변수를 할당하는 것을 잊지 마십시오!
그런 다음 영역을 계산한 후 루프에서 << Get Name을 사용하여 테이블 이름을 얻은 다음 << Add Rows()를 사용하여 컬렉션 테이블에 새 행을 추가할 수 있습니다. 또한 관련 정보를 얻은 후 불필요한 테이블과 보고서를 닫는 것을 잊지 마십시오.
Names Default To Here(1);
dt_collector = New Table("Untitled",
Add Rows(0),
New Column("File Name", Character, Nominal, Set Values({})),
New Column("Area", Numeric, "Continuous", Set Values([]))
);
// For(..
// ...
//dt_name = dt << Get Name;
dt_name = "table";
area = 123;
dt_collector << Add Row({File Name = dt_name, Area = area});
//);
Re: 파일을 일괄 처리하여 데이터를 요약 테이블로 추출합니다.새 데이터 테이블을 생성하고 파일 이름과 영역을 새 테이블에 쓰는 코드를 추가했습니다.
Names Default to Here( 1 );
//point to file directory
path = Pick Directory( "Select Directory Containing Data Files" );
//Gets the list of files in the selected file folder
file_list = Files In Directory( path );
// Crete beginnings of output data table
dtFinal = New Table( "Final", New Column( "File Name", Character ), New Column( "Area" ) );
//i=0;open file
nfile_list = N Items( file_list );
For( i = 1, i <= nfile_list, i += 1,
//Set Current Directory( dir_DirectoryPath );
dt = Open( path || file_list[i], );
//Calculate area
dt = Current Data Table();
dt << clear row states;
obj3 = dt << Bivariate(
invisible,
Y( :Name( "Data" ) ),
X( :Time ),
Fit Polynomial( 6, {Line Color( {212, 73, 88} )} ),
SendToReport( Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 449, 411 )} ) )
);
//save graph to data dable
obj3 << Save Script to Data Table( "Area" );
//get the prediction formula string and calculate the area under the curve for 30 minute adsoription
fm = Report( obj3 )[Outline Box( "Polynomial ?" )][Text Edit Box( 1 )] << get text;
//get the string to the right of the equal sign and convert the string to an expression using Parse()
fm = Parse( Trim( Word( 2, fm, "=" ) ) );
area = Integrate( fm, :Time, 0, 3600 );
Caption( "The area under this curve is " || Char( area ) );
Print( area );
// Add information to Final data table
dtFinal << add rows( 1 );
dtFinal:File Name[N Rows( dtFinal )] = file_list[i];
dtFinal:area[N Rows( dtFinal )] = area;
);Re: 파일을 일괄 처리하여 데이터를 요약 테이블로 추출합니다.감사합니다! 친절하게 자세하게 설명도 해주셔서 좋았습니다. 따라하기 쉽습니다 
Re: 파일을 일괄 처리하여 데이터를 요약 테이블로 추출합니다.감사합니다! 다른 댓글을 먼저 봤지만 이것도 마음에 듭니다.
데이터를 요약 테이블로 추출하기 위한 일괄 처리 파일일부 분석을 수행하려는 파일이 여러 개 있습니다. 파일을 열고, 분석을 수행하고, 이 예제에서 "곡선 아래 영역" 값을 계산한 다음 파일 이름과 영역이 포함된 요약 테이블을 만드는 루프를 만들고 싶습니다. 폴더에서 파일을 열고 분석을 수행할 수 있습니다. 요약 테이블을 만드는 방법을 잘 모르겠습니다. 나는 2개의 파일에 대한 예제를 제공했지만 이 방법으로 처리하고 싶은 더 많은 파일이 있습니다. 어떤 도움이나 안내라도 대단히 감사하겠습니다! 또한 이것이 이해가 되지 않거나 추가 정보가 필요한 경우 알려주십시오.
//point to file directory
path = Pick Directory( "Select Directory Containing Data Files" );
//Gets the list of files in the selected file folder
file_list = Files In Directory( path );
//i=0;open file
nfile_list = N Items( file_list );
For( i = 1, i <= nfile_list, i += 1,
//Set Current Directory( dir_DirectoryPath );
dt = Open( path || file_list[i], );
//Calculate area
dt = Current Data Table();
dt << clear row states;
obj3 = dt << Bivariate(
Y( :Name( "Data" ) ),
X( :Time ),
Fit Polynomial( 6, {Line Color( {212, 73, 88} )} ),
SendToReport( Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 449, 411 )} ) )
);
//save graph to data dable
obj3 << Save Script to Data Table( "Area" );
//get the prediction formula string and calculate the area under the curve for 30 minute adsoription
fm = Report( obj3 )[Outline Box( "Polynomial ?" )][Text Edit Box( 1 )] << get text;
//get the string to the right of the equal sign and convert the string to an expression using Parse()
fm = Parse( Trim( Word( 2, fm, "=" ) ) );
area = Integrate( fm, :Time, 0, 3600 );
Caption( "The area under this curve is " || Char( area ) );
Print( area );
);
갖고 싶은 파이널 테이블의 예:
이에 대한 도움을 주시면 감사하겠습니다. 감사해요
대량 맞춤화
