如果文本字符串包含某些单词,请将这些单词包装在span标记中

时间:2015-04-07 03:44:32

标签: html vbscript asp-classic

在这里寻求一些帮助。我有一个文本字符串,如:

> ...And The World Laughs With You (feat Thom Yorke)

使用vbscript,如果文本字符串中包含"(feat ",我想将整个括号内的文本包装在span标记中。
所以,上面的例子看起来像:

> ...And The World Laughs With You <span>(feat Thom Yorke)</span>

希望这是有道理的,并提前感谢您的帮助!

干杯,
德鲁

2 个答案:

答案 0 :(得分:2)

尝试这种逻辑。

     dim str 
   str = "And The World Laughs With You (feat Thom Yorke)"

   If  INSTR(str,"(feat ") > -1 Then
        str = REPLACE(str,"(feat ","<span>(feat ") 
        str = REPLACE(str,")",")</span>") 
   End If

   Response.Write("Result:- "  + str)  

答案 1 :(得分:0)

参见示例。

Set Arg = WScript.Arguments
set WshShell = createObject("Wscript.Shell")
Set Inp = WScript.Stdin
Set Outp = Wscript.Stdout

Sub ReplaceCmd
    'Remove ^ from quoting command line. Quote, ampersand and brackets
    Pttn = Replace(Arg(2), "^(", "(")
    Pttn = Replace(Pttn, "^)", ")")
    Pttn = Replace(Pttn, "^&", "&")
    Pttn = Replace(Pttn, "^""", """")
    Set regEx1 = New RegExp
    If Instr(LCase(Arg(1)), "i") > 0 then
        regEx1.IgnoreCase = True
    Else
        regEx1.IgnoreCase = False
    End If 
    regEx1.Global = False
    regEx1.Pattern = Pttn 
    Do Until Inp.AtEndOfStream
        Line=Inp.readline
        Line = RegEx1.Replace(Line, Arg(3)) 
        outp.writeline Line
    Loop
End Sub

使用cscript scriptname <infile >outfile

替换

filter replace {i|n} expression replace
filter repl {i|n} expression replace

使用正则表达式查找和替换文本。

还用于从文件中提取子字符串。

表达式中的&符号和括号必须使用插入符进行转义。不要逃避插入。使用十六进制代码\ x22作为引号。

SearchOptions

我 - 忽略案例 n - 无 表达

正则表达式参考

替换

要替换的文字。使用$ 1,$ 2,$ ...,$ n在替换字符串中指定子匹配

实施例

filter replace i "=" "No equal sign" < "%systemroot%\win.ini"

这将在方括号内搜索文本,并用cat替换该行,后跟括号内的文本

Filter replace i "^\[^(.*^)\]" "cat$1" < %windir%\win.ini

这将搜索从第11个字符到行尾的任何文本和打印。

Filter replace i "^.{10}^(.*^)$" "$1" < %windir%\win.ini

这将搜索CSV文件并打印第二个和第四个字段

Filter replace i "^.+,^(.+^),.+,^(.+^)$" "$1,$2" < csv.txt