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

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

2008年11月19日水曜日

特定の文字の箇所を知る

文字列内の検索をする関数。
今までにもいくつかのサンプル内で使ってきた関数のInstrを利用する。

サンプルはアルファベットを格納した文字列変数があり、その中に含まれる文字列が何番目にあるのかを検索して、結果を表示するものである。
これとMid関数を組み合わせると、文字列の抽出ができるようになる。

このサンプルを元に、色々と試してみてほしい。
Sub Click(Source As Button)
    Dim STRINGS As String
    Dim ANS As Integer
    Dim inp As String

    '文字列の定義
    STRINGS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"

    '文字列内の検索
    inp = Inputbox( "検索したいアルファベットを入力してください。", "検索するアルファベットの入力" )
    If inp = "" Then
        Msgbox "処理を中断しました。", 0, "文字列の検索"
    Else
        ANS = Instr( STRINGS, inp )
        If ANS = 0 Then
            Msgbox "見つかりませんでした。", 0, "文字列の検索"
        Else
            Msgbox ANS & "番目", 0, inp & "の位置"
        End If
    End If
End Sub




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

0 件のコメント: