04.标准VBS命令02.函数02.字符串函数
,

Replace 替换文本

文章目录
  1. 1. 功能
  2. 2. 语法
  3. 3. 参数
  4. 4. 返回值
  5. 5. 示例
  6. 6. 备注

功能

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

语法

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

参数

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

返回值

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

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

示例

1
2
3
4
5
6
7
8
//下面的示例利用 Replace 函数返回字符串: 
Dim MyString

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

'文本比较从第三个字符开始。返回 "YXXYXXY"。
MyString = Replace("XXpXXPXXp", "p", "Y", 3, -1, 1)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//高级例子
//说明: 将文本中的 #引号 替换成 半角双引号
//文本: 原始文本内容, 需将 " 换成 #引号 代替
//返回: 替换后包含双引号的文本内容
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内容是 "紫猫学院"

备注

无