如何在PB中实现字符串替换

long ll_oldlen, ll_newlen, ll_pos

ll_pos = Pos(as_source,as_old)

IF ll_pos > 0 Then

ll_oldlen = Len(as_old)

ll_newlen = Len(as_new)

DO WHILE ll_pos > 0

as_source = Replace(as_source,ll_pos,ll_oldlen,as_new)

ll_pos = Pos(as_source,as_old,ll_pos + ll_newlen)

LOOP

END IF

RETURN as_source

图片中就是这个函数,as_source,as_old,as_new是参数

这个函数是实现用as_new替换as_source中的所有as_old字符串

例如要把'AAAKCCCKRRR'中的'K'全替换成'Y'

string ls_new_string 

ls_new_string =of_globalreplace('AAAKCCCKRRR','K','Y')

那么ls_new_string就会得到替换后的新字符串