参考代码
Dim str As String = "工序0.1,工序0.9,工序33"Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9\.]+")Dim sum As Double = 0For i As Integer = 0 To mc.count-1 output.show(mc(i).value) sum += val(mc(i).value)Nextmsgbox(sum)