안녕하세요.
CIMON입니다.
텍스트 파일 생성 시, 최근의 데이터를 최상위에 표시하고자 할 때 다음 예제의 스크립트를 사용할 수 있습니다.
[예제]
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 실행 후, 스크립트를 실행하였을 때 경로에 텍스트 파일이 생성된 것을 확인할 수 있습니다.
스크립트 동작 시 텍스트 파일을 읽고, 먼저 저장된 데이터의 상위에 최근의 데이터를 표시합니다.
언제나 고객을 먼저 생각하는 CIMON이 되겠습니다.
감사합니다.