这个该如何解决？

Question

如果Text1(0).text包含数字，Text1(1).text包含数字...
for i = 0 to text1数组的个数 -1
    返回text1(i).text所包含的数字
next怎样做一个函数，比如函数returnText(text1(i).text) = 对应的text1(i).text所包含的数字？

Answer 1

For i = 0 To Text1(i).Count - 1
    For j = 1 To Len(Text1(i).Text)
        '判断是否是数字,数字0-9的ASCII码是48-57
        If Asc(Mid(Text1(i).Text, j, 1)) < 48 Or Asc(Mid(Text1(i).Text, j, 1)) > 57 Then
            '将非数字字符替换成空格
            Text1(i).Text = Replace(Text1(i).Text, Mid(Text1(i).Text, j, 1), " ")
        End If
    Next
Next
Text1(i).Text = Replace(Text1(i).Text, " ", "") '去除多余空格
Text1(i).Text = Len(Text1(i).Text)  '求数字的个数不给分就太过份了