Public Function GetStr(str) As String '自定义函数
Dim TStr, re
TStr = str
Set re = CreateObject("vbscript.regexp") '正则表达式对象
re.Pattern = "[^a-z]" '规则非数字字符

re.Global = True '全局可用性。
TStr = re.Replace(TStr, "")

Set re = Nothing '释放对象
GetStr = TStr
End Function

这自定义的函数有些地方不理解,

我想问如果不用自定义函数怎么实现呢？

我也就能理解这程度的代码，心中有剑大哥的那个实在是看不太懂啊

[CODE]Private Sub Command1_Click()
Dim strTemp As String
Dim strArr() As String
Dim llCount As Long
Dim i As Integer, j As Integer
strTemp = Text1
i = 0
For llCount = 1 To Len(strTemp)
If Mid$(strTemp, llCount, 1) Like "[^a-z]" Then
i = i + 1
ReDim Preserve strArr(i) As String
strArr(i) = Mid$(strTemp, llCount, 1)
End If
Next
'排序
Text2 = ""
Dim tmp As String
For i = 1 To UBound(strArr)
For j = i + 1 To UBound(strArr)
If strArr(i) > strArr(j) Then
'交换两数
tmp = strArr(i)
strArr(i) = strArr(j)
strArr(j) = tmp
End If
Next j
Next i
i = 0
For llCount = 1 To Len(strTemp)
If Mid$(strTemp, llCount, 1) Like "[^a-z]" Then
i = i + 1
Text2 = Text2 & strArr(i)
Else
Text2 = Text2 & Mid$(strTemp, llCount, 1)
End If
Next
End Sub
Private Sub Form_Load()
Text1 = "ccbb1aa4ggff1ee"
Text2 = ""
End Sub[/CODE]
这下看懂了吧! 哎

跟 mid一个道理!

那干嘛加个$,

最后问一个问题,ReDim Preserve strArr(i) As String解释一下这条代码

你看看 msdn吧!帮助里写的很详细了!保留重定义数组! 加$ 是证明字符串类型基本没区别，不过习惯写法而已