文字列の文字数を数える

Question

文字列に文字数を定義することで問題があります。 は、例えば、私は、次のコードを持っている：

IDENTIFICATION DIVISION. 
PROGRAM-ID. TASK1. 
DATA DIVISION. 
FILE SECTION. 
WORKING-STORAGE SECTION. 
01 SOURCE-STRING PIC X(50) VALUE " The length of string ". 
01 LATTER-COUNTER PIC 99. 
PROCEDURE DIVISION. 
MAIN-PROCEDURE. 
    MOVE 0 TO LATTER-COUNTER 
    INSPECT SOURCE-STRING TALLYING LATTER-COUNTER FOR [???] 
STOP RUN. 

私はSOURCE-STRING（値で書かれている文字列「文字列の長さ」）の長さを見つけるために何を記述する必要があります。 長さは26文字（先頭スペース= 2、最終スペース= 4を含む）でなければなりません。

Answer 1

として、ビルは言った：

COBOLは、 "文字列" を持っていません。そのフィールドには28個の末尾ブランクがあり、28個はすべて同じです。

あなたが使用末尾のスペースの数ではなく、フィールド内の末尾のスペース、その後でないMOVE何かを（あるいはそのためのVALUEを使用）などの長さを知っているが、例えば（フィールドを初期化したい場合MOVE ALL 'x00' TO FIELD）とSTRINGを使用してデータを取得してください（このようにして、 "C"文字列）。これにより、INSPECT ... BEFORE FIRST x'00'を行うことができます。考慮すべき

その他のオプション：

• FUNCTION LENGTH (content)
• STRING content INTO ... WITH POINTER LATTER-COUNTER（1で開始する必要があります）

、あなたの質問に（編集経由）より多くの情報を追加するときに私たちは、より良い答えを与えることができます（どのCOBOLコンパイラを使用するかを含む）。

Answer 2

あなたができることは、文字列の最後を示すためにNULLを使用しています。

まず、NULLにSOURCE-STRINGを初期化します。

01 SOURCE-STRING PIC X(50) VALUE NULL. 

その後、代わりにSTRINGステートメントを使用し、あなたの変数にあなたの文字列を移動するMOVEを使用する：

STRING " The length of string " INTO SOURCE-STRING 

最初の26の文字が移動されていますSOURCE-STRINGに変換されますが、残りの文字は無傷のまま残り、文字列の末尾にはNULLバイトが残っています。次に、NULLバイトの開始位置を特定できます。

また、あなたは自動的に文字をカウントするPOINTERでSTRINGを使用することができます移動：

WORKING-STORAGE SECTION. 

01 SOURCE-STRING PIC X(50) VALUE NULL. 
01 STR-PTR PIC 9(3). 

PROCEDURE DIVISION. 

    MOVE 1 TO STR-PTR 
    STRING " The length of string " 
    INTO SOURCE-STRING 
    POINTER STR-PTR 
    SUBTRACT 1 FROM STR-PTR 

STR-PTRは、実際の文字列の長さが含まれています。 は、STRINGコマンドを使用する前に明示的に1に設定する必要があります。