.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
用数组移动字符串

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

这是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


相关文章

相关软件