pb将字符串s中的c1替换为c2

//将字符串s中的c1替换为c2
if isnull(s) or s = "" then return ''
if c1=c2 then return s
if isnull(c2) then return s

long l
do while True
    l=pos(s,c1)
    if l=0 then return s
    s=replace(s,l,len(c1),c2)
loop