提取字符串中内容，再分离数字和汉字

tudarong

要求 ：

将规格列括号内容分离出来到B/C/D列

如果没有括号部分，则为空

数量很多，附件仅是其中一部分

希望能通过代码实现，请老师们指导下，谢谢！

分离数字和汉字.rar (6.07 KB, 下载次数: 44)

2018-7-5 22:03 上传

点击文件名下载附件

小花鹿

正则：\((\d+\D+)+\)                                                                                                            

tudarong

什么是正则呢？没有学过，可以把这个例子写给我看下吗？谢谢

duquancai

请测试》》》》》》》》》》》》》》》》》

1. Sub main()
   
2.     Dim js As Object, r As Long
   
3.     r = Cells(Rows.Count, 1).End(3).Row: Range("b:d").ClearContents
   
4.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
5.     js.Language = "JavaScript": js.AddObject "g", Range("a2")
   
6.     js.AddCode "var x=/''/,y=/''/;x.compile(/[(（]([^(（)）]+)[)）]/);y.compile(/\d+\D+/g)"
   
7.     js.eval "function fu(s){return (a=x.exec(s))?((b=a[1].match(y))?b:0):0}"
   
8.     js.eval ("for(i=1;i<=" & r & ";i++)if(a=fu(g(i,1).text))for(j=0;j<a.length;j++)g(i,j+2)=a[j]")
   
9. End Sub

复制代码

tudarong

有路过的高人指点下吗？

duquancai

tudarong 发表于 2018-7-5 22:36
什么是正则呢？没有学过，可以把这个例子写给我看下吗？谢谢

我已经写了一个代码，给你看嘛！在审核代码中，请等待。。。。。。

tudarong

小花鹿 发表于 2018-7-5 22:31
正则：\((\d+\D+)+\)                                                                                  ...

没有学过正则，可以把这个例子写给我看下吗？谢谢

一把小刀闯天下

'这个应该能看懂吧

Option Explicit

Sub test()
  Dim arr, mark, i, j, k, pos, n, t, max
  mark = ".0123456789"
  arr = Range("a2:a" & Cells(Rows.Count, "a").End(xlUp).Row)
  ReDim brr(1 To UBound(arr, 1), 1 To 10 ^ 2)
  For i = 1 To UBound(arr, 1)
    If InStr(arr(i, 1), "（") Then
      n = 0: pos = 1
      t = Split(arr(i, 1), "（")(1)
      t = Replace(t, "）", vbNullString) & "0"
      For j = 1 To Len(t)
        If InStr(mark, Mid(t, j, 1)) = 0 Then
          For k = j To Len(t)
            If InStr(mark, Mid(t, k, 1)) > 0 Then
              n = n + 1: brr(i, n) = Mid(t, pos, k - pos)
              If max < n Then max = n
              pos = k: j = k: Exit For
            End If
          Next
        End If
      Next
    End If
  Next
  [b2].Resize(UBound(arr, 1), max + 1) = brr
End Sub

tudarong

一把小刀闯天下 发表于 2018-7-6 06:52
'这个应该能看懂吧

Option Explicit

能看懂，昨天我能把括号内的提取出来，但是括号内数字和汉字分离，总是理不清楚逻辑关系，所以怎么都调不出来。
谢谢大神的指点。

tudarong

duquancai 发表于 2018-7-5 23:15
请测试》》》》》》》》》》》》》》》》》

测试OK。
这个目前完全看不懂，我得好好学习一下。