VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2002/11/19(Tue) 10:00
投稿者： 魔界の仮面弁士
Ｅメール：
ＵＲＬ：
タイトル： RegExpオブジェクトのサンプル

> どちらも、「RegExp オブジェクト」で判定できますよ。

Private Sub Command1_Click()
    Dim RegExp As Object
    Dim Match As Object
    Dim Source As String

    Source = Text1.Text

    Set RegExp = CreateObject("VBScript.RegExp")
    RegExp.Global = True    '文字列全体を検索対象にする
    RegExp.IgnoreCase = False   '大文字小文字を区別する
    RegExp.MultiLine = True '複数行にわたる文字列を扱う

    Debug.Print "===半角位置==="
    RegExp.Pattern = "[ -~]+"
    For Each Match In RegExp.Execute(Source)
        Debug.Print "開始位置:" & Match.FirstIndex; Tab(15);
        Debug.Print "終了位置:" & Match.FirstIndex + Match.Length - 1; Tab(30);
        Debug.Print "『"; Match.Value; "』"
    Next

    Debug.Print "===全角位置==="
    RegExp.Pattern = "[^ -~]+"
    For Each Match In RegExp.Execute(Source)
        Debug.Print "開始位置:" & Match.FirstIndex; Tab(15);
        Debug.Print "終了位置:" & Match.FirstIndex + Match.Length - 1; Tab(30);
        Debug.Print "『"; Match.Value; "』"
    Next

    Set RegExp = Nothing
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -