<-- Previous || Up || Next -->

Replace String Fast Verify Sub
String Replacements Class

Private Sub ReplaceStringFastVerify()
    'Test the ReplaceStringFast function.

    Debug.Assert ReplaceStringFast("AbcAbcAbc", "", "-", vbBinaryCompare) = "AbcAbcAbc" ' Behavior #1

    Debug.Assert ReplaceStringFast("AbcAbcAbc", "cA", "", vbBinaryCompare) = "Abbbc" ' Behavior #2

    Debug.Assert ReplaceStringFast("AbcAbcAbc", "Ab", "AbAb", vbBinaryCompare) = "AbAbcAbAbcAbAbc" ' Behavior #3

    Debug.Assert ReplaceStringFast("AbcAbcAbc", "cA", "-", vbBinaryCompare) = "Ab-b-bc" ' Behavior #4
    Debug.Assert ReplaceStringFast("AbcAbcAbc", "ca", "-", vbBinaryCompare) = "AbcAbcAbc"
    Debug.Assert ReplaceStringFast("AbcAbcAbc", "cA", "-", vbTextCompare) = "Ab-b-bc"
    Debug.Assert ReplaceStringFast("AbcAbcAbc", "ca", "-", vbTextCompare) = "Ab-b-bc"

End Sub

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.