결과로 다른 작업과 함께, 다른 기록에 인스턴스가 동일한 텍스트를 찾기

Question

그래서 내 입력 파일은 같은 것 : 지금

words words nothing important 

words words nothing important 

the quick brown fox 23 

the quick brown fox 14 

words words nothing important 

words words nothing important 

, 나는 "여우의 첫 번째 인스턴스를 잡을 수 있도록하고 싶습니다 WS-FIRST에서 "23"을 캡처 한 다음 "여우"의 두 번째 인스턴스를 가져 와서 WS-SECOND에서 "14"를 캡처합니다.

"빠른 갈색 여우"를 다른 문자열로 바꾸 겠지만 두 줄 모두 동일하므로 매우 쉽습니다.

텍스트는 내용이 고정되어 있으며 위치가 고정되어 있으며 내용, 위치 및 길이도 고정되어 있습니다.

Answer 1

문제는 유한 상태 기계 또는 간단한 파서에 잘 맞을 것으로 판단됩니다. 숙제처럼 들리므로 코드를 작성하지는 않겠지 만 올바른 방향으로 안내 할 수있는 몇 가지 힌트를 제공 할 것입니다.

• 입력 한 문자를 char 루프로 처리하고 단어를 스캔하라는 강한 요구에 저항하십시오.
• 가장 긴 리터럴에 입력 한 내용을 먼저 비교하면 "빠른 여우"가 "여우"앞에 부딪 칠 것입니다. 이것을 "탐욕스러운"스캐닝이라 부르며 일반적으로 항상 그래야하는 것은 아닙니다.
• 검색에서 대소 문자를 구분하지 않으면 대문자와 소문자를 사용하여 입력을 접을 수 있습니다
• 리터럴과 비교할 때 첫 번째를 조건으로 사용하면이 대신에 컴파일러 오류가 발생하기 쉽습니다 나는 그 중 일부는 도움이되기를 바랍니다

  Perform Read-An-Input-Line 
  Perform until no-more-input 
  
      Perform varying II from 1 by 1 
      until II > length of Input-Line 
  
      Evaluate true 
       when 'the quick brown fox' = function lower-case(Input-Line (II:)) 
        ...do replace for that string... 
  
       when 'fox' = function lower-case(Input-Line (II:)) 
        Move Input-Line (II + 5 : 2) to WS-Got-A-Number 
  
      End-Evaluate 
  
      End-Perform 
  
      Perform Read-An-Input-Line 
  End-Perform 
  

  : 같은 경우와 언어

에 미묘한 버그가 그래서 메인 보면 보일 수 있습니다.

Answer 2

01 field-we-are-about-to-change. 
    05 FILLER. 
     10 the-bit-you-want-to-change PIC X(length of that text, you count). 
      88 its-the-text-we-want VALUE ' the quick brown fox '. 
     10 our-numeric-value PIC XX. 
     10 FILLER PIC X(what is left of the input line). 

01 WS-FIRST PIC XX. 
01 WS-SECOND PIC XX. 
01 FILLER PIC X VALUE "N". 
    88 first-not-found VALUE "N". 
    88 first-found VALUE "Y". 

MOVE your-input TO field-we-are-about-to-change 

IF its-the-text-we-want 
    MOVE replacement-text TO the-bit-you-want-to-change 
    IF first-not-found 
     SET first-found TO TRUE 
     MOVE our-numeric-value TO WS-FIRST 
    ELSE 
     MOVE our-numeric-value TO WS-SECOND 
    END-IF 
END-IF 

입력 내용이 고정되어 있으면 정의를 사용하여 고정 된 것으로 처리하십시오. 다양한 변형이 가능합니다.