ASP <%
function parcelstr(ch,nb)
dim tmp, ch2, lg
if nb<2 OR ch="" then
parcelstr = ch
else
lg = round(len(ch)/nb)
tmp = left(ch,lg)
ch2 = mid(ch,lg+1)
parcelstr = tmp&"|"&parcelstr(ch2,nb-1)
end if
end function
response.write parcelstr(chaine,nombre)
%> |
| PHP <?
function parcelstr($ch,$nb) {
if(($nb<2)||($ch==""))
return $ch;
else {
$lg = round(strlen($ch)/$nb);
$tmp = substr($ch,0,$lg);
$ch2 = substr($ch,$lg);
return $tmp."|".parcelstr($ch2,$nb-1);
}
}
echo parcelstr($chaine,$nombre);
?> |
|
