/ *
* Can avoid garbled interception Chinese characters
* Parameters $ STR is a string, $ start is the start character, $ LEN end characters
* Returns the character after interception
* /
Function Msubstr ($ STR, $ START, $ LEN) {
$ tmpstr = ""
$ Strlen = $ start $ LEN;
For ($ I = 0; $ I <$ Strlen; $ I ) {
IF (Substr ($ Str, $ I, 1)> 0xA0) {
$ Tmpstr. = Substr ($ STR, $ I, 2);
$ i ;
Else
$ Tmpstr. = SUBSTR ($ STR, $ I, 1);
}
Return $ TMPSTR;
}
?>
= $ Start && $ I <($ START $ LEN) {IF (Substr ($ Str, $ I, 1))> 0xA1) {$ Tmpstr. = Substr ($ STR, $ I, 2); $ I ;} else $ TMPSTR = SUBSTR ($ STR, $ I, 1);}}} (Strlen ($ tmpstr)> $ LEN) {$ Len -; Return Substr_CN ($ Str, $ LEN, $ START);} Return $ TMPSTR; }
/ / -------------------------------------------------------------------------------------------- - // Example Echo Substr_CN ("123AS China PHP Alliance", 9, 1); Echo "
"; Echo Substr_CN ("123AS China PHP Alliance", 10);
?>
