Stream オブジェクトと併用するのがミソです。この場合、Shift_JIS の文字列を Base64 に変換します。 Microsoft のドキュメント Utilities Object (Windows) 関連する記事 VBScript : ネイティブ SHA1、MD5、SHA256 変換
Set CAPIUtil = CreateObject( "CAPICOM.Utilities" ) Set Stream = CreateObject("ADODB.Stream") Set StreamBin = CreateObject("ADODB.Stream") '****************************** ' Base64 エンコード '****************************** Stream.Open Stream.Charset = "shift_jis" ' shift_jis で入力文字を書き込む Stream.WriteText "日本語表示OK" Stream.Position = 0 ' バイナリで開く StreamBin.Open StreamBin.Type = 1 ' テキストをバイナリに変換 Stream.CopyTo StreamBin Stream.Close ' 読み込みの為にデータポインタを先頭にセット StreamBin.Position = 0 ' 変換 strBinaryString = CAPIUtil.ByteArrayToBinaryString( StreamBin.Read ) strBase64 = CAPIUtil.Base64Encode( strBinaryString ) ' 長い文字列は仕様として、(\r\n を含めて 76) 改行されます strBase64 = Replace(strBase64,vbCrLf,"") Wscript.Echo strBase64
VBScriptドキュメント
|
【VBS + オブジェクトの最新記事】
- 簡易詳細設計書(A4)作成 : VBScript + Excel.Application
- VBScript : 複数テキストファイルの charset(キャラクタセット) 一括変換 / ADODB.Stream
- VBScript : 既存の Excel を PDF に変換する ( ExportAsFixedFormat )
- テーブル設計書作成 : VBScript + Excel.Application + SQLServer
- VBScript : Excel.Application でファイルを複数選択する
- ブラウザ上にあるデータを PHP で受け取って、VBScript のコードを作成して事前に作成済のテンプレート Excel にデータをロードして印刷で使用する
- VBScript : Access のテーブルを TransferText メソッドを使用して UTF-8 で CSV または HTML にして出力する
- VBScript で、スクリプト(Windows Script Component)をオブジェクトとして直接使う方法
- VBScript : バイナリファイルの更新( 1バイトの ByteArray なら、ADO.Stream で作成できます )
- VBScript : ini ファイルの値を取得する
- VBS : My Documents フォルダのような、特殊フォルダのサイズを取得する
- VBScript : ネイティブ SHA1、MD5、SHA256 変換
【VBScript関連のカテゴリ】