실수함수: 문자위치찾아( 문자:찾을문; 실수:서열; 문자:문자열)
// '문자열'에서, '서열'번째의 '찾을문'의 위치를 반환하고, 찾지 못하면, '0'을 반환한다.
// 문자열의 첫위치는 '1'.
실수: 수, 수1, 위치, 문길;
수 := 0;
위치:= 0;
수1 := 서열;
문길:= 문자길이( 찾을문);
반복 {
수:= 문자찾아( 찾을문, 문자열); 만일( 수 = 0) { 결과:= 0; 나가;};
위치:= 위치 + 수 + 문길;
문자열:= 문자복사( 문자열, 수 + 문길, 문자길이( 문자열) - ( 수 + 문길));
수1:= 수1 - 1;
같이실행해;
}까지( 수1 = 0);
결과:= 위치 - 문길 - ( 서열 - 1);
/////////////////////////////////////////
예제 첨부했습니다. |