スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

Shift_JISからJISへ変換する

Excel VBA VB 6.0

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
 
JISコード(ISO-2022-JP)の文字列からShift_JISコードの文字列への 変換と同様、ADODB.Streamを使えば Shift_JISコードの文字列からJISコードの文字列への変換も簡単にできる。
 
関連記事
スポンサーサイト

テーマ : プログラミング
ジャンル : コンピュータ

プロフィール

みっちょ (田上 暢顕)

Author:みっちょ (田上 暢顕)
 
30年以上ひたすら毎日プログラミングを続けているエンジニアの『みっちょ』です。

ここでは開発を行う際の覚書の他、私が日頃から色々な開発を行う中で便利だと感じているツールやサービスなどを紹介しています。



連絡先
 110651321
 michyox
 4348126
 Ravijour

友達申請などWelcomeです☆
基本的に断りませんので、お気軽に申請してください♪

最新記事
最新コメント
最新トラックバック
月別アーカイブ
カテゴリ
検索フォーム
RSSリンクの表示
リンク
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。