こんにちわ。
環境
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なのでこちらに投稿しました。
よろしくお願いします。
返信する
最新の投稿: お久しぶりです、いかがお過ごしでしょうか。 最新のメンバー: gantez 最近の投稿 未読の投稿
