>>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 >>>>>>>