diff options
author | Behrend Cornelius <bc@openoffice.org> | 2001-11-20 13:42:50 +0000 |
---|---|---|
committer | Behrend Cornelius <bc@openoffice.org> | 2001-11-20 13:42:50 +0000 |
commit | 8276feef0ed62e00395b0f79ff639443ae0226a4 (patch) | |
tree | ff984ca7c10bf0729d048d0b9e19f7485ed2718b /wizards/source/tools/Strings.xba | |
parent | 9adb2bb8a9b3fce82c9e1f0bb5dcca6213c4f256 (diff) |
#94903# RTrimStr Routine improved, SwitchMousePointer() added
Diffstat (limited to 'wizards/source/tools/Strings.xba')
-rw-r--r-- | wizards/source/tools/Strings.xba | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/wizards/source/tools/Strings.xba b/wizards/source/tools/Strings.xba index 601ab7404d3c..553fffd2eb32 100644 --- a/wizards/source/tools/Strings.xba +++ b/wizards/source/tools/Strings.xba @@ -84,8 +84,12 @@ Dim SmallLen as Integer Dim BigLen as Integer SmallLen = Len(SmallString) BigLen = Len(BigString) - If Mid(BigString,BigLen + 1 - SmallLen, SmallLen) = SmallString Then - RTrimStr = Mid(BigString,1,BigLen - SmallLen) + If Instr(1,BigString, SmallString) <> 0 Then + If Mid(BigString,BigLen + 1 - SmallLen, SmallLen) = SmallString Then + RTrimStr = Mid(BigString,1,BigLen - SmallLen) + Else + RTrimStr = BigString + End If Else RTrimStr = BigString End If |