'*************************************************************************

'**模 块 名:Replace函数精解示例
'**说    明:蓝凤凰设计商城 浴火凤凰-郭卫 | 蓝凤凰-魔灵 | 郭卫-icecept
'**创 建 人:浴火凤凰-郭卫
'**日    期:2015年10月11日  12:00:13
'**修 改 人:浴火凤凰-郭卫
'**日    期:
'**描    述:QQ:493405998 | 微信\旺旺:icecept
'**版    本:V1.0.0 | http://blog.sina.com.cn/icecept
'*************************************************************************
 
Option Explicit
 
 
'Replace: 将字符串中的某些特定字符串替换为其他字符串
'格式:
'P = Replace$(原字符串, 被替换的字符串, 用作替换的字符串,[起始位置],[替换数量],[比较方式])
 
'特别注意:此函数的起始位置是几,输出时就从起始位置的位置开始到结尾输出,起始位置前的字符被截断。
 
'所以要想修改起始字符大于一且要保留起始位置前的字符,必须用left把起始位置之前的字符再获取一次。
 
'Left(原字符串,起始位置-1) & Replace$(原字符串, 被替换的字符串, 用作替换的字符串,[起始位置],[替换数量],[比较方式])
 
Private Sub Command1_Click()
    Dim startc As Integer, rcount  As Integer
    '********************** 第一种用法 *********************** 无条件全部替换
    Debug.Print Replace$(Text1.Text, "A", "x")
    '********************** 第二种用法 *********************** 从第一位开始只替换3次
    Debug.Print Replace$(Text1.Text, "A", "x", , 3)
    '********************** 第三种用法 *********************** 从前面算起第5位开始全部替换
    Debug.Print Left$(Text1.Text, 4) & Replace$(Text1.Text, "A", "x", 5)
    '********************** 第四种用法 *********************** 从前面算起第6位开始替换5次
    Debug.Print Left$(Text1.Text, 4) & Replace$(Text1.Text, "A", "x", 6, 5)
    '********************** 第五种用法 *********************** 不分大小写的替换
    Debug.Print Replace$(Text1.Text, "a", "x", , , vbTextCompare)
    '********************** 第六种用法 *********************** 分大小写的替换
    Debug.Print Replace$(Text1.Text, "a", "x", , , vbBinaryCompare)
End Sub
 
'替换或删除相同字符
Private Sub Command2_Click()
    Dim a As String, b As String, c As String
    Dim i As Integer
    a = "0123456789"
    b = "346"
    For i = 1 To Len(b)
        '分别取子字符串中的一个字符删除原字符串中的字符
        a = Replace$(a, Mid$(b, i, 1), vbNullString)
    Next
    Debug.Print a
    '输出结果为:  0125789
End Sub
 
'替换或删除指定字符
Private Sub Command3_Click()
    Dim x As String
    x = "VB is very good"
    Debug.Print Replace$(x, "good", "nice")
    '输出结果为:  "VB is very nice"
End Sub
 
Private Sub Command4_Click()
    Dim strA As String
    Dim strB() As String
    Dim strC As String
    Dim strD As String
    strA = "aa               bb                cc"
    strB = Split(strA, Space$(1))
    strC = Join(strB, vbNullString)
    '----------------------------------------
    Do While InStr(strA, "  ") <> 0
        strA = Replace$(strA, "  ", " ")
    Loop
    Debug.Print strA, strC      '此行输出 aa bb cc      aabbcc
    Debug.Print Replace$(strA, Space$(1), Empty)   '此行输出aabbcc
End Sub

