Top > OOobbs > 98

OOobbs/98 Edit

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

質問 Edit

負数対応のchr関数 Edit

asc()関数の戻り値が負数で返されるのに対して、chr()関数はそれを引数として許容しない為に以下のような表記が出来ませんでした。(エラーになります。)

asc()関数の戻り値の範囲-32767〜32767負数(補数表現値)
chr()関数の引数値の範囲0〜65535正の整数値
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 

使用例: Edit

msgbox Unichr(asc("語"))

回答 Edit



Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes