FoxPro/Visual FoxPro - Ayuda funcion para cadena de caracteres

   
Vista:

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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda funcion para cadena de caracteres

Publicado por Angel Piedrabuena (88 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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Mauricio

Ayuda funcion para cadena de caracteres

Publicado por Mauricio (1367 intervenciones) el 20/08/2008 23:04:41
Gaston, puedes usar esto, espero te sirva:
1
2
3
4
5
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
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.

1
2
3
4
5
6
7
8
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar