pb将带分隔符字符串转为SQL IN语句字符串

/* 
   JACK 20170905 用于将有分隔符的字符串，转为 SQL IN语句格式的字符串 
   如： ABCD1234,ABCD5678  转换为 'ABCD1234','ABCD5678'
   f_formattoInSQLtext(In_string,In_Separate )
   In_string :传入的带分隔符字符串
   In_Separate ：字符串分隔符字样

*/

Long  ll_pos
string  ls_In_string, ls_separator, ls_return
ll_pos = 0

If IsNull(In_string) or IsNull(In_Separate) Then
MessageBox('提示信息', '传入参数有误!')
Return ''
End If

If In_string = '' or In_Separate = '' Then
Return ''
End If

ll_pos = pos(In_string,In_Separate) 
if ll_pos = 0 then 
Return In_string
else
ls_return = "'" +ls_return + left(In_string, ll_pos -1 ) //取第一个段
In_string = mid(In_string,ll_pos+1)  //截断已取字符串
ll_pos = pos(In_string,In_Separate) 
Do While ll_pos >0