ASP에서 문자열의 보충 채우기 ()를 구현하십시오

코드 사본은 다음과 같습니다.

<%

'기능 : 한 문자열 전후에 다른 문자열을 완료하십시오

'출처 : http://jorkin.reallydo.com/article.asp?id=452

PublicFunctionFill (ByValSstring, ByValsstr)

fill = rfill (lfill (sstring, sstr), sstr)

최종 기능 장애

%>

코드 사본은 다음과 같습니다.

<%

'함수 : 한 문자열 앞에서 다른 문자열을 완료하십시오

'출처 : http://jorkin.reallydo.com/article.asp?id=452

PublicFunctionLfill (ByValSstring, ByValsstr)

dimistrlen : istrlen = len (sstr & "")

fori = istrlento1step-1

ifright (sstr, i) = 왼쪽 (sstring, i) thenexitfor

다음

lfill = 왼쪽 (sstr, istrlen-i) & sstring

최종 기능 장애

%>

코드 사본은 다음과 같습니다.

<%

'기능 : 한 문자열 이후에 다른 문자열을 완료하십시오

PublicFunctionRfill (ByValSstring, ByValsstr)

dimistrlen : istrlen = len (sstr & "")

fori = istrlento1step-1

ifleft (sstr, i) = 오른쪽 (sstring, i) thenexitfor

다음

rfill = sstring & mid (sstr, i+1)

최종 기능 장애

%>

예를 들어:

<%= rfill (lfill ( "www.vevb.com/article.asp", "http : //"), "article.asp? id = 452")%>