위 자료가 약간의 문제가 있어서 수정 사용하던 것 올립니다.
함수선언:
실수함수: 문자위치찾아( 문자:찾을문; 실수:서열; 문자:문자열);
// '문자열'에서, '서열'번째의 '찾을문'의 위치를 반환하고, 찾지 못하면, 0 또는 음수를 반환한다.
실수: 수, 수1, 저장위치, 문길;
문자: 저장문;
저장문:= "";
만일( 서열 = 0)
수:= 문자길이( 문자열);
아니면
수:= 서열+1;
저장위치:= 0;
문길:= 문자길이( 찾을문);
되풀이( 참)
{
같이실행해;
수1:= 문자찾아( 찾을문, 문자열);
수:= 수 - 1;
만일(( 수 <= 0) 또는 ( 수1 < 1))
{
결과:= 문자길이( 저장문) - 문길 + 1;
나가;
}
저장문:= 저장문 + 문자복사( 문자열, 1, 수1 + 문길 - 1);
문자열:= 문자복사( 문자열, 수1 + 문길, 문자길이( 문자열) - ( 수1 - 1 + 문길));
}
사용 예:
실수:위치;
문자:경로;
경로:= "C:/Windows/System32/notepad.exe";
위치:= 사용자함수0.문자위치찾아( "/", 2, 경로);
(게시판이 경로가 제대로 저장이 안되서 '/'로 대체했습니다.) |
|
