by のぶあや » 2006年11月17日(金) 09:57
Len関数を使えば何とかなります(条件付ですが・・・)
コード: 全て選択
Dim str As String, lp As BytePtr
Print Len(str), Len(lp)
このようにやれば「0 4」のように表示されると思います。
要するにLen関数にデータを渡してやり、戻り値が4ならBytePtr型(もしくは4文字格納されたString型)、4以外ならString型ということになります。
ただこの場合だと文字列が半角4文字の場合判別ができません。
この方法以外には思いつきませんがどうでしょう?
Len関数を使えば何とかなります(条件付ですが・・・)
[code]Dim str As String, lp As BytePtr
Print Len(str), Len(lp)[/code]
このようにやれば「0 4」のように表示されると思います。
要するにLen関数にデータを渡してやり、戻り値が4ならBytePtr型(もしくは4文字格納されたString型)、4以外ならString型ということになります。
ただこの場合だと文字列が半角4文字の場合判別ができません。
この方法以外には思いつきませんがどうでしょう?