上一题下一题
跳转到
 
 
  世界如此多姿,发展如此迅速,窥一斑未必还能知全豹。但正如万花筒一样,每一个管窥都色彩斑斓。  
 
 
  知识通道 | 学习首页 | 教师首页 | PK首页 | 知识创造首页 | 企业首页 | 登录
 
本文对应知识领域
创建任意长度重复字符串的简洁方法
作者:未知 申领版权
2010年11月14日 共有 1216 次访问 【添加到收藏夹】 【我要附加题目
受欢迎度:

    创建任意长度重复字符串的简洁方法
    
    
    String$函数只能重复复制单字符,当需要重复复制2个或多个字符时,就需要一个循环。看起来是否很麻烦?然而,使用以下的函数就能解决这个问题。基本思路是:建立一个空格字符串,其长度为要重复复制的数目,然后替换每一个空格为要复制的字符串:
    
    
    
    Function ReplicateString(Source As String, Times As Long) As String
    
    ReplicateString = Replace$(Space$(Times), " ", Source)
    
    End Function
    
    
    但是请注意:根据字符串的长度以及重复的数目,这个方法也许比传统的循环方法要慢些。
    
    
    另辟蹊径处理字符串中的字符:字节数组法
    
    
    当要处理字符串中的每一个字符时,可以将字符串赋值到一个byte数组中进行操作。要记住:每一个Unicode字符对应双字节。这种方法通常要快许多,因为节省了大量的Mid$函数操作以及大量的临时字符串空间。下面的代码是统计字符串中空格数目的最快方法
    
    
    
    
    Dim b() as Byte, count As Integer
    
    b() = source$
    
    For i = 0 to UBound(b) Step LenB("A")
    
    If b(i) = 32 Then count = count 1
    
    Next
    
    
    请注意上面代码中LenB()函数的特殊用法:在VB4(32位)、VB5和VB6中它返回数值2, 在VB4(16位)中返回数值1。因此,我们就可以使用同一代码段,而无需#If编译指令。
    
    快速清除数组部分内容
    
    
    清除动态数组的最快方法是使用ReDim,清除静态数组则是使用删除。但是如果只想清除数组的一部分内容,怎么办呢?看上去似乎只能使用For-Next循环了。
    
    
    如果处理的是数字数组,有一个较快的方法。它基于ZeroMemory API函数,正如函数名所示,它能将一块内存区域填充为0。看看怎么应用这个函数来清除一个Long类型数组的一部分内容:
    
    
    
    
    Private Declare Sub ZeroMemory Lib "kernel32" Alias "RtlZeroMemory" (dest As _
    
    Any, ByVal Bytes As Long)
    
    
    ’定义数组,填充数据
    
    Dim a(1000) As Long
    
    For i = 1 To UBound(a)
    
    a(i) = i
    
    Next
    
    ’从a(200)开始清除100个元素内容
    
    ZeroMemory a(200), 100 * Len(a(1))
    
    
    请注意上述代码中清除长度的表示方法,使用Len()函数保证了当数组类型改变时代码仍然有效。
    
    

    

 

相关新闻

您可能对这些感兴趣  

用VB做定时断线程序
VisualBasic中的界面设计原则和编程技巧
VB6.0与Windows API 间的呼叫技巧
制作可以自动隐藏的弹出式菜单
ListBox中的字符串超长显示的解决方法
VB中的Unicode 和 Ansi 格式
优化程序显示速度
Visual Basic 产生渐层的 Form 背景
用VB实现客户——服务器(TCP/IP)
用VB制作注册软件的方法

题目筛选器
日期:
类型:
状态:
得分: <=
分类:
作者:
职业:
关键字:
搜索

 
 
 
  焦点事件
 
  知识体系
 
  职业列表
 
 
  最热文章
 
 
  最多引用文章
 
 
  最新文章
 
 
 
 
网站介绍 | 广告服务 | 招聘信息 | 保护隐私权 | 免责条款 | 法律顾问 | 意见反馈
版权所有 不得转载
沪ICP备 10203777 号 联系电话:021-54428255
  帮助提示    
《我的太学》是一种全新的应用,您在操作中遇到疑问或者问题,请拨打电话13564659895,15921448526。
《我的太学》