| 일보 관련 Scripts 입니다 |
|---|
| 작성자: 관리자 2001-03-24 11:32:49 | 3,028 |
|
일보 관련 Scripts 입니다 이 부분은 버튼에 액션 스크립트 부분에 넣으시면 됩니다. {}부분은 주석입니다. DATADIR = InfoInTouchAppDir(); {DATADIR: 이력파일이 있는 폴더} DBDIR = InfoInTouchAppDir(); {DBDIR: tagname.x 파일이 있는 폴더} STARTDATE = StringFromTime(($Date - 1) * 86400, 1); {STARTDATE: 조회 시작일자} {$Date - 1: 하루 전} {86400: 일당 초 수} {1: $DateString 형식으로 출력, 제어판/국가별설정/날짜에서 'MM/dd/yy' 로 설정해야 함} STARTTIME = "00:00:00"; {STARTTIME: 조회 시작시간} DURATION = "24H"; {DURATION: 조회 기간 범위} INTERVAL = "1H"; {INTERVAL: 조회 샘플링 주기} TAGS = "$Time,start,milk_valve,syrup_valve,tank_level"; {TAGS: 조회할 태그들} PRINTTAGNAMES = 0; {1: 출력시 태그이름을 출력함} {0: 출력시 태그이름을 출력 안함} SENDDATA = 1; {조회 시작} data change 스크립트에 넣는 부분 입니다 senddata와 writedata 두 가지를 만드시면 됩니다 이 tag는 histdata.exe 내부에서 값이 변하게 됩니다 위의 스크립트에서 senddata=1이 되면 histdata프로그램이 log파일을 *.csv파일 형태로 변화시키게 되고 그 변화가 끝나면 senddata값을 0으로 리턴해 줍니다. Senddata 스크립트 IF SENDDATA == 0 THEN {조회가 끝나면} FILENAME = "d:intouchtest" + StringRight( $DateString, 2 ) + StringLeft( $DateString, 2 ) + StringMid( $DateString, 4, 2 ) + ".CSV"; {쓰여질 파일이름 정의, yymmdd.csv} WRITEFILE = 1; {파일에 쓰기 시작} ENDIF; 아래부분은 위에서 생성된 *.csv파일을 매크로에 의해 *.XLS파일 형태로 바꾸어 주는 부분입니다. *.CSV파일 자체도 엑셀에서 확인 가능하므로 참고 하시기 바랍니다. writedata IF WRITEFILE == 0 THEN {파일에 쓰기가 끝나면} StartApp "c:program filesmicrosoft officeofficeexcel.exe " + InfoInTouchAppDir() + "" +StringRight( $DateString, 2 ) + StringLeft( $DateString, 2 ) + StringMid( $DateString, 4, 2 ) + ".CSV"; {엑셀 매크로 파일 실행, 매크로 참조} ENDIF; |
 |
 |
