Realize the abbreviation function of long text

xiaoxiao2021-03-06  93

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;

}

转载请注明原文地址:https://www.9cbs.com/read-122094.html

New Post(0)