>FOR lii=1 TO AFIELDS(laFields) > IF NOT INLIST(laFields(lii,2),'C','V','M') > LOOP > ENDIF > * add condition for your fields > > lcField=laFields(lii,1) > REPLACE &lcField. WITH STRCONV(STRCONV(&lcField.,9,1250,1),11,1251,1) ALL >NEXT >>
>>>create cursor globalinx (addfield c(150),unaccentued c(150)) >>>insert into globalinx values("Tellus donec pulvîar fancibüs à classé pésuéré arcu mattis, aliquét alèquam habitant juséo convallis tùrpus néc,","") >>>insert into globalinx values("adipiscing enim !","") >>>insert into globalinx values("énis nostra fuscé. Fringlilia vestibulum sed famès nostré morbi mattis ut, cubliâ classé curae metus conubia","") >>>insert into globalinx values("cél litoré, primis donéc dictum aliquet pulvîar et orci interdum.","") >>>SELECT globalinx >>>SCAN >>>repl unaccentued with CHRTRAN(addfield, "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ","AAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy") >>>endscan >>>brow >>>>>