集成OpenOffice替换为LibreOffice

office-plugin/windows-office/share/basic/Tools/Strings.xba

@@ -1,25 +1,22 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<!--***********************************************************
- * 
- * 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
- * 
- * Unless required by applicable law or agreed to in writing,
- * software distributed under the License is distributed on an
- * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
- * KIND, either express or implied.  See the License for the
- * specific language governing permissions and limitations
- * under the License.
- * 
- ***********************************************************-->
+<!--
+ * 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
 
@@ -29,7 +26,7 @@ Public sProductname as String
 Function ElimChar(ByVal BigString as String, ElimArray() as String)
 Dim i% ,n%
 	For i = 0 to Ubound(ElimArray)
-		BigString = DeleteStr(BigString,ElimArray(i)
+		BigString = DeleteStr(BigString,ElimArray(i))
 	Next
 	ElimChar = BigString
 End Function
@@ -161,7 +158,7 @@ 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
+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
@@ -175,7 +172,7 @@ 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
+Function FieldInList(LocField, BigList()) As Boolean
 Dim i as integer
 	For i = Lbound(BigList()) to Ubound(BigList())
 		If LocField = BigList(i) Then
@@ -189,15 +186,15 @@ 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
+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
+			IndexInArray = i
 			Exit Function
 		End if
 	Next
-	IndexinArray = -1
+	IndexInArray = -1
 End Function
 
 
@@ -217,7 +214,7 @@ Dim a as Integer
 End Sub
 
 
-&apos; Searches for a String in a two-dimensional Array by querying all Searchindexex of the second dimension 
+&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
@@ -348,7 +345,7 @@ Dim SepList() as String
 		FileName = FileNameoutofPath(FileName, Separator)
 	End If
 	SepList() = ArrayoutofString(FileName,&quot;.&quot;, MaxIndex)
-	GetFileNameWithoutExtension = RTrimStr(FileName, &quot;.&quot; &amp; SepList(MaxIndex)
+	GetFileNameWithoutExtension = RTrimStr(FileName, &quot;.&quot; &amp; SepList(MaxIndex))
 End Function
 
 
@@ -359,7 +356,7 @@ Dim LocFileName as String
 End Function
 
 
-Function CountCharsinString(BigString, LocChar as String, ByVal StartPos as Integer) as Integer
+Function CountCharsInString(BigString, LocChar as String, ByVal StartPos as Integer) as Integer
 Dim LocCount%, LocPos%
 	LocCount = 0
 	Do