正規表現を使用した文字列の抽出
Set re = CreateObject("VBScript.RegExp") sPtn1 = "ここに正規表現を記載する" With re .Pattern = sPtn1 .Multiline = True .Global = True Set mc = .Execute(desc) desc = mc(0).Value End With
Set re = CreateObject("VBScript.RegExp") sPtn1 = "ここに正規表現を記載する" With re .Pattern = sPtn1 .Multiline = True .Global = True Set mc = .Execute(desc) desc = mc(0).Value End With