Ver Mensaje Individual
  #1 (permalink)  
Antiguo 10/02/2009, 07:04
ebu
 
Fecha de Ingreso: noviembre-2008
Mensajes: 153
Antigüedad: 15 años, 6 meses
Puntos: 0
añadir un caracter a un string

hola buenas!
haber si me pueden echar una manita con el siguiente tema:
tengo una serie de ecuaciones de este tipo: "D1@Croquis1=(A/2)+134"; "D2@Croquis1=150-A";"D3@Croquis1=A";"A=100"...
tengo que sustituir la variable A por Ae; es decir, "D1@Croquis1=(Ae/2)+134"...
suponiendo q la ecuacion la guardo en una variable tipo string he exo algunas pruebas pero no llego a nada.

a="D1@Croquis1=(A/2)+134"
If InStr(a, "@") <> 0 Then 'solo me coje las ecuaciones D1@Croquis1=(A/2)+134
iPos = InStr(1, a, "=")' buscar la posición del caracter "="
b = Right(a, Len(a) - iPos) ' parte derecha del signo igual
vPos = InStr(1, b, "A")'saco la posicion de A
Else 'solo me coje las ecuaciones tipo A=100.

mi problema es que no se como añadir un caracter. el problema es q las ecuaciones las tengo q modificar via codigo no puedo borrarlas y volver a escribirlas.

espero q me puedan ayudar!
mil gracias!
saludos!