diff options
author | Behrend Cornelius <bc@openoffice.org> | 2001-05-21 14:50:30 +0000 |
---|---|---|
committer | Behrend Cornelius <bc@openoffice.org> | 2001-05-21 14:50:30 +0000 |
commit | 448d824234187ccf3bd86eaaa4b71fbbaf05cc93 (patch) | |
tree | 29f716b0bad6b6ec8e4513fd654a8b8abaaadcba /wizards/source/tools | |
parent | d8d5bb8f7fb47806ea3aa2629a40d0aad5b4ce4e (diff) |
#69094# All Subs with Redimensioning of Arrays modified
Diffstat (limited to 'wizards/source/tools')
-rw-r--r-- | wizards/source/tools/Strings.xba | 35 |
1 files changed, 19 insertions, 16 deletions
diff --git a/wizards/source/tools/Strings.xba b/wizards/source/tools/Strings.xba index 987796299e78..f096bc677973 100644 --- a/wizards/source/tools/Strings.xba +++ b/wizards/source/tools/Strings.xba @@ -255,8 +255,7 @@ Dim Separator as String Separator = GetPathSeparator() ' Is the delivered Path already a URL If Instr(1,UCase(BigString),"FILE:///") = 0 Then - BigString = ReplaceString(BigString,"/",Separator) - BigString = ReplaceString(BigString,"|",":") + BigString = ReplaceString(BigString,"/", Separator) BigString = "file:///" & BigString End If End If @@ -358,24 +357,28 @@ Dim LocCount%, LocPos% End Function -Function BubbleSortList(ByVal SortList(),optional sort2ndValue as Boolean) - Dim s as Integer - Dim t as Integer - Dim i,k as Integer - Dim bJustOneDim, bSort2nd as Boolean - Dim DisplayDummy as String - bJustOneDim = false - bSort2nd = false -On Local Error Goto No2ndDim +Function BubbleSortList(ByVal SortList(),Optional bsort2ndValue as Boolean) +Dim s as Integer +Dim t as Integer +Dim i as Integer +Dim k as Integer +Dim bJustOneDim as Boolean +Dim bSort2nd as Boolean +Dim DisplayDummy as String + + bJustOneDim = False + bSort2nd = False +On Local Error Goto NO2NDDIM k = Ubound(SortList(),2) - No2ndDim: +NO2NDDIM: bJustOneDim = Err <> 0 +On Local Error Goto 0 i = Ubound(SortList(),1) - If ismissing(sort2ndValue) then + If IsMissing(bSort2ndValue) Then bSort2nd = false - else - bSort2nd = sort2ndValue - end if + Else + bSort2nd = bSort2ndValue + End If For s = 1 to i - 1 For t = 0 to i-s |