Ermitteln Sie die Länge eines Strings

Question

Angenommen, ich habe eine Variable PIC X(20).

Die Variable enthält einen Wert, z. ABC WXYZ.

Wie kann man die Länge des Strings ohne den Zwischenraum herausfinden?

Answer 1

Wenn Sie wirklich sicher sind, dass Sie in nicht den Raum wollen zwischen Ihnen Test-val definieren und verwenden diese in 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 

Wie Bill wies darauf hin, wenn Sie wissen wollen, die „keine Leerzeichen“ Zeichen gibt es eine schnellere Möglichkeit, die weniger vars muss (stellen Sie sicher, dass Sie diese im Stich gelassen kommentieren Sie und andere wissen, was das bedeutet:

*> 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 
    *>