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

最新推荐文章于 2023-02-02 21:21:23 发布

十豆三

最新推荐文章于 2023-02-02 21:21:23 发布

阅读量2.9k

点赞数 3

分类专栏： VFP - 自定义函数文章标签： parameters function windows xp

本文链接：https://blog.csdn.net/apple_8180/article/details/7183801

版权

VFP - 自定义函数专栏收录该内容

7 篇文章 2 订阅

订阅专栏

*!* 作者：十豆三
*!* 日期：2011-12-26
*!* vfp版本：vfp9.0(SP2 7423)
*!* 操作系统：Windows XP(SP3)
*!* 功能：将字符串尽量平均分成等长度的子字符串,且不受中文字影响
*!* 参数：tcStr ==> 要做分割的字符串,tnLen ==> 想分成的长度

*-- 如：
?CUT_STR('枸缘酸他莫昔芬/10mg*100s/上海制药一厂',20)
?CUT_STR('一二三四五六七八九十1234567890123456789一二三四五六七八九十',20)
?CUT_STR('1234567890123456789012345',20)

Function CUT_STR
    Parameters tcStr,tnLen
   tcStr=Alltrim(tcStr)
    Local lcRetStr
   lcRetStr=''
    Do While !Empty(tcStr)
        If Between(Asc(Rightc(Left(tcStr,tnLen),1)),128,255)
           lcRetStr=lcRetStr+Chr(10)+Left(tcStr,tnLen-1)
           tcStr=Substr(tcStr,tnLen)
        Else
            lcRetStr=lcRetStr+Chr(10)+Left(tcStr,tnLen)
           tcStr=Substr(tcStr,tnLen+1)
        Endif
   Enddo
Return Substr(lcRetStr,2)
Endfunc