make sure string only contains alphanumeric & DOT

[Robie]

Hi

Is there an easy way to check if a string contains only alphanumeric and 'dot' characters? For example, a valid string might contain "12.1.6z", "1.2.3", "3.3.9cc", etc. No other characters are allowed.

Thanks.
Robie

[HansV]

Do you want to allow letters with accents such as é or ü ?

[Robie]

Do you want to allow letters with accents such as é or ü ?

Thanks for quick response Hans.
The answer is no - standard alphabet is fine.

[HansV]

You can use this function:

Code: Select all

Function TestString(s As String) As Boolean
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "^[A-Za-z0-9.]+$"
    TestString = re.Test(s)
End Function

Example of use:

Code: Select all

    Dim MyString As String
    MyString = "Ro.b.ie.37"
    If TestString(MyString) Then
        ' MyString meets the condition
    Else
        ' MyString does not meet the condition
    End If

[Robie]

You can use this function:

Code: Select all

Function TestString(s As String) As Boolean
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "^[A-Za-z0-9.]+$"
    TestString = re.Test(s)
End Function

Example of use:

Code: Select all

    Dim MyString As String
    MyString = "Ro.b.ie.37"
    If TestString(MyString) Then
        ' MyString meets the condition
    Else
        ' MyString does not meet the condition
    End If

Thank you so much Hans, will try it out soon.