tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^5: Split関数
投稿日: 2008/08/19(Tue) 20:26
投稿者いな
> いなさんの場合だと、もし何もデータが入っていなかった場合
> split関数を実行することが出来ず、
> その後に、件数を取得する
> t = UBound(StatusData)でエラーが起こってしまうし。
> 参考になりました。ありがとうございます。

毒を食らわば皿まで・・・。
ということで動的配列が初期化されていない場合などのチェックとしては
ありきたりですが・・・。

'*********************************************************************
' 機    能  : 配列の要素数を返す
' 引 き 数  : strArray  配列
'*********************************************************************
Public Function cmnUBound(strAry() As String) As Long
    On Error GoTo cmnUBound_ERR
    
    cmnUBound = UBound(strAry)
    Exit Function

cmnUBound_ERR:
    If Err.Number = 9 Then
        cmnUBound = -1
    End If
End Function

などの関数を自作しておき・・・。

t = cmnUBound(StatusData)とすると良いかと・・・。
-1が帰ってきたときには初期化されていないことを示します。

#自分は結構、いろんなところでこの関数、使いまわしてたりします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。