Replace 替换文本

🎯功能

在文本内容中找到指定内容并替换成其他内容

📜语法

结果 = Replace(原始文本, 被搜索文本, 新文本[, 起始位置[, 替换次数[, 对比方式]]])

📥参数

参数	数据类型	解释
原始文本	字符串	任意有效字符串表达式, 原文本内容
被搜索文本	字符串	要查找的文本内容
新文本	字符串	用于替换的文本内容
起始位置	整数型	可选, 从哪个位置开始查找, 默认为1
替换次数	整数型	可选, 要替换多少次, 省略默认-1, 表示替换所有找到的文本
对比方式	整数型	可选, 0为区分大小写, 1为忽略大小写, 省略默认0

📤返回

字符串, 返回替换指定内容后的新文本内容, 不同参数情况如下:

如果	Replace 返回
原始文本 为零长度	零长度字符串 ("")。
原始文本 为 Null	错误。
被搜索文本 为零长度	原始文本 的副本。
新文本 为零长度	原始文本 的副本，其中删除了所有由 被搜索文本 参数指定的内容。
起始位置 > Len(原始文本)	零长度字符串。
替换次数 为 0	原始文本 的副本。

💡示例

//下面的示例利用 Replace 函数返回字符串: 
Dim MyString

'二进制比较从字符串左端开始。返回 "XXYXXPXXY"。
MyString = Replace("XXpXXPXXp", "p", "Y") 

'文本比较从第三个字符开始。返回 "YXXYXXY"。
MyString = Replace("XXpXXPXXp", "p", "Y", 3, -1, 1) 

//高级例子
//说明: 将文本中的 #引号 替换成 半角双引号
//文本: 原始文本内容, 需将 " 换成 #引号 代替
//返回: 替换后包含双引号的文本内容
Function zmReplaceDQ(文本)
    zmReplaceDQ = Replace(文本, "#引号", Chr(34))
End Function

//调用例子
//正常带双引号的写法如下
Dim a, b, c
a = "紫猫学院" //这个内容是 紫猫学院
b = """紫猫学院""" //这个内容是 "紫猫学院"
c = Chr(34) & "紫猫学院" & Chr(34) //这个内容是 "紫猫学院"

//但是上述写法对新手来说容易弄错, 比如数错双引号数量, 弄错&连接
//所以使用本函数轻松解决双引号的问题
Dim d
d = Replace("#引号紫猫学院#引号")
TracePrint d //输出的d内容是 "紫猫学院"

📘备注

无