怎样用VB来提取文本中的字符串

Question

比如文本框中内容为1：1-2/2-1//
2：0-1/1-0//
3：0-2/2-0//
我怎么样能让他显示为1221
0110
0220
我想要得到一个二维的矩阵

Answer 1

Dim tmpStr As String
tmpStr = Text1
tmpStr = Replace(tmpStr, "-", "")
tmpStr = Replace(tmpStr, "/", "")

变量"tmpStr"就是你想要的效果!
函数"Replace"的作用，是把一些你不想要的字符进行替换.

Answer 2

Public Function extract_num(mystr As String) As String
extract_num = ""
For i = 1 To Len(mystr)
If IsNumeric(Mid(mystr, i, 1)) Then
extract_num = extract_num + Mid(mystr, i, 1)
End If
Next i
End Function