vb ²Ù×÷×Ö·û´® È¡Ö®²»¡°½ø¡±°¡

ÓÐÕâÑùÒ»¸ö×Ö·û´®
"N  ¿Õ¸ñÈô¸É M ¿Õ¸ñÈç¸É 1 ¿Õ¸ñÈô¸É P" £¨ÀýÈç -1    0  1  1000£©
NÊÇ0£¬1»ò-1.
MͬN¡£

PÊÇ500µ½5000µÄÕûÊý¡£
ÈçºÎ²ÅÄÜÌáÈ¡³öN£¬M ºÍPÀ´¡£Ð»Ð»£¡£¡£¡

ÎÊÌâ²¹³ä£º¿Õ¸ñÈô¸ÉÊÇÒòΪ¿Õ¸ñÊýÄ¿²»Ò»¶¨ÏàµÈ¡£

---

ÓÃsplitº¯Êý·ÖÀë¿Õ¸ñ

---

ÒýÓÃ

VB code'ÎÒ¹ÜÄã N M P ÊÇɶ£¬Öмä¶àÉÙ¿Õ¸ñ£¬Í¨³Ô£¡Dim strText$, arrRlt$(), i&
strText="N      M      1                P"'ÄãµÄÄǸö×Ö·û´®While (InStr(1, strText,"")>0)'ÕâÀïÊÇÁ½¸ö¿Õ¸ñ£¡    strText=Replace(strText,"","")'Ç°ÃæÁ½¸ö¿Õ¸ñ£¬ºóÃæÒ»¸ö¿Õ¸ñWend
arrRlt=Split(strText,"")'Ò»¸ö¿Õ¸ñFor i=0ToUBound(arrRlt)
    MsgBox i&" ---->"& arrRlt(i),64Next

---

VB code:
'ÒýÓÃÁËMicrosoft VBScript Regular Expressions 5.5
Private Sub Form_Load()
Dim re As RegExp
Dim mh As Match
Dim mhs As MatchCollection
Dim inpStr As String
inpStr = " -1 0 1 1000"
Set re = New RegExp
re.Global = True
re.Pattern = "\d+"
Set mhs = re.Execute(inpStr)
For Each mh In mhs
MsgBox mh
Next
End Sub