Question

我需要验证一个字符串，该字符串可能包含字母数字和特殊字符，因为我必须传递只有Alpha字符的字符串（不允许使用数字或任何其他特殊字符）

在当前的方法中，我使用ASCII数字来评估每个字符是否为alpha。有没有其他有效的方法来发现字符串中是否存在特殊字符或数字？就像我们不能使用喜欢或者其他东西来检查一次而不是逐字逐句？

For y = 2 To Len(sString)
    If Not ((Asc(Mid$((sString,y,1))>64 AND Asc(Mid$((sString,y,1))<91) OR _
    (Asc(Mid$((sString,y,1))>96 AND Asc(Mid$((sString,y,1))<123)) Then
        //Display an error msg
        Exit For
    End If
Next y

Answer 1

您可以在VB6中使用正则表达式。您必须在项目中添加对“Microsoft VBScript Regular Expressions 5.5”库的引用。然后，您可以使用以下内容：

Dim rex As RegExp
Set rex = New RegExp
rex.Pattern = "[^a-zA-Z]"
If rex.Test(s) Then
    ' Display error message
End If

当我最初回答这个问题时，它被标记为VB.NET;为了将来参考，我原来基于.Net的答案保留在

之下

正如您所想，这可以通过正则表达式完成（不要忘记Imports System.Text.RegularExpressions：

If Regex.IsMatch(s, "[^a-zA-Z]") Then
    ' Display error msg
End If

另外，原始代码读起来像VB6代码，而不是VB.NET。这是编写原始非正则表达式代码的一种更易读的方法：

For Each ch As Char In someString
    If Not (ch >= "a"c AndAlso ch <= "z"c OrElse ch >= "A"c AndAlso ch <= "Z"c) Then
        ' Display error msg
        Exit For
    End If
Next

Answer 2

VBA有一个原生的Like运算符：它的语法是非标准的，例如它的多字符通配符为*，NOT运算符为!：

If sString Like "*[!A-Za-z]*" Then
  ' Display an error msg
End If

Answer 3

您必须添加对Microsoft VBScript Regular Expressions 5.5

的引用

检查非字母字符的代码：

'Prepare a regular expression object
Dim myRegExp As RegExp
Dim myMatches As MatchCollection
Dim myMatch As Match
Dim matchesFound As Boolean

Set myRegExp = New RegExp
myRegExp.IgnoreCase = True
myRegExp.Global = True
myRegExp.Pattern = "[^A-Za-z]+"
Set myMatches = myRegExp.Execute("abc123def#$%")
matchesFound = myMatches.Count > 0

在Microsoft支持中查看How To Use Regular Expressions in Microsoft Visual Basic 6.0以获取更多信息。

在vb6中使用RegEx

3 个答案: