데이터를 삭제하기 전에 날짜 상자를 실행하십시오.아래 스크립트에서 데이터 상자를 실행하기 전에 테이블의 모든 데이터가 삭제됩니다.
날짜 범위를 벗어난 데이터를 삭제하려고합니다.
어떻게 든 모달을 사용할 수 있습니까?
Thx-매트
_____________________________________________________________
// 모든 이름을 열고 재설정하고 날짜를 요청하십시오.
기본 이름은 여기 (1);
dt_run = 열기 ( "data.jmp");
// 열기를 기다립니다
기다림 (0);
dt_run << 행 상태 지우기;
dt_run << 열 선택 지우기 ();
startNW = 새 창 ( "시작",
/// << 모달, /// 텍스트 상자가 응답 할 때까지 스크립트 또는 사용자가 계속 진행할 수 없습니다.
StartDate << 최대 날짜 (Col Max (: name ( "Date"))) << 최소 날짜 (Col Min (: Name ( "Date")));
StartDate = 달력 상자 (),
버튼 박스 ( "OK",
startNW << 창 닫기;
StartDate << Set Function (Function ({this, date}, theStartDate = StartDate << Get Date));
)
);
runEndDate = Expr (
endNW = 새 창 ( "End",
EndDate = 달력 상자 (),
버튼 박스 ( "OK",
endNW << 창 닫기;
runSelect;
)
);
endDate << 최대 날짜 (Col Max (: name ( "Date"))) << 최소 날짜 (Col Min (: Name ( "Date")));
EndDate << Set Function (Function ({this, date}, theEndDate = endDate << Get Date));
);
runSelect = Expr (
dt_run << select where (: Name ( "Date")> theStartDate & : Name ( "Date") );
dt_run << 행 선택 반전 ();
dt_run << 행 삭제 ();
다시 : 데이터를 삭제하기 전에 날짜 상자를 실행창 구성 요소가 정의 된 후 StartDate 줄을 이동하면 원하는 것을 얻을 수 있다고 생각합니다.
//Open and reset all names, ask for date
Names Default To Here( 1 );
dt_run = Open( "data.jmp" );
//wait for open
Wait( 0 );
dt_run << clear row states;
dt_run << Clear Column Selection();
startNW = New Window( "Start",
<<MODAL> theStartDate & :Name( "Date" ) < theEndDate )
);
dt_run << Invert Row Selection();
dt_run << Delete Rows();</MODAL>
다시 : 데이터를 삭제하기 전에 날짜 상자를 실행조건부 흐름을 허용하도록 스크립트를 다시 작성했습니다.
//Open and reset all names, ask for date
Names Default To Here( 1 );
dt_run = Open( "Data_date.jmp" );
//wait for open
Wait( 0 );
dt_run << clear row states;
dt_run << Clear Column Selection();
startNW = New Window( "Start Day (note: day after date)",
<<MODAL> theStartDate & :Name( "Date" ) < theEndDate );
dt_run << Invert Row Selection();
dt_run << Delete Rows();
dt_run << Save( "date_selection.jmp" );
Close All( Data Tables, No Save );
dt_run = Open( "date_selection.jmp" );
///Graphs
New Window( "ProtoCP_Monitor - Variability Chart",
V List Box(
Variability Chart(
Y( :PV waves ),
X( :Date, :Time ),
Std Dev Chart( 0 ),
SendToReport(
Dispatch( {"Variability Chart for PV"}, "2", ScaleBox, {Min( 0 ), Max( 2 ), Inc( 0.02 ), Minor Ticks( 0 )} )
)
),
//more charts but deleted script to shorten post
)
) << Journal();
// Save and Close The Journal
Current Journal() << save Journal( "stuff.jrn" );
);
</MODAL>다시 : 데이터를 삭제하기 전에 날짜 상자를 실행아래와 같이 삭제가 작동합니다.
캘린더 상자를 끝내기 전에 스크립트가 시작되고 차트가 수행되지만 동일한 문제가 발생합니다.
//Open and reset all names, ask for date
Names Default To Here( 1 );
dt_run = Open( "Data_date.jmp");
//wait for open
wait(0);
dt_run << clear row states;
dt_run << Clear Column Selection();
startNW = New Window( "Start Day (note: day after date)",
<<MODAL> theStartDate & :Name( "Date" ) < theEndDate );
dt_run << Invert Row Selection();
dt_run << Delete Rows();
dt_run << Save( "date_selection.jmp");
Close All( Data Tables, No Save );
);
Names Default To Here( 1 );
dt_run = Open( "date_selection.jmp");
///Graphs
New Window( "ProtoCP_Monitor - Variability Chart",
V List Box(
Variability Chart(
Y( :PV waves),
X( :Date, :Time ),
Std Dev Chart( 0 ),
SendToReport(
Dispatch(
{"Variability Chart for PV"},
"2",
ScaleBox,
{Min( 0 ), Max( 2 ), Inc( 0.02 ), Minor Ticks( 0 )}
)
)
),
//more charts but deleted script to shorten post
)<< Journal();
// Save and Close The Journal
Current Journal() << save Journal("stuff.jrn");</MODAL>
캘린더 상자가 완성 될 때까지 스크립트를 어떻게 유지합니까?
감사
