Buscar datos dentro de un Edit

[Foxero10]

Hola a todos, tengo un Edit con mucha información de un archivo plano, necesito leer ese archivo en el Edit y comenzar a buscar determinadas características, es decir:

Suponiendo que el archivo texto tenga:

Sede social numero: 2453534

Reporte de: enero 4 de 2011

Cada sanción representa una pena de -45- dias por indemizacion de .....

-------------------------------------------------

Otro archivo podría tener:

Sede social numero: 2453534

Reporte de: enero 4 de 2012

Cada sanción representa una pena de -5- dias por indemizacion de .....

Lo que quiero hacer es buscar a ver ese archivo tiene la palabra sanción y mostrar en pantalla el numero 45 o el numero 5, segun el caso.

Gracias a todos.

[Fox Learner]

Si usas VFP9 tal vez estas funciones te puedan servir para ir obteniendo las palabras.

GETWORDCOUNT( ) 

GETWORDNUM( )

Parece que también estas propiedades te puedan servir: SelLength, SelStart, SelText.

Saludos!

[Víctor Hugo Espínola Domínguez]

Hola Foxero10

Mira la ayuda de SYS( 1500 )

Saludos.

Víctor.

--
 
 

[Pablo Daniel Lissa]

Hola:

Yo lo haría así:

* cadena tiene el texto a analizar
buscar = "Cada sanción representa una pena de -"
cadena = SUBSTR(cadena, ATC(buscar, cadena) + LEN(buscar))
cadena = SUBSTR(cadena, 1, AT("-", cadena) - 1)
?cadena

Saludos.

[Mario López]

@Foxero10:

sFrase = "Cada sanción representa una pena de -45- dias por indemizacion de ....."
sDias = "10"
? STRTRAN(sFrase, "-" + STREXTRACT(sFrase, "-", "-", 1) + "-", sDias)  &&>> ... una pena de -10- días ....

Igualmente me parece que lo mejor sería dejar la frase original con identificadores para su expansión
y luego aplicar TEXTMERGE, ej:

sFrase = "Cada sanción representa una pena de -<<Dias>>- dias por <<Motivo>> de ....."
Dias = 10
Motivo = "indemnización de ...."
? TEXTMERGE(sFrase, .F., "<<", ">>")


HTH
Mario
---

El lunes, 17 de diciembre de 2012 13:28:53 UTC-3, Foxero10 escribió:

[Luis Maria Guayan]

Este breve ejemplo te ayudará

-- Buscar texto en un Cuadro de Edicion --
http://www.portalfox.com/article.php?sid=1662

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

--