Hola que tal, tengo un problema con respecto a la actualización del profile.

Hola que tal, tengo un problema con respecto a la actualización del profile.

Tengo un solo Profile de conexión que uso por defecto para 3 empresas y deseo que guarde el nombre y password del usuario en el profile, la pregunta es: cómo indico en que possicion debo reemplazar el usuario de inicio., de toda la cadena. Y que función usar... El código que tengo es el siguiente:

archivo ini.

[sqlca]

dbms = SNC SQL Native Client(OLE DB)

database =BDEMP1,BDEMP2,BDEMP3

empresa = 6,7,8 -- código de empresa

servername = .,.,.

logid=admin,rosita,luis

logpass =957411,jesús,1601

en el power coloco este código donde guarda el usuario que ingreso al sistema

SetProfileString(is_ruta, 'sqlca', 'logid',ls_usuario)

SetProfileString(is_ruta, 'sqlca', 'logpass',ls_pass)

(por ejemplo de la empresa2, con usuario pedro)

pero al fijarme en el ini reemplaza toda la cadena sin respetar la coma(,) borrándome los otros usuarios existente, sólo me debería cambiar rosita por pedro. Nada más o según a la empresa que ingreso.

[sqlca]
dbms = SNC SQL Native Client(OLE DB)
database =BDEMP1,BDEMP2,BDEMP3
empresa = 6,7,8 -- código de empresa
servername = .,.,.
logid=pedro
logpass =123456

He obtenido la possicion pero como hago que reemplace ahí mismo ??

ls_logid = ProfileString(is_ruta , "sqlca", 'logid ', '' )

li_pos = 1 ; ll_nc = 0; ii = 0

for ll_n = 1 to Len(Trim(ls_logid))

ll_nc++

If Mid (ls_logid, ll_n, 1) = ',' Then

ii++

is_logid[ii] = Mid(Trim(ls_logid), li_pos , ll_nc - 1 )

li_pos = ll_n + 1

ll_nc = 0

elseif ll_n = Len(Trim(ls_logid)) Then

ii++

is_logid[ii] = Mid(Trim(ls_logid), li_pos , ll_nc)

end if

next

Habrá una función donde reemplace el valor obtenido.

funcion_reemplace(is_logid[ii],SetProfileString(is_ruta, 'sqlca', 'logid',ls_usuario),possion) o algo parecido....

por favor ayúdame.

Gracias