Function Substrex ($ STR, $ LEN)
{
$ Str = (String) $ STR;
$ LEN = (int) $ gen;
$ Strlen = Strlen ($ STR);
IF ($ LEN> $ STRLEN) $ LEN = $ Strlen;
$ I = 0;
$ FIXLEN = 0;
While ($ I <$ LEN) {
$ chr = $ STR [$ I];
$ i ;
IF (Ord ($ CHR) <0x80) $ FIXLEN ; // 128D
Elseif ($ I <$ LEN) {
$ i ;
$ FIXLEN = 2;
}
}
$ cutstr = Substr ($ STR, 0, $ FIXLEN);
IF ($ STR <> $ cutstr)
{
$ CUTSTR. = '...';
}
Return $ CUTSTR;
}