Function Msubstr ($ STR, $ Start, $ LEN) {$ Tmpstr = "; $ Strlen = $ Start $ Len; for ($ I = 0; $ I 0xA0) {$ Tmpstr. = Substr ($ STR, $ I, 2); $ I ;} else $ TMPSTR. = SUBSTR ($ Str, $ I, 1);} /// I wrote IF (Strlen ($ LLINE [$ MAXNAME])> 40) {$ TEMP = ''; // Initialize for ($ I = 0; $ I <40;) {if (Substr $ LLINE [$ MAXNAME], $ I, 1)> 0x7F) {// The Higher Part> 0x7F, this May Be a Chinese Word $ TEMP. = Substr ($ LLINE [$ MAXNAME], $ I, 2); $ I = $ i 2;} else {// An English Word Maybe $ TEMP. = Substr ($ LLINE [$ MAXNAME], $ I, 1); $ i ;}} $} [$ maxname] = $ TEMP "..."; // now, it's ok to process chinese} returnid $ tmpstr;}
