Convert Japanese Character Encodings in XML

Download Chilkat XML ActiveX

Source Code Listing

' Convert Japanese character encodings in XML
Private Sub Command1_Click()

    Dim xml As ChilkatXml
    Set xml = New ChilkatXml
    
    xml.LoadXmlFile ("shift_jis.xml")
    
    Label1.Caption = "Initial Encoding: " & xml.Encoding
    
    Dim success As Long
    
    success = xml.ConvertToEncoding("utf-8")
    Label2.Caption = "conversion to utf-8 status: " & Str(success)
    
    xml.SaveXml "utf8_2.xml"
    
    ' Convert back to shift_jis
    success = xml.ConvertToEncoding("shift_jis")
    Label3.Caption = "conversion to shift_jis status: " & Str(success)
    xml.SaveXml "shift_jis2.xml"
    
    ' Convert to euc_jp
    success = xml.ConvertToEncoding("euc-jp")
    Label4.Caption = "conversion to euc-jp status: " & Str(success)
    xml.SaveXml "euc_jp.xml"
    
    ' Reload shift_jis
    xml.LoadXmlFile ("shift_jis.xml")
    xml.SaveXml "shift_jis3.xml"
    
    ' Convert to ISO-2022-JP
    success = xml.ConvertToEncoding("iso-2022-jp")
    Label5.Caption = "conversion to iso-2022-jp status: " & Str(success)
    
    xml.SaveXml "iso_2022_jp.xml"
    
    
End Sub