VBScriptで文字コード変換 – プログラミング – Home

VBScriptで文字コード変換
 
通知
すべてクリア

VBScriptで文字コード変換


米粒
 米粒
(@米粒)
ゲスト
結合: 16年前
投稿: 30
 

こんにちわ。

環境
XP SP2
IE6.0

AjaxでXMLHttpRequestオブジェクトを使用していて、
responseTextプロパティを受信したのですが、
受信元の文字コードがShift_JISだと文字化けが発生したので、
VBScript以下のような関数を実装しました。

Function fromSJIS( bBody )
Dim i, strRet, chAsc
For i=1 To LenB( bBody )
chAsc = AscB( MidB( bBody, i, 1) )
if chAsc < 128 Then
strRet = strRet & Chr( chAsc )
Else
strRet = strRet & Chr(256*chAsc+AscB(MidB(bBody,i+1,1)))
i = i+1
End if
Next
fromSJIS = strRet
End Function

Shift_JISの場合はこの関数の引数にresponseBodyプロパティを指定することで文字化け
を防ぐことができたのですが、これをiso2022-jpにも対応させたいです。
上記関数を応用することで実現できないでしょうか?

要するに文字コード変換のアルゴリズムを聞きたいというワケなんですが、
言語がVBScriptなのでこちらに投稿しました。
よろしくお願いします。


引用解決済
トピックタグ
Web

返信する

投稿者名

投稿者メールアドレス

タイトル *

プレビュー 0リビジョン 保存しました
共有:
タイトルとURLをコピーしました