Shift_JISからJISへ変換する

[vb]
Function ShJIS2JIS(ByVal SrcStr As String) As String
Const adTypeText = 2
Dim myStream As Object
Dim tmpS As String
Set myStream = CreateObject("ADODB.Stream")
myStream.Open
myStream.Type = adTypeText
myStream.Charset = "iso-2022-jp"
myStream.WriteText SrcStr
myStream.Position = 0
myStream.Type = adTypeText
myStream.Charset = "Shift_JIS"
tmpS = myStream.ReadText()
myStream.Close
Set myStream = Nothing
ShJIS2JIS = tmpS
End Function
[/vb]


JISコード(ISO-2022-JP)の文字列からShift_JISコードの文字列への変換と同様、ADODB.Streamを使えばShift_JISコードの文字列からJISコードの文字列への変換も簡単にできる。

 

みっちょ

SALON Doluce 代表。ハッカーでカウンセラー、占い師でカメラマン、その他あらゆる顔を持つ変な人。キッズプログラミング講師、パソコン修理、カウンセリングなど喜んで承ります。お気軽にお声掛けください!