字符串如何拆分

liaoqiang234

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

有一数据表中的字段数据如上，我要把字母和数字依次拆分开来
更新到另外2个数据表中

todaynew

拆分大体可以如下语句，进一步可用两个记录集分别找到拆分对象和更新对象。



dim str as string
dim str(1 to 8) as string
dim vl(1 to 8) as single
dim i as long
str=M(2.5)-H(12)-G(5)-cnc(12.5)-ES(20)-CMM(0)-CNC(1.5)-ES(1.5)
for i=1 to 8
    str(i)=left(str,instr(str,"-")-1)
    str=mid(str,instr(str,"-")+1)
    vl(i)=val(mid(str(i),instr(str(i),"(")+1,instr(str(i),")")-1)
    str(i)=left(str(i),instr(str(i),"(")-1)
next

asklove

学习

liaoqiang234

M(2.5)-H(12)-G(5)-CNC(12.5)-ES(20)-CMM(0)-CNC(1.5)-ES(1.5)
T，还有点小问题，我想要的依次拆分开来，
制程1  制程2  制程3  制程4  制程5  制程6  制程7  制程8  制程9  制程10  制程11
M       H        G         CNC    ES    CMM   CNC    ES
2.5    12      5          12.5   20      0        1.5    1.5
制程中有重复制程不能合在一起计算工时，按顺序分开来

linag516