A cópia do código é a seguinte:
<%
'Função: Complete outra string antes e depois de uma string
'Fonte: http://jorkin.reallydo.com/article.asp?id=452
PublicFunctionFill (ByvalSstring, Byvalsstr)
Preencher = rfill (lfill (sstring, sstr), sstr)
Função final
%>
A cópia do código é a seguinte:
<%
'Função: Complete outra string na frente de uma string
'Fonte: http://jorkin.reallydo.com/article.asp?id=452
PublicFunctionlfill (ByvalString, ByvalSstr)
DIMISTLEN: ISTRLEN = LEN (SSTR & "")
Fori = istrLENTO1STEP-1
SeRright (sstr, i) = esquerda (sString, i) então exinitfor
Próximo
Lfill = esquerda (SSTR, ISTRLEN-I) e SSTRING
Função final
%>
A cópia do código é a seguinte:
<%
'Função: Complete outra string após uma string
PublicFunctionRfill (ByvalString, ByvalSstr)
DIMISTLEN: ISTRLEN = LEN (SSTR & "")
Fori = istrLENTO1STEP-1
Ifleft (sstr, i) = direita (sString, i) então exinitfor
Próximo
Rfill = sString & Mid (SSTR, i+1)
Função final
%>
Por exemplo:
<%= Rfill (lfill ("www.vevb.com/article.asp", "http: //"), "article.asp? Id = 452")%>