FoxPro/Visual FoxPro - Extraer una cadena de caracter

 
Vista:
Imágen de perfil de Rafael Adolfo Moro Soria

Extraer una cadena de caracter

Publicado por Rafael Adolfo Moro Soria (9 intervenciones) el 20/01/2015 21:57:46
Necesito extraer una cadena de caracter contenida dentro de otra cadena de caracter;
Ejemplo:

RADIUS-WIFI,"IAS",01/14/2015,10:30:47,1,"joseyong","CECMED\joseyong","4C-4E-35-56-FE-8B:INVITADOS-CECMED","BC-85-56-A8-79-A1",,,,"192.168.10.51",0,0,"192.168.10.51","AP-51",,,19,"CONNECT 0Mbps 802.11g",,,5,"WIFI-CECMED",0,"311 1 192.168.10.81 01/14/2015 ...

de esta cadena necesito sacar lo que dice .... "CECMED\joseyong"

Saludos

Rafael
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
sin imagen de perfil
Val: 1.011
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Extraer una cadena de caracter

Publicado por Fidel José (558 intervenciones) el 21/01/2015 00:17:29
Si "CECMED\joseyong" es una constante es fácil

lcString = [ RADIUS-WIFI,"IAS",01/14/2015,10:30:47,1,"joseyong","CECMED\joseyong","4C-4E-35-56-FE-8B:INVITADOS-CECMED","BC-85-56-A8-79-A1",,,,"192.168.10.51",0,0,"192.168.10.51","AP-51",,,19,"CONNECT 0Mbps 802.11g",,,5,"WIFI-CECMED",0,"311 1 192.168.10.81 01/14/2015 ... ]

lcExtract = [ "CECMED\joseyong"]
lcNewString = STRTRAN( lcString, lcExtract , "")

Si no es una constante, puedes basarte en la posición que ocupa (número de comas) siempre que sea constante esa posición.
En VFP 9 puedes usar :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
* Puse tu string en un archivo llamado "pass.txt" para evitar errores. De ahí la tomo.
lnHand=FOPEN(ADDBS(dtemp)+"pass.txt")
lcString=FGETS(lnHand,8192)
=FCLOSE(lnHand)
 
lnOmit=7
lcNewString=""
lnLines=ALINES(laLines,lcString,16,",")
FOR i=1 TO lnOmit - 1
	lcNewString = lcNewString + laLines[i]
NEXT
FOR i=lnOmit + 1 TO lnLines
	lcNewString = lcNewString + laLines[i]
NEXT
 
MESSAGEBOX("lcString="+lcString ;
	+CHR(13)+"lcNewString="+lcNewString)
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