国模妍妍曾经最大尺度:将字符串尽量平均分成两个同长度的子字符串,且不受中文字影响

来源:百度文库 编辑:偶看新闻 时间:2024/04/29 00:28:26

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

分类: VFP - 自定义函数 2007-07-13 09:23 588人阅读 评论(0) 收藏 举报 * 本函数式会将字符串尽量平均分成两个同长度的子字符串,且不受中文字影响
 

* 传入值: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