pb replace 替换指定字符

最新推荐文章于 2023-07-17 07:41:57 发布

转载最新推荐文章于 2023-07-17 07:41:57 发布 · 2.7k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

原文链接：https://blog.csdn.net/tomandllj/article/details/102474617

收录于

PB 专栏收录该内容

175 篇文章

订阅专栏

本文介绍了一个用于字符串全局替换的自定义函数gf_replace。该函数接收三个参数：原始字符串、要被替换的子串及新的替换子串。通过循环查找并替换所有匹配项，返回替换次数。

global type gf_replace from function_object
end type
 
forward prototypes
global function integer gf_replace (ref string as_source, string as_old, string as_new)
end prototypes
 
global function integer gf_replace (ref string as_source, string as_old, string as_new);Integer	li_Pos, li_OldLen, li_NewLen, li_Cnt
 
li_OldLen = Len(as_Old)
li_NewLen = Len(as_new)
 
li_Pos = Pos(Upper(as_Source), Upper(as_Old), 1)
 
Do While li_Pos > 0
	as_Source = Replace(as_Source, li_Pos, li_OldLen, as_New)
	li_Pos = Pos(Upper(as_Source), Upper(as_Old), (li_Pos + li_NewLen))
	li_Cnt ++
Loop
Return li_Cnt
 
end function