La copia del código es la siguiente:
<%
'Función: complete otra cadena antes y después de una cadena
'Fuente: http://jorkin.reallydo.com/article.asp?id=452
PublicFunctionFill (Byvalsstring, Byvalsstr)
Relleno = rfill (lfill (SSTRING, SSTR), SSTR)
Función final
%>
La copia del código es la siguiente:
<%
'Función: complete otra cadena frente a una cadena
'Fuente: http://jorkin.reallydo.com/article.asp?id=452
PublicFunctionLFill (Byvalsstring, Byvalsstr)
Dimistrlen: IStrlen = Len (SSTR & "")
Fori = istrlento1step-1
Ifright (sSTR, i) = izquierda (sstring, i) entoncesxitfor
Próximo
Lfill = izquierda (sstr, istrlen-i) y sstring
Función final
%>
La copia del código es la siguiente:
<%
'Función: complete otra cadena después de una cadena
PublicFunctionRfill (Byvalsstring, Byvalsstr)
Dimistrlen: IStrlen = Len (SSTR & "")
Fori = istrlento1step-1
Ifleft (sstr, i) = right (sstring, i) entoncesxitfor
Próximo
Rfill = sstring & mid (sstr, i+1)
Función final
%>
Por ejemplo:
<%= Rfill (lfill ("www.vevb.com/article.asp", "http: //"), "Artículo.asp? Id = 452")%>