[求助]高难度！提取名称、型号、单位问题[已完成]

adaigua · 发表于 2007-8-25 16:57

我想对如下材料进行：名称、型号、单位的分别提取，找了论坛未找到，特求助，范例如下：

总名——>名称，型号，单位
钢芯铝绞线LGJ-95米——>钢芯铝绞线，LGJ-95，米
UT线夹NUT-3套——>UT线夹，NUT-3，套
钢绞线GJ-50kg——>钢绞线，GJ-50，kg

其难点在于：名称、型号内夹杂有字母或数字，有全角字符（如西腊字母）；单位为中文或英文，但名称末位是中文、型号首位是字母。
请教各位：如何做？

单位多了有：套、只、块、片、条、基、kg、m、付、根、组等等。

规律是：1、名称的最后一位是中文，但其首位不定；
2、型号的第一位是英文字母或希腊字母、型号的末位是数字
3、单位不定，
4、三者间无空格

sdbpC5FX.rar (2.27 KB, 下载次数: 5)

[此贴子已经被作者于2007-9-2 13:25:25编辑过]

taller · 发表于 2007-8-25 17:55

对于可能出现的其他全角字符请在黄色部分添加

Sub macro()
    Dim a As String, b
    For j = 2 To [a65536].End(xlUp).Row
        a = Trim(Cells(j, 1))
        b = Len(a)
        s = 0: e = 0
        For i = b To 1 Step -1
            c = Mid(a, i, 1)
            If VBA.IsNumeric(c) Then s = IIf(s = 0, i, s)
            If s > 0 And Asc(c) < 0 And VBA.InStr(1, "Ф×", c) = 0 Then
                e = i
                Exit For
            End If
        Next
        If s > 0 And e > 0 Then
            Cells(j, 2) = VBA.Left(a, e)
            Cells(j, 3) = VBA.Mid(a, e + 1, s - e)
            Cells(j, 4) = VBA.Mid(a, s + 1)
        End If
    Next
End Sub

hyy514 · 发表于 2007-8-25 18:14

厉害！

adaigua · 发表于 2007-8-26 09:15

谢谢taller,你果然是高人~

adaigua · 发表于 2007-8-26 09:28

但为什么电杆这一行不对呢？

adaigua · 发表于 2007-8-26 09:36

我找到问题了原来是电杆这一列的那个西腊字母写法不对！~再次谢谢taller

adaigua · 发表于 2007-8-26 11:57

还是有一个问题，就是埋深这一栏。因为没有型号所以在后面就啥都没有了~

adaigua · 发表于 2007-8-26 12:24

在实际应用中我发现对这一行进行操作时有误：

绝缘子P-15M只：变成了：绝缘子，这P-15，M只。

脑袋都大了，烦请在有时间的时候帮我解决一下为谢~

oobird · 发表于 2007-8-27 11:45

dZbM9V5U.rar (8.48 KB, 下载次数: 17)

taller · 发表于 2007-8-27 20:45

oobird版主的代码更简洁，学习

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

[已解决] [求助]高难度！提取名称、型号、单位问题[已完成]