long ll_startPosition, ll_findLength, ll_repLength
string ls_result, ls_temp ,originalString,findString,replacementString
originalString = ls_vend_str
findString = ","
replacementString ="','"
ll_findLength = len(findString)
ll_repLength = len(replacementString)
ls_result = originalString
ll_startPosition = Pos(originalString, findString)
ls_temp = originalString
DO WHILE Pos(ls_temp,findString) > 0
ls_temp = Mid(ls_result, ll_startPosition + ll_findLength)
ls_result = Left(ls_result, ll_startPosition - 1) + replacementString + ls_temp
//ll_startPosition = Pos(ls_result, findString)+ll_startPosition
ll_startPosition = len(Left(ls_result, ll_startPosition - 1) + replacementString)+Pos(ls_temp,findString)
LOOP
ls_vend_str = "'"+ls_result+"'"