タイトル : Re^6: Split関数 投稿日 : 2008/08/20(Wed) 09:10 投稿者 : ダース
> > いなさんの場合だと、もし何もデータが入っていなかった場合 > > 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が帰ってきたときには初期化されていないことを示します。 > > #自分は結構、いろんなところでこの関数、使いまわしてたりします。 全然毒を食らわば皿までじゃないですよ。。 最後まで善をしているじゃないですか。。 勉強になりました。 ありがとうございます。 |