vba字符串用replace模糊替换

人上+人 · 发表于 2017-12-29 11:18

本帖最后由人上+人于 2017-12-30 11:07 编辑

字符串：如"很长很长其它的内容  登记日期：2017  年  12 月 28 日"
我要提取日期
x ="很长很长其它的内容  登记日期：2017  年  12 月 28 日"
x=Replace(x, "*始治日期", "")  （删除此行）
x=Replace(x, "*登记日期", "")
这儿无法使用*；如何用

liulang0808 · 发表于 2017-12-29 11:27

楼主按下f1，查下具体帮助，看看是否支持楼主的用法

小花鹿 · 发表于 2017-12-29 11:45

始治日期是什么东东 .

microyip · 发表于 2017-12-29 12:00

If x Like "*始治日期" Then x= Replace(x, "始治日期", "")

复制代码

liulang0808 · 发表于 2017-12-29 14:12

另外，楼主的需求，可以考虑使用split看看吧

dingboy_VBA · 发表于 2017-12-29 14:38

本帖最后由 dingboy_VBA 于 2017-12-29 15:01 编辑

=REPLACE(A1,SEARCH("很长*内容",A1),SEARCH("登记日期",A1)-SEARCH("很长*内容",A1),"")

复制代码

Replace和Substitute都不支持通配符*,但是Search可以,因此,用Search的结果来指定位置,用Replace来进行替换就可以了.
更复杂的也更强大的可以运用正则表达式来处理.

Function 提取日期(Rng As Range)
提取日期 = 提取内容("(\d+\s*年\s*\d+\s*月\s*\d+\s*日)", Rng.Text)
End Function
Function 提取内容(正则样式 As String, srcTxt As String, Optional NeededGroupIndex As Integer = 0) As String
Dim v
Set regex = CreateObject("Vbscript.Regexp")
With regex
.Global = True
.IgnoreCase = True
.MultiLine = True
.Pattern = 正则样式
Set v = .Execute(srcTxt) 'V的count对应匹配的处数,v(i)代表第i处匹配。v(i).submatches(j)代表匹配的第j-1个分组。
End With
提取内容 = ""
If (v.Count = 0) Then
提取内容 = "#NOT FOUND#"
Exit Function
ElseIf (v.Count > 1) Then
提取内容 = "#TOO MANY MATCHES#"
Exit Function
Else
提取内容 = v(0).SubMatches(NeededGroupIndex)
End If
Set regex = Nothing
End Function

复制代码

两种方式附件中都提供了,仅参考

人上+人 · 发表于 2017-12-30 11:12

microyip 发表于 2017-12-29 12:00

也只替换了"始治日期"；
我要替换"始治日期"前面所有字符；

人上+人 · 发表于 2017-12-30 11:22

microyip 发表于 2017-12-29 12:00

4楼老师解答，，结果也只替换了"始治日期"；
想要的结果是替换了"始治日期"前面所有字符

想简化处理，不希望6楼
Replace和Substitute都不支持通配符*,，

通配符*要求对象，不适用于字符串叹息叹息叹息

microyip · 发表于 2017-12-30 11:24

If x Like "*始治日期*" Then x= "始治日期" & Split(x, "始治日期")(1)

复制代码

duquancai · 发表于 2017-12-30 11:27

人上+人发表于 2017-12-30 11:22
4楼老师解答，，结果也只替换了"始治日期"；
想要的结果是替换了"始治日期"前面所有字符

叹息叹息叹息！！！！！！

		自动登录	找回密码
密码			免费注册

[求助] vba字符串用replace模糊替换

最新热点 /1