用数组移动字符串
2004-11-18 14:19
337 查看
这是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
功能:移动字符串
用发: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
相关文章推荐
- C#写的email 初级系统源代码
- Oracle得到M到N条记录的写法:
- 关于SQLSERVER数据操作的常用类库
- CU Play Shell 十三问之:echo 知多少
- 动态切换窗体风格
- 十大暴利商品曝光
- 我就要和相处一年的女友结婚了...现在唯一困挠我的是,我未来的小姨子
- JavaScript实现下拉菜单对文本框赋值的小功能
- 关于鼠标和键盘的全局获取的一个类
- 这些坏习惯你有吗?
- 关于Oracle数据库中行迁移/行链接的问题
- Asp.NET中常用的一些优化性能的方法
- 中海的BLOG
- 网络经典命令
- 架构php
- IIS 6 出于安全考虑, 默认最大请求200K do what?
- 第一节 IContextMenu
- (转)Oracle RMAN快速入门指南
- 中国香港放水,中国也无缘世界杯
- 开发调试基于WinCE下的ActiveX控件的基本步骤