求一个正则表达式

yxbaju

W-HR-70灰白RAL70	-->	W-HR-70	灰白RAL70
CA01-1		CA01-1
CA01-2		CA01-2
W-7023-F6Z黑RAL9005		W-7023-F6Z	黑RAL9005

求教如何表达当字符中含有汉字时则从首次出现的汉字前面分开，如果没有出现汉字则匹配全部？

tspliu

Sub aa()
      Set reg = CreateObject("Vbscript.Regexp")
    With reg
        .Global = True
        .IgnoreCase = True
        .Pattern = "[^一-龢]+|.+"
    End With
   Set mc = reg.Execute("W-HR-70灰白RAL70")
   For Each x In mc
   Debug.Print x
   Next
End Sub

DevilW

1. Sub test()
   
2.     Set reg = CreateObject("Vbscript.Regexp")
   
3.     reg.Pattern = "[一-龢].*"
   
4.     ar = [a1:a4]
   
5.     ReDim br(1 To UBound(ar), 1 To 2)
   
6.     For i = 1 To UBound(ar)
   
7.         br(i, 1) = reg.Replace(ar(i, 1), "")
   
8.         br(i, 2) = Mid(ar(i, 1), Len(br(i, 1)) + 1)
   
9.     Next
   
10.     [c1].Resize(UBound(ar), 2) = br
    
11. End Sub

复制代码

duquancai

简单吧              

duquancai

正则表达式就是   (?=[一-﨩])    就行了！！！

duquancai

1. Sub main()
   
2.     Dim arr, a
   
3.     arr = Array("W-7023-F6Z黑RAL白9005", "W-HR-70灰白RAL70", "CA01-1", "CA01-2", "W-7023-F6Z黑RAL9005")
   
4.     For Each a In arr
   
5.         MsgBox jsSplit(a)
   
6.     Next
   
7. End Sub
   
8. Function jsSplit(ByVal s As String) As String
   
9.     Dim D As Object, js As Object
   
10.     Set D = CreateObject("htmlfile"): Set js = D.parentWindow
    
11.     js.execScript "var s='" & s & "';a=s.replace(/(?=[一-﨩])/,function(a){return '﨩'}).split('﨩');"
    
12.     jsSplit = js.eval("if(a.length==1)a.push('None');a")
    
13. End Function

复制代码

taller

1. (.*?)([\u4e00-\u9fa5].*|$)

复制代码

yxbaju

tspliu 发表于 2019-9-4 14:39
Sub aa()
      Set reg = CreateObject("Vbscript.Regexp")
    With reg

谢谢帮助！

yxbaju

taller 发表于 2019-9-5 06:07

Thanks help

yxbaju

duquancai 发表于 2019-9-4 22:20

谢谢赐教,那个python写的，居然知道我需求的是一个两个元素的序列！