当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。
記事そのもののリンクについてはご自由に行っていただいてよいです。

テクてく Lotus 技術者 Slack に参加しよう!

2009年1月26日月曜日

配列の内容を検査する

配列の内容を検査するというサンプルを作ってみました。
Arraygetindexという関数で、実現できます。
この関数は配列の中を検査して、該当する内容があったら、配列のどこにあったのかを返してくれるものです。

サンプルは、入力した文字列が決まった配列の中にあるかどうかを検査するものです。
工夫すれば、ノーツ文書の複数値を許可しているフィールドの中も検査できる様になるでしょう。


Sub Click(Source As Button)
    Dim hairetsu( 5 ) As String
    Dim kensamoji As String
    Dim ret As Variant
    
    '配列の中身の決定
    hairetsu(0) = "いちご"
    hairetsu(1) = "りんご"
    hairetsu(2) = "みかん"
    hairetsu(3) = "ばなな"
    hairetsu(4) = "ぶどう"
    hairetsu(5) = "すいか"
    
    '検査したい文字列の入力
    kensamoji = Inputbox( "検査したい文字列を入力してください。", "検査文字列の入力" )
    
    '配列の検査
    ret = Arraygetindex( hairetsu, kensamoji, 1 )
    
    '検査結果の表示
    If Isnull( ret ) Then
        Msgbox "入力した文字列【" & kensamoji & "】は、配列の中に見つかりませんでした。", 0, "配列の内容を検査する"
    Else
        Msgbox "入力した文字列【" & kensamoji & "】は、配列の" & ret & "番目に見つかりました。", 0, "配列の内容を検査する"
    End If
End Sub



Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ

0 件のコメント: