نسخة الكود كما يلي:
<٪
الوظيفة: أكمل سلسلة أخرى قبل وبعد سلسلة واحدة
'المصدر: http://jorkin.reallydo.com/article.asp؟id=452
PublicFunctionFill (ByvalSstring ، Byvalsstr)
ملء = rfill (lfill (SSTRING ، SSTR) ، SSTR)
الوظيفية
٪>
نسخة الكود كما يلي:
<٪
الوظيفة: أكمل سلسلة أخرى أمام سلسلة واحدة
'المصدر: http://jorkin.reallydo.com/article.asp؟id=452
PublicFunctionLfill (ByvalsString ، Byvalsstr)
Dimistrlen: ittrlen = Len (Sstr & "")
fori = ittrlento1step-1
ifright (SSTR ، i) = left (sString ، i) therexitfor
التالي
lfill = اليسار (SSTR ، ittrlen-i) و sString
الوظيفية
٪>
نسخة الكود كما يلي:
<٪
الوظيفة: أكمل سلسلة أخرى بعد سلسلة واحدة
PublicFunctionRfill (ByvalSstring ، Byvalsstr)
Dimistrlen: ittrlen = Len (Sstr & "")
fori = ittrlento1step-1
ifleft (sStR ، i) = right (sString ، i) therexitfor
التالي
rfill = sstring & mid (SSTR ، i+1)
الوظيفية
٪>
على سبيل المثال:
<٪ = rfill (lfill ("www.vevb.com/article.asp" ، "http: //") ، "article.asp؟ id = 452") ٪>