메뉴 건너뛰기
로그인 유지
브라우저를 닫더라도 로그인이 계속 유지될 수 있습니다. 로그인 유지 기능을 사용할 경우 다음 접속부터는 로그인할 필요가 없습니다. 단, 게임방, 학교 등 공공장소에서 이용 시 개인정보가 유출될 수 있으니 꼭 로그아웃을 해주세요.
프로복서™ 2009.03.11 14:37 조회 수 : 2381
영업쪽에서 수출오더 내수로컬로 발생시, 영문만 입력이 되야되는대, 멍청한 영업사원들이 한글로 입력할때가 종종생깁니다.
일일이 검사할수도 없고, 아밥에서 한글입력시에 입력이 안되게 하는 문법이나, 평선 아시는분 계신가여?
2009.03.11 17:59
DATA: INT TYPE STRING.DATA: INT2(10) VALUE '가abc'.
MOVE: 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' TO INT.TRANSLATE INT2 TO UPPER CASE.CONDENSE INT2.IF INT2 NS INT. WRITE: '한글 있음'.ELSE. WRITE: '한글 없음'.ENDIF.
펑션은 없는 듯 하네요. 특수문자 포함인 경우엔...특수문자도 넣어 주셔야 할듯.~
수고하세요
댓글 수정 삭제
2009.03.12 09:33
입력된 LENGTH 를 구해서
1바이트인지 2바이트인지 체크를 하는게 좋을 것 같네요.
CALL FUNCTION 'TRUNCATE_MULTIPLE_BYTE_STRING'
이 함수 로직을 참고하셔서 응용하시면 될것 같네요.
DATA: INT TYPE STRING.
DATA: INT2(10) VALUE '가abc'.
MOVE: 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' TO INT.
TRANSLATE INT2 TO UPPER CASE.
CONDENSE INT2.
IF INT2 NS INT.
WRITE: '한글 있음'.
ELSE.
WRITE: '한글 없음'.
ENDIF.
펑션은 없는 듯 하네요. 특수문자 포함인 경우엔...특수문자도 넣어 주셔야 할듯.~
수고하세요