救命啊！SOS！

zxp

有912*72 // 21*21+70D  与  70*52 // 10*10两种规格，请问各位大虾，如何用同一个段程序或者是一个函数，把第一个规格拆分成：912、72、21、21+70D，
                                    第二个规格拆分成：70、52、10、10
求各位大虾帮帮忙啊！在下不胜感激！

CJB_2001

可以每个字符测试，遇到＊／＋－就进行拆分。或者不是数字和字母进行拆分。

zxp

可否请哪位大虾帮小弟写一段这样的程序啊，小弟智商有限，不知道如何写！

zxclen

这个行吗？

zxp

完全OK！非常感谢！

CJB_2001

不好意识，刚才没有仔细看。你的拆分符应该是＊和／，不知道你双／是一个还是两个字符。n你的字符串是不是很有规律？都是Ａ＊Ｂ／／Ｃ＊Ｄ,大致是一下，你测试一下：
dim strItem(3) as string
function OutChar(strWord as string)
dim strTmp as string,intStart as integer，intLen as integer
dim intId as integer,intLenOfWord as integer
dim intN as integer
     for intN=1 to 3
          strItem(intN)=""
    next
    intStart=1;intLen=0;intId=1
    intLenOfWord=Len(strWord)
    for intN=1 to intLenOfWord
       strTmp=mid(strword,intN,1)
       if strTmp="*" or strTmp="/" then
         strItem(intId)=mid(strWord,intStart,intLen)
         intStart=intN+1
         intLen=0
         intId=intId+1
       else
          intLen=intLen+1
       end if
       if intN=intLenOfWord then
         strItem(3)=mid(strWord,intStart,intLen)
       end if
   next
end function