05/01/06 19:30:32
じゃあ>>395をふまえて動くことを確認したコード
Imports System.Text.RegularExpressions
Dim strText As String = "元の文字列"
Dim m As Match = Regex.Match(strText, "\d{4,}")
While m.Success
If m.Value.Length = 4 Then
'～ここに必要なコードを書くこと～
'～m.Valueに欲しいデータは入っている～
End If
m = m.NextMatch()
End While