|
> SQL文中の()内の文字(1,2,3,4,5など)を取り出してA2に
> 出力したいと考えています。
こういった場合、正規表現を使いこなせるようになると
効率的な文字列抽出ができるようになります。
'要参照 Microsoft VBScript Regular Expressions 5.5
Sub GetArgs(strTarget As String)
Dim objRegExp As VBScript_RegExp_55.RegExp
Dim colMatches As VBScript_RegExp_55.MatchCollection
Dim objMatch As VBScript_RegExp_55.Match
Set objRegExp = New VBScript_RegExp_55.RegExp
With objRegExp
.Global = True
.IgnoreCase = True
.Pattern = "\([^\(\)]*\)"
Set colMatches = .Execute(strTarget)
End With
For Each objMatch In colMatches
With objMatch
Debug.Print Mid$(.Value, 2, .Length - 2)
End With
Next objMatch
End Sub
ここら辺でお勉強ください。
Clinick's Clinic on Scripting: 正規表現による Visual Basic Scripting Edition (VBScript) の機能強化
http://www.microsoft.com/japan/msdn/columns/scripting/scripting051099.asp
|
|