싸이몬 CIMON SCADA FAQ - 전월의 마지막날을 태그값으로 표현하는 방법

안녕하세요.

싸이몬 CIMON-SCADA 관련 FAQ를 소개 합니다.

텍스트 파일 생성 시, 최근의 데이터를 최상위에 표시하고자 할 때 

다음 예제의 스크립트를 사용할 수 있습니다.

[예제]

1. [도구]-[스크립트]에 진입하여 다음과 같이 스크립트를 입력합니다.

Sub TxtFileReadWrite()

Dim Arr(0 to 32767)                                                    ‘배열 선언

 

UFILENAME$ = “D:\TESTSCADA.txt”

‘txt파일위치

 

If(fileExists(UFILENAME$)=True) then                                  ‘txt파일이 있을 경우

UFileNum = FreeFile

Open UFILENAME For Input As UFileNum                            ‘txt 파일 열기

txtRecordNum% = 0                                                                       ‘txt파일 레코드 초기화

Do Until EOF(UFileNum)

txtRecordNum% = txtRecordNum% +1                                      ‘txt파일 레코드 카운터

Line Input #UFileNum, Arr(txtRecordNum%)                         ‘txt 내용 읽어 Arr 배열에 저장

 

Loop

Close UFileNum     ‘txt 파일 닫기

 

Open UFILENAME For Output As #1                                       ‘txt 파일 열기

Print #1, Timestr(44)                            ‘YYYY년MM월DD일 hh시mm분ss초로 txt파일에 쓰기

For i = 1 to txtRecordNum%

Print #1, Arr(i)                                                     ‘Arr 배열에 저장한 데이터 txt 파일에 쓰기

 

Next i

Close #1

Else

Open UFILENAME For Output As #1                                    ‘파일이 없을 경우 txt 파일 열기

Print #1, Timestr(44)                              ‘YYYY년MM월DD일 hh시mm분ss초로 txt파일에 쓰기

 

Close #1  ‘txt 파일 닫기

 

End If

End Sub

=====================================================

아래의 그림과 같이 스크립트를 등록합니다.

 

2. 버튼 오브젝트를 생성합니다.

[버튼정의]-[동작정의]에서 ‘명령식’ 동작을 선택하고 

‘RunScript(“TxtFileReadWrite”)을 입력합니다.

3. CIMONX 실행 후, 스크립트를 실행하였을 때 

    경로에 텍스트 파일이 생성된 것을 확인할 수 있습니다.

    스크립트 동작 시 텍스트 파일을 읽고, 

    먼저 저장된 데이터의 상위에 최근의 데이터를 표시합니다.

싸이몬 홈페이지에서 다양한 FAQ를 확인할 수 있습니다.

>>홈페이지가기

언제나 고객을 먼저 생각하는 CIMON이 되겠습니다.

감사합니다.