文字列置換(簡易正規表現対応) Function replaceWithRegex(target As String, pattern As String, replaceStr As String) Dim RE, strPattern As String, ret As String Set RE = CreateObject("VBScript.RegExp") With RE .pattern = pattern ''検索パター…