如何使用在其间编辑的值替换字符串中的值

时间:2017-06-20 00:03:39

标签: vba excel-vba excel

我想编辑包含以下内容的字符串:

来自

WEEK = '2'
Date_Number(22,25,27,28,29)
AND
Allowance='100'
AND
((End_Date<'2017-09-17 00:00:00'
AND

Saturday_Name)

{{1}}

我已经在考虑使用多个分隔符来使用分割字符串了(&#39; Date_Number(&#39;和&#39;)&#39;)但问题是另一个&#39;)&# 39;也将被拆分成一个数组。有没有办法可以获得甚至编辑它之间的值?

1 个答案:

答案 0 :(得分:1)

未经测试,但您可以尝试此模式Date_Number\(.*\)

Sub test()
    Dim str As String
    str = "WEEK = '2' ..."

    With CreateObject("VBScript.RegExp")
        .Pattern = "Date_Number\(.*\)"
        str = .Replace(str, "Date_Number(22,25,27,28,29)")
    End With
End Sub

How do I get regex support in excel via a function, or custom function?