‘ 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 = InStrRev(Expression, Find, , Compare) If i Then ‘ the search string is there ‘ note that the Replace function trims
‘ 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 ByVal Delimiter As String = ” “, _ Optional ByVal Limit As Long = -1, Optional CompareMethod As _ VbCompareMethod
‘ 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) For index = 1 To length Mid$(StrReverse, length + 1 – index, 1) = Mid$(Text, index, 1) Next End Function
‘ 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 the separator for rows (default is CRLF)’ COLSEPARATOR is the separator fol columns (default is comma)’ QUOTED is the character
‘ 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 = -1, Optional ByVal CompareMethod As _ VbCompareMethod = vbBinaryCompare) As Long Dim Index As Long ‘ reverse the source strings,
‘ 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) – 1 Join = Join & arr(index) & Delimiter Next Join = Join & arr(UBound(arr))End Function
‘ 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 the highest number of fields in individual text linesFunction Split2(ByVal Text As String, Optional ByVal RowSeparator As String = _
‘ 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 char (default is comma)’ QUOTED is the character used to quote string values’ use a two-char string (eg “{}”) if
‘ 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 FunctionSub Filter(arr() As String, ByVal Search As String, Optional ByVal Include As _ Boolean, Optional ByVal CompareMethod As VbCompareMethod =