用数组移动字符串

新客网 XKER.COM 2004-11-23 来源： 收藏本文

这是2个对字符串处理的互逆函数
功能:移动字符串
用发：arymoveleft("字符串",移动的个数)
例：
dim strg
strg="123456789"
strg=arymoveleft(strg,2)

结果：strg="345678912"



Public Function arymoveleft(str, count)
If count = 0 Then
arymoveleft = str
Exit Function
End If
Dim a()
strlen = Len(str)
ReDim a(strlen)
For i = 1 To Len(str)
a(i) = Mid(str, i, 1)
Next
temp = a(1)
For i = 2 To Len(str)
a(i - 1) = a(i)
Next
a(strlen) = temp
For i = 1 To Len(str)
result = result & a(i)
Next
arymoveleft = arymoveleft(result, count - 1)
End Function
Public Function arymoveright(str, count)
If count = 0 Then
arymoveright = str
Exit Function
End If
Dim a()
strlen = Len(str)
ReDim a(strlen)
For i = 1 To Len(str)
a(i) = Mid(str, i, 1)
Next
temp = a(strlen)
For i = Len(str) To 2 Step -1
a(i) = a(i - 1)
Next
a(1) = temp
For i = 1 To Len(str)
result = result & a(i)
Next
arymoveright = arymoveright(result, count - 1)
End Function

• ·身份证函数 查看身份证地区信息
• ·VS2008 第一次安装心得及使用
• ·ASP.NET 2.0跨网页提交的三法
• ·编程实例 WebGroupBox(Aspx控件)
• ·asp.net mvc脚手架代码生成工具
• ·用独立的DLL来存储图片(资源文件)
• ·ASP.NET中多国语言的实现方法
• ·实例 .net生成静态页方法总结
• ·ASP.NET控件学习笔记之ViewState
• ·用递归在TreeView价节点
• ·经验总结 关于.NET 中的Event机制
• ·.NET应用程序开发标准化(z)
• ·在DataTable中查询应该注意的问题
• ·LINQ 中调用存储过程自动绑定列名
• ·如何用.NET技术在线生成网站LOGO
• ·对于访问IIS元数据库失败的解决