'* ************************************** * '* 模块<a href="https://www.jb51.cc/tag/mingcheng/" target="_blank" class="keywords">名称</a>：modSort.bas '* 模块<a href="https://www.jb51.cc/tag/gongneng/" target="_blank" class="keywords">功能</a>：使用ADO实现数组排序 '* 作者：http://blog.csdn.net/lyserver '* ************************************** * Sub main() Dim pstr As String pstr = "4aaaa/5.1hhhhhh/1.2pppppp/4.1ttttttt/5.2dddddddd" Dim v As Variant,v_array As Variant,rs As Object v_array = Split(pstr,"/") Set rs = CreateObject("ADODB.Recordset") rs.Fields.Append "zd1",adChar,100 rs.Open For Each v In v_array rs.AddNew "zd1",v Next rs.Sort = "zd1 ASC" rs.MoveFirst Do While Not rs.EOF Debug.Print rs.AbsolutePosition,rs!zd1 rs.MoveNext Loop rs.Close End Sub