正则表达式，只匹配一次下化线！

ttx9n

<SCRIPT LANGUAGE="VBScript"> <!-- Dim reg,str,pattern Set reg = new RegExp str = "asdf00_asdfasfd" pattern = "^[a-z][^\_]*\_[^\_]*$" reg.IgnoreCase = True reg.Global = True reg.Pattern = pattern MsgBox(reg.Test(str)) //--> </SCRIPT>
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

但是这样必须包含"_"否则就会输出falsh
要求的效果为 出现两个 “_” 才false,并且没有“_”的情况下也是true
<SCRIPT LANGUAGE="VBScript"> <!-- Dim re,str,temps Set re=new RegExp re.IgnoreCase =true re.Global=True str="a_" re.Pattern="^[a-z][^\_]*\_[^\_]*$":str=re.Test(str) temps=str MsgBox(temps) set re=Nothing //--> </SCRIPT> <SCRIPT LANGUAGE="VBScript"> <!-- Dim re,str,temps Set re=new RegExp re.IgnoreCase =true re.Global=True str="ad" re.Pattern="^[a-z][^\_]*\_[^\_]*$":str=re.Test(str) temps=str MsgBox(temps) set re=Nothing //--> </SCRIPT>
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

xf9hlg1

那三门，你们谁寂寞才快乐撒

lsc54

呵呵呵呵呵呵

ppwxcg

问问问企鹅哇哇哇哇哇

6ox8dn

的vgdsvsdvdsvdsvds

额呵呵

哈哈哈哈哈哈

q215357618

人都不在了啊 啊

ajcdn017A

看看怎么样再说

ki9ku6

我找了挺久终于找到了

zzhxxx

管灌灌灌灌灌灌灌灌灌灌