Module Module1
'****************************************************************************
' 機能名 : Module1.vb
' 機能説明 : WideCharToMultiByteとMultiByteToWideCharによる文字コード変換
' 備考 :
' 著作権 : Copyright(C) 2007 のん All rights reserved
' ---------------------------------------------------------------------------
' 使用条件 : このサイトの内容を使用(流用/改変/転載/等全て)した成果物を不特定
' : 多数に公開/配布する場合は、このサイトを参考にした旨を記述してく
' : ださい。(例)WEBページやReadMeにリンクを貼ってください
' ---------------------------------------------------------------------------
'****************************************************************************
Declare Function WideCharToMultiByte Lib "kernel32" _
(ByVal CodePage As Integer, _
ByVal dwFlags As Integer, _
ByVal lpWideCharStr As Byte(), _
ByVal cchWideChar As Integer, _
ByVal lpMultiByteStr As Byte(), _
ByVal cchMultiByte As Integer, _
ByVal lpDefaultChar As String, _
ByVal lpUsedDefaultChar As Integer) As Integer
Declare Function MultiByteToWideChar Lib "kernel32" _
(ByVal CodePage As Integer, _
ByVal dwFlags As Integer, _
ByVal lpMultiByteStr As Byte(), _
ByVal cchMultiByte As Integer, _
ByVal lpWideCharStr As Byte(), _
ByVal cchWideChar As Integer) As Integer
'---Shift-JIS関係
' 関数名 : WCMB_Encode_SJIS
' 返り値 : SJIS文字データ
' 引き数 : strUni: UNICODE文字データ
' 機能説明 : UNICODE文字データをSJISに変換する
' 備考 : WideCharToMultiByteによる文字コード変換
Public Function WCMB_Encode_SJIS(ByRef strUni As String) As Byte()
WCMB_Encode_SJIS = WCMB_Encode(932, strUni)
End Function
' 関数名 : WCMB_Decode_SJIS
' 返り値 : UNICODE文字列
' 引き数 : bytIn : SJIS文字データ
' 機能説明 : SJIS文字データをUNICODEに変換する
' 備考 : MultiByteToWideCharによる文字コード変換
Public Function WCMB_Decode_SJIS(ByRef bytIn() As Byte) As String
WCMB_Decode_SJIS = WCMB_Decode(932, bytIn)
End Function
'---JIS関係
' 関数名 : WCMB_Encode_JIS
' 返り値 : JIS文字データ
' 引き数 : strUni: UNICODE文字データ
' 機能説明 : UNICODE文字データをJISに変換する
' 備考 : WideCharToMultiByteによる文字コード変換
' 備考 : 半角カタカナ有り
Public Function WCMB_Encode_JIS(ByRef strUni As String) As Byte()
WCMB_Encode_JIS = WCMB_Encode(50221, strUni)
End Function
' 関数名 : WCMB_Decode_JIS
' 返り値 : UNICODE文字列
' 引き数 : bytIn : JIS文字データ
' 機能説明 : JIS文字データをUNICODEに変換する
' 備考 : MultiByteToWideCharによる文字コード変換
' 備考 : 半角カタカナ有り
Public Function WCMB_Decode_JIS(ByRef bytIn() As Byte) As String
WCMB_Decode_JIS = WCMB_Decode(50221, bytIn)
End Function
' 関数名 : WCMB_Encode_JIS2
' 返り値 : JIS文字データ
' 引き数 : strUni: UNICODE文字データ
' 機能説明 : UNICODE文字データをJISに変換する
' 備考 : WideCharToMultiByteによる文字コード変換
' 備考 : 半角カタカナ無し
Public Function WCMB_Encode_JIS2(ByRef strUni As String) As Byte()
WCMB_Encode_JIS2 = WCMB_Encode(50220, strUni)
End Function
' 関数名 : WCMB_Decode_JIS2
' 返り値 : UNICODE文字列
' 引き数 : bytIn : JIS文字データ
' 機能説明 : JIS文字データをUNICODEに変換する
' 備考 : MultiByteToWideCharによる文字コード変換
' 備考 : 半角カタカナ無し
Public Function WCMB_Decode_JIS2(ByRef bytIn() As Byte) As String
WCMB_Decode_JIS2 = WCMB_Decode(50220, bytIn)
End Function
'---EUC関係
' 関数名 : WCMB_Encode_EUC
' 返り値 : EUC文字データ
' 引き数 : strUni: UNICODE文字データ
' 機能説明 : UNICODE文字データをEUCに変換する
' 備考 : WideCharToMultiByteによる文字コード変換
Public Function WCMB_Encode_EUC(ByRef strUni As String) As Byte()
'WCMB_Encode_EUC = WCMB_Encode(51932, strUni)
MsgBox("EUCはサポートされていません", vbCritical)
End Function
' 関数名 : WCMB_Decode_EUC
' 返り値 : UNICODE文字列
' 引き数 : bytIn : EUC文字データ
' 機能説明 : EUC文字データをUNICODEに変換する
' 備考 : MultiByteToWideCharによる文字コード変換
Public Function WCMB_Decode_EUC(ByRef bytIn() As Byte) As String
'WCMB_Decode_EUC = WCMB_Decode(51932, bytIn)
MsgBox("EUCはサポートされていません", vbCritical)
End Function
'---UTF-7関係
' 関数名 : WCMB_Encode_UTF7
' 返り値 : UTF7文字データ
' 引き数 : strUni: UNICODE文字データ
' 機能説明 : UNICODE文字データをUTF7に変換する
' 備考 : WideCharToMultiByteによる文字コード変換
Public Function WCMB_Encode_UTF7(ByRef strUni As String) As Byte()
WCMB_Encode_UTF7 = WCMB_Encode(65000, strUni)
End Function
' 関数名 : WCMB_Decode_UTF7
' 返り値 : UNICODE文字列
' 引き数 : bytIn : UTF7文字データ
' 機能説明 : UTF7文字データをUNICODEに変換する
' 備考 : MultiByteToWideCharによる文字コード変換
Public Function WCMB_Decode_UTF7(ByRef bytIn() As Byte) As String
WCMB_Decode_UTF7 = WCMB_Decode(65000, bytIn)
End Function
'---UTF-8関係
' 関数名 : WCMB_Encode_UTF8
' 返り値 : UTF8文字データ
' 引き数 : strUni: UNICODE文字データ
' 機能説明 : UNICODE文字データをUTF8に変換する
' 備考 : WideCharToMultiByteによる文字コード変換
Public Function WCMB_Encode_UTF8(ByRef strUni As String) As Byte()
WCMB_Encode_UTF8 = WCMB_Encode(65001, strUni)
End Function
' 関数名 : WCMB_Decode_UTF8
' 返り値 : UNICODE文字列
' 引き数 : bytIn : UTF8文字データ
' 機能説明 : UTF8文字データをUNICODEに変換する
' 備考 : MultiByteToWideCharによる文字コード変換
Public Function WCMB_Decode_UTF8(ByRef bytIn() As Byte) As String
WCMB_Decode_UTF8 = WCMB_Decode(65001, bytIn)
End Function
'---共通関数
' 関数名 : WCMB_Encode
' 返り値 : 出力文字データ
' 引き数 : cp : 出力文字データのコードページ番号
' : strUni: UNICODE文字データ
' 機能説明 : UNICODE文字データを指定のコードに変換する
' 備考 : WideCharToMultiByteによる文字コード変換
Private Function WCMB_Encode(ByVal cp As Integer, ByRef strUni As String) As Byte()
Dim lngInSize As Integer
Dim lngOutSize As Integer
Dim lngRtn As Integer
Dim bytOut() As Byte
Dim bytIn() As Byte
If Len(strUni) <= 0 Then
Exit Function
End If
bytIn = System.Text.Encoding.Unicode.GetBytes(strUni)
lngInSize = UBound(bytIn) + 1
lngOutSize = lngInSize * 5
ReDim bytOut(lngOutSize - 1)
lngRtn = WideCharToMultiByte _
(cp, 0, bytIn, lngInSize, bytOut, lngOutSize, vbNullString, 0)
If lngRtn Then
ReDim Preserve bytOut(lngRtn - 1)
WCMB_Encode = bytOut
End If
End Function
' 関数名 : WCMB_Decode
' 返り値 : UNICODE文字列
' 引き数 : cp : 入力文字データのコードページ番号
' : bytIn : 入力文字データ
' 機能説明 : 入力文字データをUNICODEに変換する
' 備考 : MultiByteToWideCharによる文字コード変換
Private Function WCMB_Decode(ByVal cp As Integer, ByRef bytIn() As Byte) As String
Dim lngInSize As Integer
Dim lngOutSize As Integer
Dim lngRtn As Integer
Dim bytOut() As Byte
If UBound(bytIn) < 0 Then
Exit Function
End If
lngInSize = UBound(bytIn) + 1
lngOutSize = lngInSize * 5
ReDim bytOut(lngOutSize - 1)
lngRtn = MultiByteToWideChar _
(cp, 0, bytIn, lngInSize, bytOut, lngOutSize)
If lngRtn Then
ReDim Preserve bytOut(lngRtn - 1)
WCMB_Decode = System.Text.Encoding.Unicode.GetString(bytOut)
End If
End Function
End Module
★フォームモジュール(Form1.vb)
Private Sub Button1_Click( _
ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Dim bytOut() As Byte = WCMB_Encode_UTF8("あいうえお亜意卯絵尾アイウエオ１２３４５12345")
Dim strStr As String = WCMB_Decode_UTF8(bytOut)
MsgBox(strStr)
End Sub
