'*************************************************************************
'**模 块 名：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