TA貢獻1900條經(jīng)驗 獲得超5個贊
構(gòu)造正則表達式來解析。雖然語法可能需要一段時間才能掌握這種方法非常有效，并且非常靈活，可以處理更復(fù)雜的字符串提取/替換
Sub Tester()
MsgBox CleanString("3d1fgd4g1dg5d9gdg")End SubFunction CleanString(strIn As String) As String
Dim objRegex Set objRegex = CreateObject("vbscript.regexp")
With objRegex .Global = True
.Pattern = "[^\d]+"
CleanString = .Replace(strIn, vbNullString)
End WithEnd Function
TA貢獻1824條經(jīng)驗 獲得超8個贊
擴展brettdj的答案，以便將不相交的嵌入數(shù)字解析為單獨的數(shù)字：
Sub TestNumList()
Dim NumList As Variant 'Array
NumList = GetNums("34d1fgd43g1 dg5d999gdg2076")
Dim i As Integer
For i = LBound(NumList) To UBound(NumList)
MsgBox i + 1 & ": " & NumList(i)
Next iEnd SubFunction GetNums(ByVal strIn As String) As Variant 'Array of numeric strings
Dim RegExpObj As Object
Dim NumStr As String
Set RegExpObj = CreateObject("vbscript.regexp")
With RegExpObj .Global = True
.Pattern = "[^\d]+"
NumStr = .Replace(strIn, " ")
End With
GetNums = Split(Trim(NumStr), " ")End Function舉報