一段字符怎么拆分，请关注

liaoqiang234 · 发表于 2010-1-8 20:51:20

本帖最后由 liaoqiang234 于 2010-1-8 20:57 编辑

HM090520 F001 M(2.5)-H(12)-G(5)-CNC(12.5)-ES(20)-CMM(0)-CNC(1.5)-ES(1.5)

如何拆分出这样的格式，因为每个零件的制程不同
                     制程1  制程2 制程3 制程4 制程5 .....
HM090520 F001 M       H    G    CNC ES ......
                     2.5    12 5       12.5 20 .....
HM090520 M001 ....................
如上怎么完成？

liaoqiang234 · 发表于 2010-1-10 20:42:15

多多关注一下，帮我解决这难题

koutx · 发表于 2010-1-10 21:43:37

将以下方法变通会实现你的设想的：
Sub splt()
Dim ss, zd As String
ss = "M(2.5)-H(12)-G(5)-CNC(12.5)-ES(20)-CMM(0)-CNC(1.5)-ES(1.5)"
Dim str
str = Split(ss, "-")

For i = 0 To UBound(str)

zd = zd & " " & Left(str(i), InStr(str(i), "(") - 1)
Next

Debug.Print zd
End Sub

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[Access本身] 一段字符怎么拆分，请关注

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)