VFP 返回清除半角符号的字符串

最新推荐文章于 2021-07-22 11:27:23 发布

weixin_41999297

最新推荐文章于 2021-07-22 11:27:23 发布

阅读量278

点赞数

分类专栏： VFP

本文链接：https://blog.csdn.net/weixin_41999297/article/details/104353787

版权

VFP 专栏收录该内容

28 篇文章 5 订阅

订阅专栏

* 建立时间： 2020-02-16
* 最后修改时间：
* 说明：对文本清除半角符号的方法，使用了strtran()20200216
* 方法参数说明：tcchar 要替换的字符串
* 返回值类型：返回字符串
* 返回值说明：
* 调用的方法：


LPARAMETERS tcstring
LOCAL lcrv && 返回传化后的值
lcrv = ""

IF VARTYPE(tcstring) = "C"
   lcrv = tcstring
   LOCAL lcsymbols
   LOCAL lcchr
   lcchr = ""
   lcsymbols = " ~`!@#$%^&*()-+=|\{}[]:<>?,./"  && 要替换的符号
   lcsymbols = lcsymbols + '"'
   LOCAL lnlen ,lnii
   lnlen  = LEN(lcsymbols)

   * 循环替换所有的半角符号
   FOR lnii = 1 TO lnlen
      lcchr = SUBSTR(lcsymbols,lnii,1)
      lcrv = STRTRAN(lcrv,lcchr,"" )
   ENDFOR

ENDIF


RETURN lcrv