Is dit een geldige BIC of postcode?

Oorspronkelijk geplaatst op

Een voorbeeld van de “Like” operator. Met deze operator kun je twee tekenreeksen met elkaar vergelijken op basis van patronen die je invoert.

? staat voor één willekeurig teken
* staat voor nul of meer tekens
# staat voor één willekeurig getal (0-9)
[tekenlijst] staat voor één willekeurig teken dat in de tekenlijst voorkomt
[!tekenlijst] staat voor één willekeurig teken dat NIET in de tekenlijst voorkomt
Let op het uitroepteken
Spatie staat voor een spatie.

Voorbeeld postcode check:

Sub Is_Dit_Een_Postcode()
strTemp = "1012 NX"
If strTemp Like "####[A-Z][A-Z]" Or _
    strTemp Like "#### [A-Z][A-Z]" Or _
    strTemp Like "####  [A-Z][A-Z]" Then
    Debug.Print "Dit is een geldige postcode"
Else
    Debug.Print "Dit is GEEN geldige postcode"
End If
End Sub
Sub Is_Dit_Een_BIC_code()
strBIC = "UNCRIT2B912"
If strBIC Like _
    "[A-Z][A-Z][A-Z][A-Z][A-Z][A-Z][A-Z0-9][A-Z0-9]" Or _
    strBIC Like _
    "[A-Z][A-Z][A-Z][A-Z][A-Z][A-Z][A-Z0-9][A-Z0-9][A-Z0-9][A-Z0-9][A-Z0-9]" Then
    Debug.Print "Dit is een geldige BIC code"
Else
    Debug.Print "Dit is GEEN geldige BIC code"
End If
End Sub

Leave a Reply

Your email address will not be published. Required fields are marked *