需要通用的程序，将长字符串分解成小字符串，长字符中包括汉字、大小字母、全角、半角等各种字符，分解成字串长度等于4字符的小字符串

随便举个例子：‘内9容(02-10)上agauvABD5公~告55８8wf_d’

[ 本帖最后由 a1999zqw 于 2011-5-5 14:22 编辑 ]

cstr="内9容(02-10)上agauvABD5公~告55８8wf_d"
CLEAR
?cstr
ctrim(cstr)

FUNCTION ctrim(str)
    FOR i=1 TO LEN(str)
        IF ISLEADBYTE(SUBSTR(str,4,1))
            ?LEFT(str,3)
            str=SUBSTR(str,4)
        ELSE
            ?LEFT(str,4)
            str=SUBSTR(str,5)
        ENDIF
    ENDFOR
ENDFUNC

可能误解你的意思了，分解成长度等于4的字符串?
活着你只是要这样：
FUNCTION trimc(str)
    FOR i=1 TO LENc(str) STEP 4
            ?LEFTc(str,4)
            str=SUBSTRc(str,5)
    ENDFOR
ENDFUNC

楼主的要求是达不到的
双字节能分吗