ClassString

Public Function ChangeString(OriginalString As String, _
StringToLookFor As String, _
Optional StringToTurnInto As String = "") As String
Dim LengthOfOriginalString As Integer
Dim LengthOfStringToLookFor As Integer
Dim numCount As Integer
Let LengthOfOriginalString = Len(OriginalString)
Let LengthOfStringToLookFor = Len(StringToLookFor)
For numCount = 1 To LengthOfOriginalString
If Mid(OriginalString, numCount, LengthOfStringToLookFor) = _
StringToLookFor Then
Let OriginalString = Mid(OriginalString, 1, _
numCount - 1) & StringToTurnInto & _
Mid(OriginalString, numCount + _
LengthOfStringToLookFor)
Let numCount = numCount - 1
End If
Next numCount
Let ChangeString = OriginalString
End Function

Public Function RemoveString(OriginalString As String, _
StringToLookFor As String) As String
Let RemoveString = ChangeString(OriginalString, StringToLookFor)
End Function

Public Function StringCounter(OriginalString As String, _
StringToLookFor As String) As Integer
Dim LengthOfOriginalString As Integer
Dim LengthOfStringToLookFor As Integer
Dim numCount As Integer
Let StringCounter = 0
Let LengthOfOriginalString = Len(OriginalString)
Let LengthOfStringToLookFor = Len(StringToLookFor)
For numCount = 1 To LengthOfOriginalString
If Mid(OriginalString, numCount, _
LengthOfStringToLookFor) = StringToLookFor Then
Let StringCounter = StringCounter + 1
End If
Next numCount
End Function

Public Function RemoveLowerCaseLetters(OriginalString _
As String) As String
Dim numCount As Integer
For numCount = 97 To 122
Let OriginalString = ChangeString(OriginalString, Chr(numCount))
Next numCount
Let OriginalString = ChangeString(OriginalString, " ")
Let RemoveLowerCaseLetters = OriginalString
End Function

Public Function RemoveUpperCaseLetters(OriginalString _
As String) As String
Dim numCount As Integer
For numCount = 65 To 90
Let OriginalString = ChangeString(OriginalString, Chr(numCount))
Next numCount
Let OriginalString = ChangeString(OriginalString, " ")
Let RemoveUpperCaseLetters = OriginalString
End Function

Public Function RemoveAllLetters(OriginalString As String) As String
Let OriginalString = RemoveLowerCaseLetters(OriginalString)
Let OriginalString = RemoveUpperCaseLetters(OriginalString)
Let RemoveAllLetters = OriginalString
End Function

Public Function RemoveNumbers(OriginalString As String) As String
Dim numCount As Integer
For numCount = 48 To 57
Let OriginalString = ChangeString(OriginalString, Chr(numCount))
Next numCount
Let RemoveNumbers = OriginalString
End Function

Public Function RemoveGrammer(OriginalString As String) As String
Dim numCount As Integer
For numCount = 1 To 31
Let OriginalString = ChangeString(OriginalString, Chr(numCount))
Next numCount
For numCount = 33 To 47
Let OriginalString = ChangeString(OriginalString, Chr(numCount))
Next numCount
For numCount = 58 To 64
Let OriginalString = ChangeString(OriginalString, Chr(numCount))
Next numCount
For numCount = 91 To 96
Let OriginalString = ChangeString(OriginalString, Chr(numCount))
Next numCount
For numCount = 123 To 255
Let OriginalString = ChangeString(OriginalString, Chr(numCount))
Next numCount
Let RemoveGrammer = OriginalString
End Function

Public Function BeforeString(OriginalString As String, _
StringToLookFor As String, Optional Occurence _
As Integer = 1) As String
Dim LengthOfOriginalString As Integer
Dim LengthOfStringToLookFor As Integer
Dim numCount As Integer
Dim numOccurence As Integer
Let numOccurence = 0
Let LengthOfOriginalString = Len(OriginalString)
Let LengthOfStringToLookFor = Len(StringToLookFor)
For numCount = 1 To LengthOfOriginalString
If Mid(OriginalString, numCount, LengthOfStringToLookFor) = _
StringToLookFor Then
Let numOccurence = numOccurence + 1
If numOccurence = Occurence Then
Let BeforeString = Mid(OriginalString, 1, numCount - 1)
End If
End If
Next numCount
End Function

Public Function AfterString(OriginalString As String, _
StringToLookFor As String, Optional Occurence _
As Integer = 1) As String
Dim LengthOfOriginalString As Integer
Dim LengthOfStringToLookFor As Integer
Dim numCount As Integer
Dim numOccurence As Integer
Let numOccurence = 0
Let LengthOfOriginalString = Len(OriginalString)
Let LengthOfStringToLookFor = Len(StringToLookFor)
For numCount = 1 To LengthOfOriginalString
If Mid(OriginalString, numCount, LengthOfStringToLookFor) = _
StringToLookFor Then
Let numOccurence = numOccurence + 1
If numOccurence = Occurence Then
Let AfterString = Mid(OriginalString, _
numCount + LengthOfStringToLookFor)
End If
End If
Next numCount
End Function
Questa e' una classe per la gestione avanzata delle
stringhe, leggere la descrizione
This class is a group of functions that is used in
conjunction with an "original string". The functions
remove a seperate string, replace strings, remove
lower/upper case strings, remove numbers, remove grammer,
find number of occurences in a string, give a string
that is before a specified string, and give a string that
is after a specified string. Very helpful in manipulation.