문자열 길이 알아 내기

Question

변수가 PIC X(20) 인 것으로 가정합니다.

변수에 값이 예를 들어. ABC WXYZ.

사이의 공백을 제외한 문자열의 길이를 찾는 방법은 무엇입니까?

Answer 1

당신이 시험 발을 정의하고 PERFORM이 사용할 수 사이에 당신이 공간을 싶지 않아 정말 확신하는 경우 : 당신은 단지를 알고 싶다면 빌 지적

77 some-len PIC 9(02). *> make sure to use appropriate length, if "big" use COMP-5 
    77 string-ptr PIC 9(02). *> make sure to use appropriate length 
    77 some-var PIC X(20) VALUE ' ABC WXYZ'. 
    77 var-len PIC 9(02) VALUE LENGTH OF some-var. 
    01 test-char PIC X. 
     88 no-spaces values 'A' THROUGH 'Z' 
          'a' THROUGH 'z' 
          '0' THROUGH '9' 
          '-', '.'. 

    PROCEDURE DIVISION. 

     MOVE 0 TO some-len 
     PERFORM VARYING string-ptr FROM 1 BY 1 
       UNTIL string-ptr > var-len 
      MOVE some-var (string-ptr) TO test-char 
      IF no-spaces ADD 1 TO some-len END-IF 
     END-PERFORM 

"없는 공간"문자 덜 바르을 필요로 빠른 옵션이있다 (이 당신과 다른 사람이 무엇을하는지 알려 의견을 확인 :

*> set numbers of all non-spaces in some-len 
     MOVE 0 TO some-len 
     INSPECT some-var TALLYING some-len FOR ALL SPACES 
    *> add more counts here if you want to remove more chars like x'0D'/x'0A'/x'00', ... 
    *> INSPECT some-var TALLYING some-len FOR ALL x'00' 
    *> INSPECT some-var TALLYING some-len FOR ALL x'0D' 
    *> INSPECT some-var TALLYING some-len FOR ALL x'0A' 
    *> and finally subtract it from the fields length 
     SUBTRACT some-len FROM LENGTH OF some-var GIVING some-len 
    *>