diff options
author | Behrend Cornelius <bc@openoffice.org> | 2001-07-13 07:26:28 +0000 |
---|---|---|
committer | Behrend Cornelius <bc@openoffice.org> | 2001-07-13 07:26:28 +0000 |
commit | 55b3870d456b1b9ebbbf1f881a3b0bc48c280e80 (patch) | |
tree | fcfc42793461140910f5a63bd168286973791840 /wizards/source/tools/Strings.xba | |
parent | fce5a701b814dd75d23689c57ba971c91eddeb6c (diff) |
#89603# FileOpenRoutine modified
Diffstat (limited to 'wizards/source/tools/Strings.xba')
-rw-r--r-- | wizards/source/tools/Strings.xba | 63 |
1 files changed, 33 insertions, 30 deletions
diff --git a/wizards/source/tools/Strings.xba b/wizards/source/tools/Strings.xba index d43d36ec5ed7..2855b8c7fe42 100644 --- a/wizards/source/tools/Strings.xba +++ b/wizards/source/tools/Strings.xba @@ -280,38 +280,38 @@ End Function ' Converts an "ordinary" path to a "URL-Path" -Function ConverttoURL(ByVal BigString as String) as String -Dim Separator as String - If sProductname = "" Then - sProductname = GetProductname() - End If - If BigString <> "" Then - If IsFatOffice() Then - Separator = GetPathSeparator() - ' Is the delivered Path already a URL - If Instr(1,UCase(BigString),"FILE:///") = 0 Then - BigString = ReplaceString(BigString,"/",Separator) - BigString = "file:///" & BigString - End If - End If - ConvertToURL = BigString - Else - ConvertToUrl = "" - End If -End Function +'Function ConverttoURL(ByVal BigString as String) as String +'Dim Separator as String +' If sProductname = "" Then +' sProductname = GetProductname() +' End If +' If BigString <> "" Then +' If IsFatOffice() Then +' Separator = GetPathSeparator() +' ' Is the delivered Path already a URL +' If Instr(1,UCase(BigString),"FILE:///") = 0 Then +' BigString = ReplaceString(BigString,"/",Separator) +' BigString = "file:///" & BigString +' End If +' End If +' ConvertToURL = BigString +' Else +' ConvertToUrl = "" +' End If +'End Function ' Converts an "URL-Path" to an ordinary "Path" -Function ConvertfromURL(ByVal BigString as String) as String -Dim Separator as String - Separator = GetPathSeparator() - If Left(Ucase(BigString),8)= "FILE:///" Then - BigString = Mid(BigString, 9, Len(BigString)-8) - BigString = ReplaceString(BigString,Separator,"/") - BigString = ReplaceString(BigString,":","|") - ConvertFromUrl = BigString - End If -End Function +'Function ConvertfromURL(ByVal BigString as String) as String +'Dim Separator as String +' Separator = GetPathSeparator() +' If Left(Ucase(BigString),8)= "FILE:///" Then +' BigString = Mid(BigString, 9, Len(BigString)-8) +' BigString = ReplaceString(BigString,Separator,"/") +' BigString = ReplaceString(BigString,":","|") +' ConvertFromUrl = BigString +' End If +'End Function ' Retrieves the second value for a next to 'SearchString' in @@ -448,12 +448,15 @@ On Local Error Goto No2ndDim End Function -Function GetValueoutofList(SearchValue, BigList(), iDim as Integer) +Function GetValueoutofList(SearchValue, BigList(), iDim as Integer, Optional ValueIndex) Dim i as Integer Dim MaxIndex as Integer MaxIndex = Ubound(BigList(),1) For i = 0 To MaxIndex If BigList(i,0) = SearchValue Then + If Not IsMissing(ValueIndex) Then + ValueIndex = i + End If GetValueOutOfList() = BigList(i,iDim) End If Next i |