Replace 删除、替换函数精解示例的更多相关文章

  1. Filter 数组过滤函数精解示例

    '************************************************************************* '**模 块 名:Filter 数组过滤函数精解示 ...

  2. Join函数 及Split函数精解示例

    '************************************************************************* '**模 块 名:Join函数 及Split函数精 ...

  3. php中几个字符串替换函数详解

    在php中字符替换函数有几个如有:str_replace.substr_replace.preg_replace.preg_split.str_split等函数,下面我来给大家总结介绍介绍. 一.st ...

  4. C# Replace字符替换函数

    它可以将字串内的字符替换为别的字符,可以嵌套使用,如下: 需要注意的是,它可以把字符替换为空,但不可以替换空字符,当不确定字符串是否为空时,可以进行以下判断,再替换: 示例的完整代码: string ...

  5. C语言可变参数函数详解示例

    先看代码 printf(“hello,world!”);其参数个数为1个. printf(“a=%d,b=%s,c=%c”,a,b,c);其参数个数为4个. 如何编写可变参数函数呢?我们首先来看看pr ...

  6. DOS 命令For精解示例

    最基本形态: 在cmd 窗口中:for %I in (command1) do command2 在批处理文件中:for %%I in (command1) do command2 在批处理中,FOR ...

  7. Mysql高手系列 - 第10篇:常用的几十个函数详解,收藏慢慢看

    这是Mysql系列第10篇. 环境:mysql5.7.25,cmd命令中进行演示. MySQL 数值型函数 函数名称 作 用 abs 求绝对值 sqrt 求二次方根 mod 求余数 ceil 和 ce ...

  8. JavaScript字符串插入、删除、替换函数

    JavaScript字符串插入.删除.替换函数 说明: 以下函数中前两个函数取出查找字符串的前一部分和后一部分,以用于其他函数.注意,调用一次 replaceString(mainStr,search ...

  9. Python的替换函数——replace(),strip(),和re.sub()

    在Python中常用的三个"替换"函数是strip(),replace()和re.sub(),下面来讲讲这三个函数的用法. 一.replace() 基本用法:对象.replace( ...

随机推荐

  1. Web网站的几个并发量级

    评价一个网站的“大小”,处于视角的不同,有很多种衡量的方法,类似文章数,页面数之类的数据非常明显,也没有什么可以争议的.但对于并发来说,争议非常之多,这里就从一个技术的角度开始,谈谈几个Web网站的数 ...

  2. TADOQuery学习总结

    上一篇讲解了一些TADOQuery的简单的用法,但是还有很多方法没有讲到,这里就直接拿来主义,转载一篇<TADOQuery学习总结>为我所用. 1.Create三种参数的区别 TADOQu ...

  3. SpringMVC中如何在网站启动、结束时执行代码(详细,确保可用)

        在一个网站启动.结束时,我们经常有些操作是需要执行的. 熟悉Asp.net的朋友,使用Global.asax很容易就搞定,在其中有Application_Start和Application_E ...

  4. Django底层剖析之一次请求到响应的整个流程

    As we all know,所有的Web应用,其本质上其实就是一个socket服务端,而用户的浏览器就是一个socket客户端. #!/usr/bin/env python #coding:utf- ...

  5. C++ 系列:C++ 基础 002

    Copyright © 1900-2016, NORYES, All Rights Reserved. http://www.cnblogs.com/noryes/ 欢迎转载,请保留此版权声明. -- ...

  6. Win10 UI入门 圆形控件

    动态模版绑定 http://blog.csdn.net/XXChen2/article/details/4552554

  7. 进击的Python【第三章】:Python基础(三)

    Python基础(三) 本章内容 集合的概念与操作 文件的操作 函数的特点与用法 参数与局部变量 return返回值的概念 递归的基本含义 函数式编程介绍 高阶函数的概念 一.集合的概念与操作 集合( ...

  8. linux內核輸出soft lockup

    創建的內核線程長期佔用cpu,一直內核認為線程soft lockup,如無法獲取自旋鎖等:因此線程可適度調用schdule(),以進行進程的調度:因為kwatchdog的執行級別低,一直得不到執行 [ ...

  9. C# DataGridView绑定数据源

    第一种: DataSet ds=new DataSet (); ]; 第二种: DataTable dt=new DataTable(); this.dataGridView1.DataSource= ...

  10. React-webpack开发需要的那些坑

    nvariant Violation: _registerComponent(...): Target container is not a DOM element. 就是一个找不到DOM节点的问题, ...