File-to-File Character Encoding Conversion

Convert a text file from one character encoding to another.

The source/destination charset may be any of the following: The source/destination charset may be any of the following:
(Scroll down to see source code listing)

us-ascii
unicode
unicodefffe
iso-8859-1
iso-8859-2
iso-8859-3
iso-8859-4
iso-8859-5
iso-8859-6
iso-8859-7
iso-8859-8
iso-8859-9
iso-8859-13
iso-8859-15
windows-874
windows-1250
windows-1251
windows-1252
windows-1253
windows-1254
windows-1255
windows-1256
windows-1257
windows-1258
utf-7
utf-8
utf-32
utf-32be
shift_jis
gb2312
ks_c_5601-1987
big5
iso-2022-jp
iso-2022-kr
euc-jp
euc-kr
macintosh
x-mac-japanese
x-mac-chinesetrad
x-mac-korean
x-mac-arabic
x-mac-hebrew
x-mac-greek
x-mac-cyrillic
x-mac-chinesesimp
x-mac-romanian
x-mac-ukrainian
x-mac-thai
x-mac-ce
x-mac-icelandic
x-mac-turkish
x-mac-croatian
asmo-708
dos-720
dos-862
ibm037
ibm437
ibm500
ibm737
ibm775
ibm850
ibm852
ibm855
ibm857
ibm00858
ibm860
ibm861
ibm863
ibm864
ibm865
cp866
ibm869
ibm870
cp875
koi8-r
koi8-u

LOCAL loCharset
LOCAL lnSuccess

loCharset = CreateObject('Chilkat.Charset2')

*  Any string argument automatically begins the 30-day trial.

lnSuccess = loCharset.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    ? loCharset.LastErrorText
    QUIT
ENDIF

*  Set the "To" and "From" character encodings:
loCharset.FromCharset = "shift_JIS"
loCharset.ToCharset = "utf-8"

*  To do file-to-file conversion, call ConvertFile.
*  The shift_JIS sample file is downloadable from this URL:
*  http://www.chilkatsoft.com/testData/japanese_shiftJis.txt
lnSuccess = loCharset.ConvertFile("japanese_shiftJis.txt","japanese_utf8.txt")
IF (lnSuccess <> 1) THEN
    ? loCharset.LastErrorText
ELSE
    ? "Success"
ENDIF