실수함수: 문자위치찾아( 문자:찾을문; 실수:서열; 문자:문자열)

// '문자열'에서, '서열'번째의 '찾을문'의 위치를 반환하고, 찾지 못하면, '0'을 반환한다.

// 문자열의 첫위치는 '1'.



실수: 수, 수1, 위치, 문길;



수  := 0;

위치:= 0;

수1 := 서열;

문길:= 문자길이( 찾을문);

반복 {

   수:= 문자찾아( 찾을문, 문자열); 만일( 수 = 0) { 결과:= 0; 나가;};

   위치:= 위치 + 수 + 문길;

   문자열:= 문자복사( 문자열, 수 + 문길, 문자길이( 문자열) - ( 수 + 문길));

   수1:= 수1 - 1;

   같이실행해;

}까지( 수1 = 0);

결과:= 위치 - 문길 - ( 서열 - 1);


/////////////////////////////////////////

예제 첨부했습니다.