27/09/2004, 03:25
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses Puntos: 98 | |
| A ver si algo como esto funciona:
Function InsertaCaracter(cadena, pos, que_caracter)
cortaUno = mid(cadena, 1, pos)
cortaDos = mid(cadena, pos + 1, len(cadena))
InsertaCaracter = cortaUno & que_caracter & cortaDos
End Function
cadena = InsertaCaracter(rs("valor"), 5, "X")
Salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |