Advanced Search

Return to Snippet

Revision: 52041
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