C# Signature:

[DllImport("user32.dll")]
static extern bool IsCharAlphaNumeric(char ch);

User-Defined Types:

None.

Notes:

None.

Tips & Tricks:

Please add some!

Sample Code:

Please add some!

  Option Explicit

'

Public Declare Function IsCharAlphaNumericW Lib "user32" (ByVal cChar As Long) As Long

Public Function StripSpecialCharacters(ByVal strChainToStrip As String) As String

' Purpose: stript the string from non-letter characters and replace by spaces

Dim strOrigString As String

Dim strChar As String

Dim strNewString As String

Dim lngLen As Long

Dim lngCtr As Long

Dim lngCtr2 As Long

lngLen = Len(strChainToStrip)

'create buffer

strOrigString = Space$(lngLen)

strOrigString = strChainToStrip

strNewString = strOrigString

lngCtr2 = 1

'browse string

For lngCtr = 1 To lngLen

    strChar = Mid(strOrigString, lngCtr, 1)

    'Check if char is alphanumeric with userlib function
    If IsCharAlphaNumericW(AscW(strChar)) = 1 Then
    Mid(strNewString, lngCtr2, 1) = strChar
    lngCtr2 = lngCtr2 + 1
    Else
    'if not replace by a space
    Mid(strNewString, lngCtr2, 1) = " "
    lngCtr2 = lngCtr2 + 1

    End If

Next

If lngCtr2 > 1 Then

    strNewString = Left(strNewString, lngCtr2 - 1)

Else

    strNewString = ""

End If

StripSpecialCharacters = strNewString

End Function

Alternative Managed API:

char.IsNumber('1');