lcCT=""
=GetCT_ISO12WIN(@lcCT)

?SYS(15,lcCT,FromQP("G=E9rard La Boutique"))

PROCEDURE GetCT_ISO12WIN(lcCT)
*@lcCT - Code table for SYS(15) 

LOCAl lcCT
lcCT=""
FOR lii=1 TO 255
    lcCT=lcCT+CHR(lii)
NEXT
lcCT=STUFF(lcCT,176,1,CHR(186))
ENDPROC

PROCEDURE FromQP(lcString)
LOCAL lcOut,lii,lcChar
lcOut=""
lii=1
DO WHILE lii<LEN(lcString)
   lcChar=SUBSTR(lcString,lii,1)
   IF lcChar="="
      DO CASE
         CASE SUBSTR(lcString,lii+2,1)="X"
              lcOut=lcOut+CHR(EVALUATE("0x"+SUBSTR(lcString,lii+1,1)))

         CASE SUBSTR(lcString,lii+1,2)=" A"
              lcOut=lcOut+CHR(13)+CHR(10)

         CASE SUBSTR(lcString,lii+1,2)=" 9"
              lcOut=lcOut+CHR(9)

         OTHERWISE
              lcOut=lcOut+CHR(EVALUATE("0x"+SUBSTR(lcString,lii+1,2)))
      ENDCASE
      lii=lii+3
   ELSE
      lcOut=lcOut+lcChar
      lii=lii+1
   ENDIF
ENDDO
RETURN lcOut

MartinaJ

>Thanks Brandon,
>
>This would require us to write a charset converter (a simple one). Before we do this, I wanted to know if a native function (a la STRCONV()) was available. An external tool would be suitable also, but if we can avoid it...
>
>>>Hi all,
>>>
>>>We receive VCF files that include special Charset encoding:
>>>
>>>

>>>FN;CHARSET=ISO-8859-1;ENCODING=QUOTED-PRINTABLE:G=E9rard La Boutique 
>>>

>>>
>>>We want to convert this string to :
>>>
>>>

>>>FN;Gérard La Boutique
>>>

>>>
>>>How to decode this string according to this Charset ?
>>
>>

>>lcFileContents=filetostr(lcFileNameWithPath)
>>lcFileContents=strtran(lcFileContents,[FN;CHARSET=ISO-8859-1;ENCODING=QUOTED-PRINTABLE:],[FN;])
>>** specific unescaping here
>>lcFileContents=strtran(lcFileContents,[=E9],[é])
>>strtofile(lcFileContents,lcFileNameWithPath)
>>

>
>
>>>Hi all,
>>>
>>>We receive VCF files that include special Charset encoding:
>>>
>>>

>>>FN;CHARSET=ISO-8859-1;ENCODING=QUOTED-PRINTABLE:G=E9rard La Boutique 
>>>

>>>
>>>We want to convert this string to :
>>>
>>>

>>>FN;Gérard La Boutique
>>>

>>>
>>>How to decode this string according to this Charset ?
>>
>>

>>lcFileContents=filetostr(lcFileNameWithPath)
>>lcFileContents=strtran(lcFileContents,[FN;CHARSET=ISO-8859-1;ENCODING=QUOTED-PRINTABLE:],[FN;])
>>** specific unescaping here
>>lcFileContents=strtran(lcFileContents,[=E9],[é])
>>strtofile(lcFileContents,lcFileNameWithPath)
>>