求助:如何拆分字符串

lkf1747 · 发表于 2016-1-12 20:47

本帖最后由 lkf1747 于 2016-1-12 20:50 编辑

想把字符串:  A.ABCB.头晕眼花 C、如何处理 D.上下E.请高手A、B、C指教拆分
用正则表达式拆分成： A.ABC
                              B.头晕眼花

                              C、如何处理

                              D.上下

                              E.请高手A、B、C指教拆分

自己试了很久，无法解决！请大大们指导一下。

bajifeng · 发表于 2016-1-14 20:38

本帖最后由 bajifeng 于 2016-1-15 08:25 编辑

Sub db() 'bajifeng
Dim n%, s$, reg As Object, br()
Set reg = CreateObject("vbscript.regexp")
With reg
.Global = True
.IgnoreCase = True
.Pattern = "[A-Z][.、][^.、]+(、[A-Z])*[^.、]*((?=[A-Z][.、])|$)"
End With
s = "A.ABCB.头晕眼花 C、如何处理 D.上下E.请高手A、B、C指教拆分"
For Each mh In reg.Execute(s)
n = n + 1
ReDim Preserve br(1 To 2, 1 To n)
br(1, n) = n
br(2, n) = mh
Next
[e2:f10] = ""
[e2].Resize(n, 2) = Application.Transpose(br)
End Sub

复制代码

bajifeng · 发表于 2016-1-14 20:38

本帖最后由 bajifeng 于 2016-1-15 08:26 编辑

>>>>>>>>>>>>>>>

bajifeng · 发表于 2016-1-15 08:28

楼主，您好，已经更新代码和附件
问题已经圆满解决。

lkf1747 · 发表于 2016-1-17 00:28

bajifeng 发表于 2016-1-15 08:28
楼主，您好，已经更新代码和附件
问题已经圆满解决。

谢谢！！解决了我的问题！！

bajifeng · 发表于 2016-1-17 10:06

lkf1747 发表于 2016-1-17 00:28
谢谢！！解决了我的问题！！

额。。。都过去一个礼拜了。。
貌似楼主近年关有点忙

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