サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2007/09/14 20:42
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[文字列処理][][] *
* キーワード：正規表現,位置,検索,,, *
***********************************************************************************
元質問内容 半角の識別 - ＫＫＫ 2002/11/18-19:30 No.1430
（ここから）→12124234908205gfsh04u gskl←（ここまで）が半角である、と判断してくれる関数はあるのでしょうか？出きれば（ここから）→ふぁいえるｆたそふぁ９９９←（ここまで）は、全角である、というのも教えていただければ幸いです。
-------------------------------------------------------------
投稿時間：2002/11/19(Tue) 10:00 No.1440
投稿者名：魔界の仮面弁士
タイトル：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
 |
