VBScript正则表达式
需要帮助构建一个VBScript正则表达式，该正则表达式检查有效的计算机名称，并且只返回无效字符。字符串只能包含数字、大小写字母和(-)符号。它不能以(-)开头或结尾，也不能仅仅是数字。
有效(不返回匹配)：
电脑 Computer8 8计算机 Com8puter 科普特 电脑-123
无效(返回对无效字符的匹配)：
123 -computer 电脑- com*计算机 PC&123
回答 3
Stack Overflow用户
发布于 2012-08-13 20:05:44
最后，我切换了有效的和无效的返回。我还使用了两个不同的RegEx字符串。第一个问题是：
^[0-9a-zA-Z]{1,}[-]*[0-9a-zA-Z]{1,}$这不允许(-)在开头或结尾，并且需要所有的数字、字母或(-)。它还需要至少两个字符的字符串。
二是：
"[a-zA-Z]"这确保至少包括一封信。
Stack Overflow用户
发布于 2012-08-11 02:55:27
根据这一点：http://msdn.microsoft.com/en-us/library/ms974570.aspx VBScript有它自己的正则语法味道。注意，NetBIOS计算机名的长度限制为15。
那么应该是“^w{0，14}$”。
RegEx满足除“全数字”之外的所有要求。这可以通过运行第二个regex "^\d+$“来实现。
代码：
Dim regexValid, regexNumber
Set regexValid = New RegExp
Set regexNumber = New RegExp
regexValid.Global = True
regexValid.IgnoreCase = True
regexNumber.Global = True
regexNumber.IgnoreCase = True
regexValid.Pattern = "^\w[\w\-]{0,14}$"
regexNumber.Pattern = "^\d+$"
Dim inputString
inputString = InputBox("Computer name?")
If regexValid.Test( inputString ) And Not regexNumber.Test( inputString ) Then
' It's a valid computer name string
Else
' It's invalid
End If嗯，这是我今年写的第一个VBScript。
Stack Overflow用户
发布于 2012-08-11 02:43:09
像这样的/^([0-9]|[a-zA-Z]){1,}[a-zA-Z0-9-]+([0-9]|[a-zA-Z]){1,}$/
https://stackoverflow.com/questions/11910603
复制相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号