VBA - Replace 函数
替换函数将字符串的指定部分替换为特定字符串,指定次数。
语法
Replace(string,find,replacewith[,start[,count[,compare]]])
参数说明
String − 必需的参数。 要搜索替换的输入字符串。
Find − 必需的参数。 将被替换的字符串部分。
Replacewith − 必需的参数。 替换字符串,将根据查找参数进行替换。
Start − 可选参数。 指定必须搜索和替换字符串的起始位置。 默认值为 1。
Count − 可选参数。 指定必须执行替换的次数。
Compare − 可选参数。 指定要使用的比较方法。 默认值为 0。
0 = vbBinaryCompare - 执行二进制比较
1 = vbTextCompare - 执行文本比较
示例
Private Sub Constant_demo_Click() Dim var as Variant var = "This is VBScript Programming" 'VBScript 将被 MS VBScript 取代 msgbox("Line 1: " & Replace(var,"VBScript","MS VBScript")) 'VB 被 vb 取代 msgbox("Line 2: " & Replace(var,"VB","vb")) ''is' replaced by ## msgbox("Line 3: " & Replace(var,"is","##")) ''is' replaced by ## ignores the characters before the first occurence msgbox("Line 4: " & Replace(var,"is","##",5)) ''s' is replaced by ## for the next 2 occurences. msgbox("Line 5: " & Replace(var,"s","##",1,2)) ''r' is replaced by ## for all occurences textual comparison. msgbox("Line 6: " & Replace(var,"r","##",1,-1,1)) ''t' is replaced by ## for all occurences Binary comparison msgbox("Line 7: " & Replace(var,"t","##",1,-1,0)) End Sub
当您执行上述函数时,它会产生以下输出。
Line 1: This is MS VBScript Programming Line 2: This is vbScript Programming Line 3: Th## ## VBScript Programming Line 4: ## VBScript Programming Line 5: Thi## i## VBScript Programming Line 6: This is VBSc##ipt P##og##amming Line 7: This is VBScrip## Programming