Adding upstream version 1:7.0.4.upstream/1%7.0.4upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 469 insertions, 0 deletions

diff --git a/wizards/source/tools/Strings.xba b/wizards/source/tools/Strings.xba
new file mode 100644
index 000000000..4c2802f1a
--- /dev/null
+++ b/wizards/source/tools/Strings.xba
@@ -0,0 +1,469 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
+<!--
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+-->
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Strings" script:language="StarBasic">Option Explicit
+Public sProductname as String
+
+
+&apos; Deletes out of a String &apos;BigString&apos; all possible PartStrings, that are summed up
+&apos; in the Array &apos;ElimArray&apos;
+Function ElimChar(ByVal BigString as String, ElimArray() as String)
+Dim i% ,n%
+	For i = 0 to Ubound(ElimArray)
+		BigString = DeleteStr(BigString,ElimArray(i))
+	Next
+	ElimChar = BigString
+End Function
+
+
+&apos; Deletes out of a String &apos;BigString&apos; a possible Partstring &apos;CompString&apos;
+Function DeleteStr(ByVal BigString,CompString as String) as String
+Dim i%, CompLen%, BigLen%
+	CompLen = Len(CompString)
+	i = 1
+	While i &lt;&gt; 0
+		i = Instr(i, BigString,CompString)
+		If i &lt;&gt; 0 then
+			BigLen = Len(BigString)
+			BigString = Mid(BigString,1,i-1) + Mid(BigString,i+CompLen,BigLen-i+1-CompLen)
+		End If
+	Wend
+	DeleteStr = BigString
+End Function
+
+
+&apos; Finds a PartString, that is framed by the Strings &apos;Prestring&apos; and &apos;PostString&apos;
+Function FindPartString(BigString, PreString, PostString as String, SearchPos as Integer) as String
+Dim StartPos%, EndPos%
+Dim BigLen%, PreLen%, PostLen%
+	StartPos = Instr(SearchPos,BigString,PreString)
+	If StartPos &lt;&gt; 0 Then
+		PreLen = Len(PreString)
+		EndPos = Instr(StartPos + PreLen,BigString,PostString)
+		If EndPos &lt;&gt; 0 Then
+			BigLen = Len(BigString)
+			PostLen = Len(PostString)
+			FindPartString = Mid(BigString,StartPos + PreLen, EndPos - (StartPos + PreLen))
+			SearchPos = EndPos + PostLen
+		Else
+			Msgbox(&quot;No final tag for &apos;&quot; &amp; PreString &amp; &quot;&apos; existing&quot;, 16, GetProductName())
+			FindPartString = &quot;&quot;
+		End If
+	Else
+		FindPartString = &quot;&quot;
+	End If
+End Function
+
+
+&apos; Note iCompare = 0 (Binary comparison)
+&apos; 	   iCompare = 1 (Text comparison)
+Function PartStringInArray(BigArray(), SearchString as String, iCompare as Integer) as Integer
+Dim MaxIndex as Integer
+Dim i as Integer
+	MaxIndex = Ubound(BigArray())
+	For i = 0 To MaxIndex
+		If Instr(1, BigArray(i), SearchString, iCompare) &lt;&gt; 0 Then
+			PartStringInArray() = i
+			Exit Function
+		End If
+	Next i
+	PartStringInArray() = -1
+End Function		
+
+
+&apos; Deletes the String &apos;SmallString&apos; out of the String &apos;BigString&apos;
+&apos; in case SmallString&apos;s Position in BigString is right at the end
+Function RTrimStr(ByVal BigString, SmallString as String) as String
+Dim SmallLen as Integer
+Dim BigLen as Integer
+	SmallLen = Len(SmallString)
+	BigLen = Len(BigString)
+	If Instr(1,BigString, SmallString) &lt;&gt; 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
+End Function
+
+
+&apos; Deletes the Char &apos;CompChar&apos; out of the String &apos;BigString&apos;
+&apos; in case CompChar&apos;s Position in BigString is right at the beginning
+Function LTRimChar(ByVal BigString as String,CompChar as String) as String
+Dim BigLen as integer
+	BigLen = Len(BigString)
+	If BigLen &gt; 1 Then
+		If Left(BigString,1) = CompChar then
+	 		BigString = Mid(BigString,2,BigLen-1)
+	 	End If
+	ElseIf BigLen = 1 Then
+	 	BigString = &quot;&quot;
+	End If
+	LTrimChar = BigString
+End Function
+
+
+&apos; Retrieves an Array out of a String.
+&apos; The fields of the Array are separated by the parameter &apos;Separator&apos;, that is contained
+&apos; in the Array
+&apos; The Array MaxIndex delivers the highest Index of this Array
+Function ArrayOutOfString(BigString, Separator as String, Optional MaxIndex as Integer)
+Dim LocList() as String
+	LocList=Split(BigString,Separator)
+
+	If not isMissing(MaxIndex) then maxIndex=ubound(LocList())	
+
+	ArrayOutOfString=LocList
+End Function
+
+
+&apos; Deletes all fieldvalues in one-dimensional Array
+Sub ClearArray(BigArray)
+Dim i as integer
+	For i = Lbound(BigArray()) to Ubound(BigArray())
+		BigArray(i) = &quot;&quot;
+	Next
+End Sub
+
+
+&apos; Deletes all fieldvalues in a multidimensional Array
+Sub ClearMultiDimArray(BigArray,DimCount as integer)
+Dim n%, m%
+	For n = Lbound(BigArray(),1) to Ubound(BigArray(),1)
+		For m = 0 to Dimcount - 1
+			BigArray(n,m) = &quot;&quot;
+		Next m
+	Next n
+End Sub
+
+
+&apos; Checks if a Field (LocField) is already defined in an Array
+&apos; Returns &apos;True&apos; or &apos;False&apos;
+Function FieldInArray(LocArray(), MaxIndex as integer, LocField as String) As Boolean
+Dim i as integer
+	For i = Lbound(LocArray()) to MaxIndex
+		If Ucase(LocArray(i)) = Ucase(LocField) Then
+			FieldInArray = True
+			Exit Function
+		End if
+	Next
+	FieldInArray = False
+End Function
+
+
+&apos; Checks if a Field (LocField) is already defined in an Array
+&apos; Returns &apos;True&apos; or &apos;False&apos;
+Function FieldInList(LocField, BigList()) As Boolean
+Dim i as integer
+	For i = Lbound(BigList()) to Ubound(BigList())
+		If LocField = BigList(i) Then
+			FieldInList = True
+			Exit Function
+		End if
+	Next
+	FieldInList = False
+End Function
+
+
+&apos; Retrieves the Index of the delivered String &apos;SearchString&apos; in
+&apos; the Array LocList()&apos;
+Function IndexInArray(SearchString as String, LocList()) as Integer
+Dim i as integer
+	For i = Lbound(LocList(),1) to Ubound(LocList(),1)
+		If Ucase(LocList(i,0)) = Ucase(SearchString) Then
+			IndexInArray = i
+			Exit Function
+		End if
+	Next
+	IndexInArray = -1
+End Function
+
+
+Sub MultiArrayInListbox(oDialog as Object, ListboxName as String, ValList(), iDim as Integer)
+Dim oListbox as Object
+Dim i as integer
+Dim a as Integer
+	a = 0
+	oListbox = oDialog.GetControl(ListboxName)	
+	oListbox.RemoveItems(0, oListbox.GetItemCount)
+	For i = 0 to Ubound(ValList(), 1)
+		If ValList(i) &lt;&gt; &quot;&quot; Then
+			oListbox.AddItem(ValList(i, iDim-1), a)
+			a = a + 1
+		End If
+	Next
+End Sub
+
+
+&apos; Searches for a String in a two-dimensional Array by querying all Searchindexes of the second dimension
+&apos; and delivers the specific String of the ReturnIndex in the second dimension of the Searchlist()
+Function StringInMultiArray(SearchList(), SearchString as String, SearchIndex as Integer, ReturnIndex as Integer, Optional MaxIndex as Integer) as String
+Dim i as integer
+Dim CurFieldString as String
+	If IsMissing(MaxIndex) Then
+		MaxIndex = Ubound(SearchList(),1)
+	End If
+	For i = Lbound(SearchList()) to MaxIndex
+		CurFieldString = SearchList(i,SearchIndex)
+		If  Ucase(CurFieldString) = Ucase(SearchString) Then
+			StringInMultiArray() = SearchList(i,ReturnIndex)
+			Exit Function
+		End if
+	Next
+	StringInMultiArray() = &quot;&quot;
+End Function
+
+
+&apos; Searches for a Value in multidimensial Array by querying all Searchindices of the passed dimension 
+&apos; and delivers the Index where it is found.
+Function GetIndexInMultiArray(SearchList(), SearchValue, SearchIndex as Integer) as Integer
+Dim i as integer
+Dim MaxIndex as Integer
+Dim CurFieldValue
+	MaxIndex = Ubound(SearchList(),1)
+	For i = Lbound(SearchList()) to MaxIndex
+		CurFieldValue = SearchList(i,SearchIndex)
+		If CurFieldValue = SearchValue Then
+			GetIndexInMultiArray() = i
+			Exit Function
+		End if
+	Next
+	GetIndexInMultiArray() = -1
+End Function
+
+
+&apos; Searches for a Value in multidimensial Array by querying all Searchindices of the passed dimension 
+&apos; and delivers the Index where the Searchvalue is found as a part string
+Function GetIndexForPartStringinMultiArray(SearchList(), SearchValue, SearchIndex as Integer) as Integer
+Dim i as integer
+Dim MaxIndex as Integer
+Dim CurFieldValue
+	MaxIndex = Ubound(SearchList(),1)
+	For i = Lbound(SearchList()) to MaxIndex
+		CurFieldValue = SearchList(i,SearchIndex)
+		If Instr(CurFieldValue, SearchValue) &gt; 0 Then
+			GetIndexForPartStringinMultiArray() = i
+			Exit Function
+		End if
+	Next
+	GetIndexForPartStringinMultiArray = -1
+End Function
+
+
+Function ArrayfromMultiArray(MultiArray as String, iDim as Integer)
+Dim MaxIndex as Integer	
+Dim i as Integer
+	MaxIndex = Ubound(MultiArray())
+	Dim ResultArray(MaxIndex) as String
+	For i = 0 To MaxIndex
+		ResultArray(i) = MultiArray(i,iDim)
+	Next i
+	ArrayfromMultiArray() = ResultArray()
+End Function
+
+
+&apos; Replaces the string &quot;OldReplace&quot; through the String &quot;NewReplace&quot; in the String
+&apos; &apos;BigString&apos;
+Function ReplaceString(ByVal Bigstring, NewReplace, OldReplace as String)  as String
+	ReplaceString=join(split(BigString,OldReplace),NewReplace)
+End Function
+
+
+&apos; Retrieves the second value for a next to &apos;SearchString&apos; in
+&apos; a two-dimensional string-Array
+Function FindSecondValue(SearchString as String, TwoDimList() as String ) as String
+Dim i as Integer
+	For i = 0 To Ubound(TwoDimList,1)
+		If Ucase(SearchString) = Ucase(TwoDimList(i,0)) Then
+			FindSecondValue = TwoDimList(i,1)
+			Exit For
+		End If
+	Next
+End Function
+
+
+&apos; raises a base to a certain power
+Function Power(Basis as Double, Exponent as Double) as Double
+	Power = Exp(Exponent*Log(Basis))
+End Function
+
+
+&apos; rounds a Real to a given Number of Decimals
+Function Round(BaseValue as Double, Decimals as Integer) as Double
+Dim Multiplicator as Long
+Dim DblValue#, RoundValue#
+	Multiplicator = Power(10,Decimals)
+	RoundValue = Int(BaseValue * Multiplicator)
+	Round = RoundValue/Multiplicator
+End Function
+
+
+&apos;Retrieves the mere filename out of a whole path
+Function FileNameoutofPath(ByVal Path as String, Optional Separator as String) as String
+Dim i as Integer
+Dim SepList() as String
+	If IsMissing(Separator) Then
+		Path = ConvertFromUrl(Path)
+		Separator = GetPathSeparator()		
+	End If
+	SepList() = ArrayoutofString(Path, Separator,i)
+	FileNameoutofPath = SepList(i)
+End Function
+
+
+Function GetFileNameExtension(ByVal FileName as String)
+Dim MaxIndex as Integer
+Dim SepList() as String
+	SepList() = ArrayoutofString(FileName,&quot;.&quot;, MaxIndex)
+	GetFileNameExtension = SepList(MaxIndex)
+End Function
+
+
+Function GetFileNameWithoutExtension(ByVal FileName as String, Optional Separator as String)
+Dim MaxIndex as Integer
+Dim SepList() as String
+	If not IsMissing(Separator) Then
+		FileName = FileNameoutofPath(FileName, Separator)
+	End If
+	SepList() = ArrayoutofString(FileName,&quot;.&quot;, MaxIndex)
+	GetFileNameWithoutExtension = RTrimStr(FileName, &quot;.&quot; &amp; SepList(MaxIndex))
+End Function
+
+
+Function DirectoryNameoutofPath(sPath as String, Separator as String) as String
+Dim LocFileName as String
+	LocFileName = FileNameoutofPath(sPath, Separator)
+	DirectoryNameoutofPath = RTrimStr(sPath, Separator &amp; LocFileName)
+End Function
+
+
+Function CountCharsInString(BigString, LocChar as String, ByVal StartPos as Integer) as Integer
+Dim LocCount%, LocPos%
+	LocCount = 0
+	Do
+		LocPos = Instr(StartPos,BigString,LocChar)
+		If LocPos &lt;&gt; 0 Then
+			LocCount = LocCount + 1
+			StartPos = LocPos+1
+		End If
+	Loop until LocPos = 0
+	CountCharsInString = LocCount
+End Function
+
+
+Function BubbleSortList(ByVal SortList(),optional sort2ndValue as Boolean)
+&apos;This function bubble sorts an array of maximum 2 dimensions.
+&apos;The default sorting order is the first dimension
+&apos;Only if sort2ndValue is True the second dimension is the relevant for the sorting order
+	Dim s as Integer
+	Dim t as Integer
+	Dim i as Integer
+	Dim k as Integer
+	Dim dimensions as Integer
+	Dim sortvalue as Integer
+	Dim DisplayDummy
+	dimensions = 2
+	
+On Local Error Goto No2ndDim	
+	k = Ubound(SortList(),2)
+	No2ndDim:
+	If Err &lt;&gt; 0 Then dimensions = 1
+	
+	i = Ubound(SortList(),1)
+	If ismissing(sort2ndValue) then
+		sortvalue = 0
+	else
+		sortvalue = 1
+	end if
+	
+	For s = 1 to i - 1
+		For t = 0 to i-s
+			Select Case dimensions
+			Case 1
+				If SortList(t) &gt; SortList(t+1) Then                             
+					DisplayDummy = SortList(t)
+					SortList(t) = SortList(t+1)
+					SortList(t+1) = DisplayDummy    
+				End If
+			Case 2
+				If SortList(t,sortvalue) &gt; SortList(t+1,sortvalue) Then 
+					For k = 0 to UBound(SortList(),2)                        
+							DisplayDummy = SortList(t,k)
+							SortList(t,k) = SortList(t+1,k)
+							SortList(t+1,k) = DisplayDummy 
+					Next k
+				End If
+			End Select
+		Next t
+	Next s 
+	BubbleSortList = SortList()             
+End Function
+
+
+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
+End Function
+
+
+Function AddListtoList(ByVal FirstArray(), ByVal SecondArray(), Optional StartIndex)
+Dim n as Integer
+Dim m as Integer
+Dim MaxIndex as Integer
+	MaxIndex = Ubound(FirstArray()) + Ubound(SecondArray()) + 1
+	If MaxIndex &gt; -1 Then
+		Dim ResultArray(MaxIndex)
+		For m = 0 To Ubound(FirstArray())
+			ResultArray(m) = FirstArray(m)
+		Next m
+		For n = 0 To Ubound(SecondArray())
+			ResultArray(m) = SecondArray(n)
+			m = m + 1
+		Next n
+		AddListToList() = ResultArray()
+	Else
+		Dim NullArray()
+		AddListToList() = NullArray()
+	End If
+End Function
+
+
+Function CheckDouble(DoubleString as String)
+On Local Error Goto WRONGDATATYPE
+	CheckDouble() = CDbl(DoubleString)
+WRONGDATATYPE:
+	If Err &lt;&gt; 0 Then
+		CheckDouble() = 0
+		Resume NoErr:
+	End If
+NOERR:	
+End Function
+</script:module>