Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Converting foreign accents
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Visual FoxExpress
Divers
Thread ID:
01648083
Message ID:
01648191
Vues:
34
Martina,

Why do you need so many macros in this code?

>
>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
>
>
>>>i reproduce your "desirata" in the code below.
>>>when browsing the globalinx cursor you can see the first field (addfield) is accentued and the converted field (unaccentued).
>>>the conversion is made by a cursor scan
>>>in the first field you can put your "Paris la défense" or any accentued string.
>>>
>>>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
>>>
>>
>>I am getting very confused my dbf file consists of about 1000 records and 20 fields of which 10 could have accents - I dont know what the accents are I just need to remove all accents from all of the 10 fields for all of the 1000 records - I dont understand your code - Is ther any other way you can explain i to me?
>>
>>Thanks
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform