快速业务通道

VBS教程:方法-Replace 方法

作者 佚名 来源 ASP编程 浏览 发布时间 2013-07-09

Replace 方法

替换在正则表达式查找中找到的文本。

object.Replace(string1, string2)

参数

object

必选项。总是一个 RegExp 对象的名称。

string1

必选项。string1 是将要进行文本替换的字符串。

string2

必选项。 string2 是替换文本字符串。

说明

被替换的文本的实际模式是通过 RegExp 对象的 Pattern 属性设置的。

Replace 方法返回 string1 的副本,其中的 RegExp.Pattern 文本已经被替换为 string2。如果没有找到匹配的文本,将返回原来的 string1 的副本。

下面的例子说明了 Replace 方法的用法。

Function ReplaceTest(patrn, replStr)  Dim regEx, str1'' 建立变量。  str1 = "The quick brown fox jumped over the lazy dog."  Set regEx = New RegExp'' 建立正则表达式。  regEx.Pattern = patrn'' 设置模式。  regEx.IgnoreCase = True'' 设置是否区分大小写。  ReplaceTest = regEx.Replace(str1, replStr)'' 作替换。End FunctionMsgBox(ReplaceTest("fox", "cat"))''  ''fox'' 替换为 ''cat''

;另外,Replace 方法在模式中替换 subexpressions 。 下面对以前示例中函数的调用,替换了原字符串中的所有字对:

MsgBox(ReplaceText("(\S+)(\s+)(\S+)", "$3$2$1"))'' 交换词对.

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号