OOobbs/98

OOobbs/98

• サマリ: 負数対応のchr関数
• 環境: Basic
• 状態: 投稿
• 投稿者: 河井?
• 投稿日: 2006-04-22 (土) 13:56:41

質問

負数対応の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("語"))

回答