将字符串尽量平均分成两个同长度的子字符串,且不受中文字影响

* 传入值:tcStr ==> 要做分割的字串
* tnPos = 1 ==> 取第一个子字串
* tnPos = 2 ==> 取第二个子字串
 

lcString="有一字串cSTR长度如为40內容为中英文混排想将其拆为二个子字串STR=SUBSTR(cSTR,1,20)"
?CUT_2_STR(lcString,1)
?CUT_2_STR(lcString,2)
 

FunctionCUT_2_STR
    ParameterstcStr,tnPos
   LocallnLen
    lnLen=Int(Len(tcStr)/2)
    lnLen=Iif(Between(Asc(Rightc(Substr(tcStr,1,lnLen),1)),128,255),lnLen+1,lnLen)
   Return Iif(tnPos=1,Substr(tcStr,1,lnLen),Substr(tcStr,lnLen+1,Len(tcStr)-lnLen))
Endfunc