FoxPro/Visual FoxPro - Ayuda funcion para cadena de caracteres

Ayuda funcion para cadena de caracteres

Publicado por gaston (80 intervenciones) el 19/08/2008 16:57:54

Amigos, necesito ayuda para la siguiente cadena de caracteres, ejemplo tengo una cadena con el siguiente texto:

'V2008,I2008,V2007'

antes y despues de la coma tengo que agregar una comilla simple de tal forma que quede de la siguiente forma
'V2008','I2008','V2007'

Gracias y un saludo!!

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

RE:Ayuda funcion para cadena de caracteres

Publicado por Angel Piedrabuena (87 intervenciones) el 19/08/2008 17:17:39

Utiliza la funcion
STUFF(cExpresion,nInicio,nCaracteresReemplazado,cExpresionReemplazo)

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 4

Val: 471

Ayuda funcion para cadena de caracteres

Publicado por Mauricio (1541 intervenciones) el 20/08/2008 23:04:41

Gaston, puedes usar esto, espero te sirva:

cadena = 'V2008,I2008,V2007'

kd1 = SUBSTR(cadena,1,5)

kd2 = SUBSTR(cadena,7,5)

kd3 = SUBSTR(cadena,13,5)

kd1 = '"' + kd1 + '"' + ',' + '"' + kd2 + '"' + ',' + '"' + kd3 + '"'

Suerte!!!!!!!!!!!!!!!!!!!!

Valora esta respuesta

Comentar

RE:Ayuda funcion para cadena de caracteres

Publicado por Miguel (115 intervenciones) el 21/08/2008 05:50:49

intenta con este proceso, incluso te funciona con cualquier ancho de cadena.

sw=space(0)

for i=1 to len(alltrim(cadena))

   if subs(cadena,i,1)="'" or subs(cadena,i,1)=","

       sw=sw+"'"+iif(subs(cadena,i,1)=",",subs(cadena,i,1)+subs(sw,1,1),space(0))

   else

       sw=sw+subs(cadena,i,1)

   endif

endfor

Valora esta respuesta

Comentar

Interlineado en informe

Abrir Form con T. de Funcion