diff options
author | Behrend Cornelius <bc@openoffice.org> | 2001-05-04 14:15:30 +0000 |
---|---|---|
committer | Behrend Cornelius <bc@openoffice.org> | 2001-05-04 14:15:30 +0000 |
commit | 0aa1eda1a2af438d7061ba2a6d53866141f5fda6 (patch) | |
tree | 81b25654aab1365b6172a31c1ac043f08fd5d09d /wizards/source/tools/Strings.xba | |
parent | 6dca4e2d819ea121096ba1be8ab18c5307a901f7 (diff) |
## several changes
Diffstat (limited to 'wizards/source/tools/Strings.xba')
-rw-r--r-- | wizards/source/tools/Strings.xba | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/wizards/source/tools/Strings.xba b/wizards/source/tools/Strings.xba index c478804e5f08..2e70535b9d49 100644 --- a/wizards/source/tools/Strings.xba +++ b/wizards/source/tools/Strings.xba @@ -58,7 +58,6 @@ Dim BigLen%,PreLen%,PostLen% End Function - ' Deletes the String 'SmallString' out of the String 'BigString' ' in case SmallString's Position in BigString is right at the end Function RTrimStr(ByVal BigString, SmallString as String) as String @@ -247,7 +246,7 @@ Dim Separator as String sProductname = GetProductname() End If If BigString <> "" Then - If Instr(1,sProductname,"Sun Webtop") = 0 Then + If IsFatOffice() Then Separator = GetPathSeparator() ' Is the delivered Path already a URL If Instr(1,UCase(BigString),"FILE:///") = 0 Then @@ -333,10 +332,10 @@ Dim SepList() as String End Function -Function DirectorynameoutofPath(sPath as String, Separator as String) as String +Function DirectoryNameoutofPath(sPath as String, Separator as String) as String Dim LocFileName as String LocFileName = FileNameoutofPath(sPath, Separator) - DirectoryNameoutofPath = DeleteStr(sPath, Separator & LocFileName) + DirectoryNameoutofPath = RTrimStr(sPath, Separator & LocFileName) End Function |