Revision: 52041
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at October 11, 2011 23:27 by hzarka
Initial Code
Function RemoveCharacters(InString As String) As String Dim intLoopCounter As Integer Dim intStringLength As Integer Dim intASCIIVal As Integer intStringLength = Len(InString) InString = LCase(InString) For intLoopCounter = 1 To intStringLength intASCIIVal = Asc(Mid(InString, intLoopCounter, 1)) If (intASCIIVal >= 97 And intASCIIVal <= 122) Or (intASCIIVal >= 48 And intASCIIVal <= 57) Then RemoveCharacters = RemoveCharacters + Mid(InString, intLoopCounter, 1) End If Next intLoopCounter End Function
Initial URL
Initial Description
Initial Title
RemoveCharacters
Initial Tags
Initial Language
Visual Basic