[编程申请]：如何将字符串自动分割的处理函数

秦林

在VBA编程过程中，本人遇见将下列所属字符串   
   string="72-螺母M16 GB41-86（不锈钢）\P372-螺栓M16×45 GB5780-86\P3-缠绕式垫片B31-80-20 GB4622\PQ11MF-16铸铁高温球阀Dn40"
   将string自动分割后用数组变量赋值示例如下：
a(1,1)="GB41-86"
a(1,2)="螺母M16"
a(1,3)=""
a(1,4)="72"
a(2,1)="GB5780-86"
a(2,2)="螺栓M16×45"
a(2,3)=" 不锈钢"
a(2,4)="72"  
a(3,1)="GB4622"
a(3,2)=" 缠绕式垫片B31-80-20"
a(3,3)=""
a(3,4)="3"
a(4,1)=""
a(4,2)="Q11MF-16铸铁高温球阀Dn40"
a(4,3)=""
a(4,4)="1"
   字符串长度也不确定，请教各位大虾试编此VBA函数，不胜感激

雪山飞狐(lzh)

怎么少了两个“3”？

mountains3

我认为楼主应该指定统一的分割符号，如“，”，这样可以用split函数很轻松的处理了

秦林

string="72-螺母M16 GB41-86（不锈钢）\P72-螺栓M16×45 GB5780-86\P3-缠绕式垫片B31-80-20 GB4622\PQ11MF-16铸铁高温球阀Dn40"
将string自动分割后用数组变量赋值示例如下：
72-螺母M16 GB41-86（不锈钢）
    a(1,1)="GB41-86"
      a(1,2)="螺母M16"
      a(1,3)=""
      a(1,4)="72"
72-螺栓M16×45 GB5780-86
      a(2,1)="GB5780-86"
      a(2,2)="螺栓M16×45"
      a(2,3)=" 不锈钢"
      a(2,4)="72"
3-缠绕式垫片B31-80-20 GB4622      
      a(3,1)="GB4622"
      a(3,2)=" 缠绕式垫片B31-80-20"
      a(3,3)=""
      a(3,4)="3"
Q11MF-16铸铁高温球阀Dn40
      a(4,1)=""
      a(4,2)="Q11MF-16铸铁高温球阀Dn40"
      a(4,3)=""
      a(4,4)="1"
说明：
一、 a(i,1)-------i表示第i 行
      a(1,j)-------j=1  表示标准号
               j=2  表示名称及规格
               j=3  表示材料
               j=4  表示数量
二、string为变量

  并请教2楼楼主，你附带的图片怎样做的？

雪山飞狐(lzh)

最初由 秦林 发布
[B]并请教2楼楼主，你附带的图片怎样做的？[/B]

复制－》粘贴

2. 
   
3. Sub tt()
   
4. s = "72-螺母M16 GB41-86（不锈钢）\P72-螺栓M16×45 GB5780-86\P3-缠绕式垫片B31-80-20 GB4622\PQ11MF-16铸铁高温球阀Dn40"
   
5. m = 1
   
6. arr1 = Split(s, "\P")
   
7. 
   
8. Dim a() As String
   
9. ReDim a(1 To UBound(arr1) + 1, 1 To 4)
   
10. 
    
11. For Each i In arr1
    
12.     sindex = InStr(i, " ")
    
13.     If InStr(i, " ") > 0 Then
    
14.         a(m, 1) = Right(i, Len(i) - sindex)
    
15.         
    
16.         sindex1 = InStr(a(m, 1), "（")
    
17.         If sindex1 > 0 Then
    
18.             sindex2 = InStr(a(m, 1), "）")
    
19.             a(m, 3) = Mid(a(m, 1), sindex1 + 1, sindex2 - sindex1 - 1)
    
20.             a(m, 1) = Left(a(m, 1), sindex1 - 1)
    
21.             
    
22.         End If
    
23.         i = Left(i, sindex - 1)
    
24.     End If
    
25.    
    
26.     If Left(i, 1) > "0" And Left(i, 1) <= "9" Then
    
27.         sindex = InStr(i, "-")
    
28.         a(m, 4) = Left(i, sindex - 1)
    
29.         i = Right(i, Len(i) - sindex)
    
30.     Else
    
31.         a(m, 4) = 1
    
32.     End If
    
33.    
    
34.     a(m, 2) = i
    
35.    
    
36.     m = m + 1
    
37. Next i
    
38. 
    
39. End Sub

<br /> Sub tt()<br /> s = "72-螺母M16 GB41-86（不锈钢）\P72-螺栓M16×45 GB5780-86\P3-缠绕式垫片B31-80-20 GB4622\PQ11MF-16铸铁高温球阀Dn40"<br /> m = 1<br /> arr1 = Split(s, "\P")<br /> <br /> Dim a() As String<br /> ReDim a(1 To UBound(arr1) + 1, 1 To 4)<br /> <br /> For Each i In arr1<br />     sindex = InStr(i, " ")<br />     If InStr(i, " ") > 0 Then<br />         a(m, 1) = Right(i, Len(i) - sindex)<br />         <br />         sindex1 = InStr(a(m, 1), "（")<br />         If sindex1 > 0 Then<br />             sindex2 = InStr(a(m, 1), "）")<br />             a(m, 3) = Mid(a(m, 1), sindex1 + 1, sindex2 - sindex1 - 1)<br />             a(m, 1) = Left(a(m, 1), sindex1 - 1)<br />             <br />         End If<br />         i = Left(i, sindex - 1)<br />     End If<br />     <br />     If Left(i, 1) > "0" And Left(i, 1) <= "9" Then<br />         sindex = InStr(i, "-")<br />         a(m, 4) = Left(i, sindex - 1)<br />         i = Right(i, Len(i) - sindex)<br />     Else<br />         a(m, 4) = 1<br />     End If<br />     <br />     a(m, 2) = i<br />     <br />     m = m + 1<br /> Next i<br /> <br /> End Sub

秦林

一个不错的程序！谢谢！再次请教2楼楼主，你附带的图片经过"复制－》粘贴"做的,在回复的窗口里不能粘贴，在“预览回复”--"贴图"也不行，那应该在哪里粘贴？还有你回复的代码窗口又是怎样做的，我是业余自学的，多多包涵！