Edit History:Diff

Changes of 文字コード変換 between Epoch and 2008/02/01 22:19:02 JST

+ added lines
- deleted lines
- IMultiLanguageを使ってみる。
- 
- [[$$toc]]
- - →[[HSP3・サンプルスクリプト]]に戻る
- 
- ----
- 
- HSP3.0aで動作確認
- 
- WindowsのIE4以降に標準でついているIMultiLanguageを使ってみる。~%
- 
- * スクリプト
- 
- {{{
- ; <<<< HSP 3.0a サンプル >>>>
- ;
- ; IMultiLanguageを使ってみる。
- ;
- onexit gosub *exit
- 
- ;#define _JIS    50221 ; iso-2022-jp?
- ;#define _JIS    50222 ; iso-2022-jp?
- 
- #define S_JIS   932   ; Shift-JIS
- #define EUC_JP  51932 ; EUC-JP
- #define _JIS    50220 ; iso-2022-jp
- #define UTF_8   65001 ; utf-8
- 
- #usecom  IMultiLanguage "{275c23e1-3747-11d0-9fea-00aa003f8646}"\
- "{275c23e2-3747-11d0-9fea-00aa003f8646}"
- #comfunc MuLang_ConvertString  9 var,int,int,var,var,var,var
- 
- newcom pMLang,IMultiLanguage
- 
- sdim pStr,260 : sdim dStr,560 : pdwMode=0
- 
- pStr={"
- 梅の花
- 今盛りなり百鳥の
- 声の恋しき
- 春来るらし
- "}
- 
- //Shift-JIS から EUC-JP
- pdwMode=0:sSize=260:dSize=560
- MuLang_ConvertString pMLang,pdwMode,S_JIS,EUC_JP,pStr,sSize,dStr,dSize
- mes "Shift-JIS >> EUC-JP ->  "+dStr+"    "+dSize+"\n"
- 
- //Shift-JISに戻す
- pdwMode=0:sSize=260:dSize=560
- MuLang_ConvertString pMLang,pdwMode,EUC_JP,S_JIS,dStr,sSize,dStr,dSize
- mes "EUC-JP >> Shift-JIS ->  "+dStr+"    "+dSize+"\n"
- stop
- 
- *exit
- delcom pMLang : pMLang=0
- end
- }}}
- * memo~%
- 2006/04/08 13:34:52 JST~%
- 変更~%
- onexit *exit -> onexit gosub *exit