pb将字符串中的中文和英文（含符号）拆分

//用于将字符串中的中文和英文（含符号）拆分
//uf_split_str_enorcn(as_inputstr)
//as_inputstr:导入字符串

 

long i, li_len, li_lenA

as_return_cn = ''
as_return_en = ''

if as_inputstr >'' then
    li_len = len(as_inputstr)       //带中文长度
    li_lenA = lenA(as_inputstr)   //中文为两字节长度
    if li_len = li_lenA then //无中文
        as_return_cn = ''
        as_return_en = as_inputstr
    else //有中文
        //for i = 1 to li_lenA
        do while  lenA(as_inputstr) > 0
           if left(as_inputstr,1) = leftA(as_inputstr,1) then  //非中文
                as_return_en += leftA(as_inputstr,1)  //英文入队
                as_inputstr = rightA(as_inputstr,  lenA(as_inputstr) -1) //去掉一格