摘要： Public Function ary(str)Dim a()Dim b()Dim lenstr '字符串长Dim i, j '循环变量Dim ouflaglenstr = Len(str)If lenstr Mod 2 = 1 Then'长度为奇ouflag = Falselenstr = lenstr + 1ReDim a(2, lenstr / 2)a(2, lenstr / 2) = Chr(20) '最后一个补空格Else'长度为偶ReDim a(2, lenstr / 2)ouflag = TrueEnd IfReDim b(lenstr / 阅读全文

摘要： 这是2个对字符串处理的互逆函数功能:移动字符串用发：arymoveleft("字符串",移动的个数)例：dim strgstrg="123456789"strg=arymoveleft(strg,2)结果：strg="345678912"Public Function arymoveleft(str, count)If count = 0 Thenarymoveleft = strExit FunctionEnd IfDim a()strlen = Len(str)ReDim a(strlen)For i = 1 To Len(str 阅读全文