Clipper/FiveWin - SUBSTR

Estimados colegas,

Ud. conozces otro camino, más corto, para search/replace una substr()?

Esto es el modesto ejemplo que escrebí,


suffix='ing'
infinitive_form='e '

suffix2='ains'
canonical_form='ain '

suffix3='ions'
canonical_form='ion '

go top

DO WHILE .NOT. EOF()
locate rest for wordlist suffix$wordlist
replace wordlist with strtran(wordlist,suffix,infinitive_form)
continue
enddo


go top

DO WHILE .NOT. EOF()
locate rest for wordlist suffix2$wordlist
replace wordlist with strtran(wordlist,suffix2,canonical_form)
continue
enddo

go top

DO WHILE .NOT. EOF()
locate rest for wordlist suffix3$wordlist
replace wordlist with strtran(wordlist,suffix3,canonical_form)
continue
enddo

y así por adelante...

A la espera de su contestación,

Gracias y saludos,

Edmond LeTchev

Intentá con lo siguiente y suerte.

suffix='ing'
infinitive_form='e '

suffix2='ains'
canonical_form1='ain '

suffix3='ions'
canonical_form2='ion '

go top
DO WHILE !EOF()
if at(suffix,wordlist)<>0
replace wordlist with strtran(wordlist,suffix,infinitive_form)
endif

if at(suffix2,wordlist)<>0
replace wordlist with strtran(wordlist,suffix2,canonical_form1)
endif

if at(suffix3,wordlist)<>0
replace wordlist with strtran(wordlist,suffix3,canonical_form2)
endif
skip
enddo

Saludos desde Rosario, Argentina

Estimado Daniel,

Yo quiero mucho bien a Argentina, una tierra que me proporcionó momentos inolvidables en mi vida, esp. en Buenos Aires.

Por favor, tu ejemplo es muy simple, como yo gustaría de ver.

Para saber que suffix? siempre es la parte final de la palabra,
es posible utilizarmos la seguiente función ?

FUNCTION ends(s)
LOCAL l, o, i
l = len(s)
o = k-l+1
if (o < 1) && was 0
return .F.
endif
for i = 0 to l
if b[o+i] != substr(s,i,1))
return .F.
endif
endfor
this.j = k-l
return .T.
ENDFUNC

ASÍ:

replace all worlist with strtran(wordlist,Ends(suffix),Ends(infinitive_form))

o ASÍ:

suffix=ENDS('ing')
infinitive_form=ENDS('e')

replace all worlist with strtran(wordlist,suffix,infinitive_form)

Gracias otra vez,

Saludos desde Brasil, el campeón de los ´árbitros´

LeTchev