File-to-File Character Encoding Conversion

Download Chilkat Charset ActiveX

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

Dim charset As New ChilkatCharset2

'  Any string argument automatically begins the 30-day trial.
Dim success As Long
success = charset.UnlockComponent("30-day trial")
If (success <> 1) Then
    Text1.Text = Text1.Text & charset.LastErrorText & vbCrLf
    Exit Sub
End If

'  Set the "To" and "From" character encodings:
charset.FromCharset = "shift_JIS"
charset.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
success = charset.ConvertFile("japanese_shiftJis.txt","japanese_utf8.txt")
If (success <> 1) Then
    Text1.Text = Text1.Text & charset.LastErrorText & vbCrLf
Else
    Text1.Text = Text1.Text & "Success" & vbCrLf
End If