‘ Replace the last occurrence of a stringFunction ReplaceLast(Expression As String, Find As String, ReplaceStr As String, _ Optional Compare As VbCompareMethod) As String Dim i As Long i =
‘ A replacement for the Split function under VB4 and VB5” Note that the return value is a Variant that contains’ an array of stringsFunction Split(ByVal Text As String, Optional
‘ A replacement for the StrReverse function for VB4 and VB5Function StrReverse(ByVal Text As String) As String Dim length As Long, index As Long length = Len(Text) StrReverse = Space$(length)
‘ Join variant that works with’ bi-dimensional arrays of any type’ and that encloses string values between quotes” ARR is the 2-dimensional array whose element must be joined’ ROWSEPARATOR is
‘ A replacement for the InStrRev function under VB4 and VB5” NOTE: uses the StrReverse functionFunction InStrRev(ByVal Text As String, Search As String, _ Optional ByVal Start As Long =
‘ A replacement for the Join function under VB4 and VB5Function Join(arr() As String, ByVal Delimiter As String) As String Dim index As Long For index = LBound(arr) To UBound(arr)
‘ A Split variant that parses a string that contains’ row and column separators, and returns a 2-dimensional array” the result String array has a number of columns equal’ to
‘ Join variant that works with arrays of any type’ and that encloses string values between quotes” ARR is the array whose element must be joined’ SEPARATOR is the separator
‘ A replace for the Filter function under VB4 and VB5” Note that the source array is modified. For this reason’ this is declared as a Sub rather than a