Mensaje enviado por José Rubí de la Vega <jrubi@ctv.es>

Te mando una función que acabo de hacer.
No la he probado mucho pero creo que funciona bien.

Supongo que usas DAO para acceder a una base de datos Access. Para evitar errores voy a separar los nombres de campos por dos caracteres en vez de sólo por uno. Además el segundo caracter va a ser el [ para principio y ] para fin y así, de paso, puedes meter nombres de campos con blancos y otros caracteres por el medio.

Function Combinar(texto As String) As String
Const InicioCampo As String = "@["
Const FinCampo As String = "]@"
Dim aux As String, i As Long, j As Long, NombreCampo As String
Dim MiRecordset As Recordset

aux = texto
' de alguna manera seleccionas el registro del que vas a coger los datos
' set MiRecordset = ....
i = InStr(aux, InicioCampo)
While i <> 0
    j = InStr(i, aux, FinCampo)
    If j > 0 Then 'si = 0 es que falta por cerrar el último campo
        NombreCampo = Mid$(aux, i + 1, j - i)
        aux = Left$(aux, i - 1) + MiRecordset(NombreCampo) + _ Right$(aux, Len(aux) - j - 1)
   End If
    i = InStr(j + 2, aux, InicioCampo)
Wend
Combinar = aux
End Function


At 10:51 23/09/99 +0100, Un habitante de este Universo wrote:
>>Estoy de sarrollando un programa donde tengo datos variables en un texto.
>>El usuario debe ingresar el dato a combinar entre @ , por ejemplo "Estimado señor
>>@cliente@ : ....." >>Cuando analizo el texto debo reemplazar @cliente@ por
>>el nombre de la persona. El tema es que en @cliente@ no está el dato en si,
>>sino el nombre de un campo que tiene el contenido a combinar.
>>
>>En clipper se hacia con &, (&@cliente@ y eso se llamaba macrosustitucion)

Un saludo.
_________________________________________________
José Rubí de la Vega
E-mail : jrubi@ctv.es
WWW : http://www.ctv.es/USERS/jrubi
Podrás encontrar información sobre VB, las listas vb-esp y visualbasic-esp y un
resumen de los mensajes de las mismas