Function for solving the problem of Chinese and English string length

Function for solving the problem of Chinese and English string length The code is as follows:

Function strSplit ($ s, $ len ){
$ End = '... ';
$ Result = '';
$ StrLen = strlen ($ s );
If ($ strLen <= $ len ){
Return $ s;
}
$ Len-= 2;
For ($ I = 0; $ I <$ len & $ I <$ strLen; $ I ++ ){
$ C = $ s [$ I];
If (ord ($ c) <0x80 ){
$ Result. = $ c;
} Elseif ($ I + 1 <$ len ){
$ Result. = $ s [$ I ++]. $ s [$ I];
}
}
Return ($ I <$ strLen )? ($ Result. $ end): $ result;
}

Echo strSplit ('000000', 10 ),'
';
Echo strSplit ('000000', 10 ),'
';
Echo strSplit ('567890abcdefghijkl 1234 Chinese character ', 10 ),'
';
Echo strSplit ('All are Chinese', 10 ),'
';
Echo strSplit ('All parts a, B, c, d, e 文', 10 ),'
';

Output:
1234567
1234567890
1234 Chinese...
All are...
All department a and department B...