OOobbs/98
質問
負数対応のchr関数
asc()関数の戻り値が負数で返されるのに対して、chr()関数はそれを引数として許容しない為に以下のような表記が出来ませんでした。(エラーになります。)
msgbox chr(asc("語")) 以下のような関数を作る事で解決しました。 ' 負数の引数でunicodeキャラクタを出力する関数 ' 関数名:Unichr() ' 引数:[整数型-32767〜32767の有効なunicode値] ' 戻り値:1キャラクタ分の文字列 Function Unichr(iCode As Integer) As String Unichr() = Chr(iCode+65536*abs(iCode<0)) End Function 使用例:
msgbox Unichr(asc("語")) 回答
|