#92590# Routines for Gimmicks macros added

1 files changed, 1 insertions, 36 deletions

diff --git a/wizards/source/tools/Strings.xba b/wizards/source/tools/Strings.xba
index c1ab298bd677..9c46eb763c1c 100644
--- a/wizards/source/tools/Strings.xba
+++ b/wizards/source/tools/Strings.xba
@@ -285,41 +285,6 @@ Dim i%, OldReplLen%, BigLen%
 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
-
-
-' 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
-
-
 ' Retrieves the second value for a next to 'SearchString' in
 ' a two-dimensional string-Array
 Function FindSecondValue(SearchString as String, TwoDimList() as String ) as String
@@ -353,7 +318,7 @@ End Function
 Function FileNameoutofPath(ByVal Path as String, Separator as String) as String
 Dim i as Integer
 Dim SepList() as String
-	SepList() = ArrayoutofString(Path,"/",i)
+	SepList() = ArrayoutofString(Path, Separator,i)
 	FileNameoutofPath = SepList(i)
 End Function