我需要从文本字符串中提取数字，但我不太确定该怎么做。我在下面附加的代码是非常初步的，很可能可以更优雅地完成。我尝试解析的字符串示例如下：
“ ID CSys ID集ID集值集标题7026..Plate顶部MajorPrn应力7027..Plate顶部MinorPrn应力7033..Plate顶部VonMises应力”
我需要提取数字7026、7027和7033。字符串的长度将有所不同，我需要提取的值的数量也将有所不同。任何帮助将非常感激。谢谢！
Dim WrdArray() As String
Dim txtstrm As TextStream
Dim line As String
Dim clm As Long
Dim Rw As Long
'------------------------------------------------- -----------
Dim i As Long
Dim strPath As String
Dim strLine As String
Dim count, count1 As Integer
Dim holder As String
Dim smallSample As String
count = 0
count1 = 1
holder = ""
'Remove Filters and Add Custom Filters
Call Application.FileDialog(msoFileDialogOpen).Filters.Clear
Call Application.FileDialog(msoFileDialogOpen).Filters.Add("Text Files", "*.txt")
Call Application.FileDialog(msoFileDialogOpen).Filters.Add("Dat Files", "*.dat")
'only allow …