UTF8Encoding: EncodingName (get) |
Gets the human-readable description of the current encoding.
Public Property Get EncodingName ( ) As String
The EncodingName property is intended for display. To find a name that can be passed to the GetEncoding method, use the WebName property.
Read Only.
The following example retrieves the different names for each encoding and displays the encodings with one or more names that are different from EncodingInfo.Name. It displays EncodingName but does not compare against it.
Public Sub Main() Debug.Print "Name "; Debug.Print "CodePage "; Debug.Print "BodyName "; Debug.Print "HeaderName "; Debug.Print "WebName "; Debug.Print "Encoding.EncodingName" Dim Item As Variant Dim ei As EncodingInfo Dim e As Encoding For Each Item In Encoding.GetEncodings Set ei = Item Set e = ei.GetEncoding If (ei.Name <> e.BodyName) Or (ei.Name <> e.HeaderName) Or (ei.Name <> e.WebName) Then Debug.Print CorString.Format("{0,-18}", ei.Name); Debug.Print CorString.Format("{0,-9}", e.CodePage); Debug.Print CorString.Format("{0,-18}", e.BodyName); Debug.Print CorString.Format("{0,-18}", e.HeaderName); Debug.Print CorString.Format("{0,-18}", e.WebName); Debug.Print e.EncodingName End If Next End Sub ' This code produces the following output. ' ' Name CodePage BodyName HeaderName WebName Encoding.EncodingName ' shift_jis 932 iso-2022-jp iso-2022-jp shift_jis Japanese (Shift-JIS) ' windows-1250 1250 iso-8859-2 windows-1250 windows-1250 Central European (Windows) ' windows-1251 1251 koi8-r windows-1251 windows-1251 Cyrillic (Windows) ' Windows-1252 1252 iso-8859-1 Windows-1252 Windows-1252 Western European (Windows) ' windows-1253 1253 iso-8859-7 windows-1253 windows-1253 Greek (Windows) ' windows-1254 1254 iso-8859-9 windows-1254 windows-1254 Turkish (Windows) ' csISO2022JP 50221 iso-2022-jp iso-2022-jp csISO2022JP Japanese (JIS-Allow 1 byte Kana) ' iso-2022-kr 50225 iso-2022-kr euc-kr iso-2022-kr Korean (ISO)