文字コードを変数として取得

注意

• このサイトの利用によって生じた損害については当方では責任を負いかねますのでご了承ください。

コード

                    'UTF-8
                    System.Text.Encoding.GetEncoding("UTF-8")
                    'Shift-JIS
                    System.Text.Encoding.GetEncoding("Shift_JIS")
                    'EUC-JP
                    System.Text.Encoding.GetEncoding("EUC-JP")
                

使用例

                    Dim MyEnc As System.Text.Encoding = System.Text.Encoding.GetEncoding("UTF-8")