1. WIKI教程
2. 学习VBA
3. Replace

Replace

Replace函数用指定的次数替换字符串的指定部分。

语法 (Syntax)

Replace(string,find,replacewith[,start[,count[,compare]]]) 

参数描述 (Parameter Description)

• String - 必需参数。 要搜索替换的输入字符串。

• Find - 必需参数。 要替换的字符串部分。

• Replacewith - 必需参数。 替换字符串，将替换为find参数。

• Start - 可选参数。 指定必须搜索和替换字符串的起始位置。 默认值为1。

• Count - 可选参数。 指定必须执行替换的次数。

• Compare - 可选参数。 指定要使用的比较方法。 默认值为0。

  • 0 = vbBinaryCompare - 执行二进制比较

  • 1 = vbTextCompare - 执行文本比较

例子 (Example)

Private Sub Constant_demo_Click()
   Dim var as Variant
   var = "This is VBScript Programming"
   'VBScript to be replaced by MS VBScript
   msgbox("Line 1: " & Replace(var,"VBScript","MS VBScript"))
   'VB to be replaced by 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