Function RegExpTest(patrn,str1,strng) Dim regEx',str1 ' 建立变量 'str1 = "The quick brown fox jumped over the lazy dog."Set regEx = New RegExp ' 建立正则表达式 regEx.Pattern = patrn ' 设置模式 regEx.IgnoreCase = True ' 设置是否区分大小写 'RegExpTest = regEx.test(strng)…
function HtmlStrReplace(Str) if Str="" or isnull(Str) then HtmlStrReplace="" exit function else HtmlStrReplace=replace(Str,"<br>","<br/>") end ifend function…
公司项目测试,要在vi编辑其中进行多路径修改,这时候用到了字符串替换的知识,在这里我自己整理了一下. 一.基本内容替换,无特殊符号 :s/old/new/ 替换当前行第一个 old 为 new 这时new后面的/不写的话不影响编辑 :s/old/new/g 替换当前行所有 old 为 new :n,$ s/old/new/ 替换第 n 行开始到最后一行中每一行的第一个 old 为 new :n,$ s/vivian/sky/g 替换第 n 行开始到最后一行中所有 old 为 new…