TOMMYHU

数组倒排，数组逆序排列，数组反转，数组逆向 数组反向排序 数组逆向排序
方法一
<script language="vbscript"> Function RegExpTest(patrn, strng) Dim regEx, Match, Matches ' 创建变量。 Set regEx = New RegExp ' 创建正则表达式。 regEx.Pattern = patrn ' 设置模式。 regEx.IgnoreCase = True ' 设置为不区分大小写。 regEx.Global = True ' 设置全局适用。 Set Matches = regEx.Execute(strng) ' 执行搜索。 for i=Matches.count-1 to 0 step -1 ' 对 Matches 集合进行迭代。 set Match = Matches(i) RetStr = RetStr & "Match found at position " RetStr = RetStr & Match.FirstIndex & ". Match Value is '" RetStr = RetStr & Match.Value & "'." & vbCRLF Next RegExpTest = RetStr End Function MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))</script>
 提示：您可以先修改部分代码再运行
数组倒排，数组逆序排列，数组反转，数组逆向 数组反向排序 数组逆向排序
方法二
<script language=vbs> rose = "aaa,bbb,ccc,ddd,eee,fff" rose = split (rose ,",") for each wds in rose bruce=wds&"*"&bruce next bruce = split (bruce,"*") for each wds in bruce alert(wds) next </script>
 提示：您可以先修改部分代码再运行
数组倒排，数组逆序排列，数组反转，数组逆向 数组反向排序 数组逆向排序
最后编辑： tommyhu 编辑于2010/10/16 10:07