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

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

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

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

Function CUT_2_STR
    Parameters tcStr,tnPos
    Local lnLen
    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