50分：正则表达式如何取出２个特定字符中间的值？

[gdwebinfoxx]

前提说明：源内容中还有其它html标签，但是下面的这些源内容标签都是唯一的。

1.源内容为：

<span class="crumbs-items">共 <span class="h">1796.84万</span> 件宝贝</span>

要求取出内容为：1796.84万

2.
源内容为：

    <dt>您是不是想找：</dt>
    <dd>
                    <a trace="relatedSearch" href="/search?q=%D1%A9%B7%C4%C1%AC%D2%C2%C8%B9&rs=up&rsclick=1">雪纺连衣裙</a>
                    <a trace="relatedSearch" href="/search?q=%C3%DE%C2%E9%C1%AC%D2%C2%C8%B9&rs=up&rsclick=2">棉麻连衣裙</a>
                    <a trace="relatedSearch" href="/search?q=%C1%AC%D2%C2%C8%B92014&rs=up&rsclick=3">连衣裙2014</a>
            </dd>
</dl>                                                        <!-- 产品系列combo -->
                                                <!--面包屑 -->

要求取出内容为：雪纺连衣裙|棉麻连衣裙|连衣裙2014
取出的每段字中间用“|”号分隔一下。

3. 源内容为：

KISSY.Suggest.callback({"result":[["连衣裙秋装长袖","2360810"],["连衣裙2014","21145128"],["连衣裙小清新","1053739"],["连衣裙秋装长袖时尚","343787"],["连衣裙韩国","2878680"],["连衣裙秋装长袖显瘦","1644429"],["连衣裙秋冬新款","753603"],["连衣裙2014秋 长袖","1966494"],["连衣裙女秋","8155186"],["连衣裙春秋款 女 长袖","232086"]],"tmall":"连衣裙"})

要求取出内容为：连衣裙秋装长袖|连衣裙2014|连衣裙小清新|连衣裙秋装长袖时尚|连衣裙韩国|连衣裙秋装长袖显瘦|连衣裙秋冬新款|连衣裙2014秋 长袖|连衣裙女秋|连衣裙春秋款 女 长袖|连衣裙
取出的每段字中间用“|”号分隔一下。

我是个新手，请用完整的正则表达式写完，谢谢。
有可能的话，请加一下qq:1228547620(蓝调)，不胜感谢！

50分送上。如３个问题中只能回答一个问题，我测试成功后，会给1/3分。

[豪情]

非要正则,jq不行？ $('.crumbs-items').find('span').html();

[gdwebinfoxx]

抱歉，只需要正则表达式呢。

[yzdjody]

。。代码上的内容。应该都是直接赋值，或直接输出吧 例如dim a=1796.84万

[gdwebinfoxx]

我要取的值是动态的，不是固定的。

[csdn_aspnet]

Asp正则表达式过滤标签html,style ,div,font,span,Object,iframe等 <% '过滤 所有 html ： Function ReplaceHtml(ConStr) Dim tmpReStr, regEx tmpReStr = CStr(ConStr) Set regEx = New RegExp regEx.Pattern = "<\/*[^<>]*>" regEx.IgnoreCase = True regEx.Global = True tmpReStr = regEx.Replace(tmpReStr, "") ReplaceHtml = tmpReStr End Function '过滤 style ： Function ReplaceStyleTag(ConStr) Dim tmpReStr, regEx tmpReStr = CStr(ConStr) Set regEx = New RegExp regEx.Pattern = "(<style)+[^<>]*>[^\0]*(<\/style>)+" regEx.IgnoreCase = True regEx.Global = True tmpReStr = regEx.Replace(tmpReStr, "") ReplaceStyleTag = tmpReStr Set regEx = Nothing End Function '过滤 层 div ： Function ReplaceDivTag(ConStr) Dim tmpReStr, regEx tmpReStr = CStr(ConStr) Set regEx = New RegExp regEx.Pattern = "<(\/){0,1}div[^<>]*>" regEx.IgnoreCase = True regEx.Global = True tmpReStr = regEx.Replace(tmpReStr, "") ReplaceDivTag = tmpReStr Set regEx = Nothing End Function '过滤 链接 a ： Function ReplaceATag(ConStr) Dim tmpReStr, regEx tmpReStr = CStr(ConStr) Set regEx = New RegExp regEx.Pattern = "<(\/){0,1}a[^<>]*>" regEx.IgnoreCase = True regEx.Global = True tmpReStr = regEx.Replace(tmpReStr, "") ReplaceATag = tmpReStr Set regEx = Nothing End Function '过滤 字体 font ： Function ReplaceFontTag(ConStr) Dim tmpReStr, regEx tmpReStr = CStr(ConStr) Set regEx = New RegExp regEx.Pattern = "<(\/){0,1}font[^<>]*>" regEx.IgnoreCase = True regEx.Global = True tmpReStr = regEx.Replace(tmpReStr, "") ReplaceFontTag = tmpReStr Set regEx = Nothing End Function '过滤 span ： Function ReplaceSpanTag(ConStr) Dim tmpReStr, regEx tmpReStr = CStr(ConStr) Set regEx = New RegExp regEx.Pattern = "<(\/){0,1}span[^<>]*>" regEx.IgnoreCase = True regEx.Global = True tmpReStr = regEx.Replace(tmpReStr, "") ReplaceSpanTag = tmpReStr Set regEx = Nothing End Function '过滤 Object ： Function ReplaceObjectTag(ConStr) Dim tmpReStr, regEx tmpReStr = CStr(ConStr) Set regEx = New RegExp regEx.Pattern = "<object.*?/object>" regEx.IgnoreCase = True regEx.Global = True tmpReStr = regEx.Replace(tmpReStr, "") ReplaceObjectTag = tmpReStr Set regEx = Nothing End Function '过滤 iframe： Function ReplaceIFrameTag(ConStr) Dim tmpReStr, regEx tmpReStr = CStr(ConStr) Set regEx = New RegExp regEx.Pattern = "(<iframe){1,}[^<>]*>[^\0]*(<\/iframe>){1,}" regEx.IgnoreCase = True regEx.Global = True tmpReStr = regEx.Replace(tmpReStr, "") ReplaceIFrameTag = tmpReStr Set regEx = Nothing End Function '过滤 script： Function ReplaceScriptTag(ConStr) Dim tmpReStr, regEx tmpReStr = CStr(ConStr) Set regEx = New RegExp regEx.Pattern = "(<script){1,}[^<>]*>[^\0]*(<\/script>){1,}" regEx.IgnoreCase = True regEx.Global = True tmpReStr = regEx.Replace(tmpReStr, "") ReplaceScriptTag = tmpReStr Set regEx = Nothing End Function '过滤 Class ： Function ReplaceClassTag(ConStr) Dim tmpReStr, regEx tmpReStr = CStr(ConStr) Set regEx = New RegExp regEx.Pattern = "(class=){1,}(""|\'){0,1}\S+(""|\'|>|\s){0,1}" regEx.IgnoreCase = True regEx.Global = True tmpReStr = regEx.Replace(tmpReStr, "") ReplaceClassTag = tmpReStr Set regEx = Nothing End Function %>

[qqm05]

(?<=<span class="crumbs-items">共 <span class="h">)[^<]+