1*b1cdbd2cSJim Jagielski<?xml version="1.0" encoding="UTF-8"?> 2*b1cdbd2cSJim Jagielski<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3*b1cdbd2cSJim Jagielski<script:module xmlns:script="http://openoffice.org/2000/script" script:name="text_XText" script:language="StarBasic"> 4*b1cdbd2cSJim Jagielski 5*b1cdbd2cSJim Jagielski 6*b1cdbd2cSJim Jagielski'************************************************************************* 7*b1cdbd2cSJim Jagielski' 8*b1cdbd2cSJim Jagielski' Licensed to the Apache Software Foundation (ASF) under one 9*b1cdbd2cSJim Jagielski' or more contributor license agreements. See the NOTICE file 10*b1cdbd2cSJim Jagielski' distributed with this work for additional information 11*b1cdbd2cSJim Jagielski' regarding copyright ownership. The ASF licenses this file 12*b1cdbd2cSJim Jagielski' to you under the Apache License, Version 2.0 (the 13*b1cdbd2cSJim Jagielski' "License"); you may not use this file except in compliance 14*b1cdbd2cSJim Jagielski' with the License. You may obtain a copy of the License at 15*b1cdbd2cSJim Jagielski' 16*b1cdbd2cSJim Jagielski' http://www.apache.org/licenses/LICENSE-2.0 17*b1cdbd2cSJim Jagielski' 18*b1cdbd2cSJim Jagielski' Unless required by applicable law or agreed to in writing, 19*b1cdbd2cSJim Jagielski' software distributed under the License is distributed on an 20*b1cdbd2cSJim Jagielski' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 21*b1cdbd2cSJim Jagielski' KIND, either express or implied. See the License for the 22*b1cdbd2cSJim Jagielski' specific language governing permissions and limitations 23*b1cdbd2cSJim Jagielski' under the License. 24*b1cdbd2cSJim Jagielski' 25*b1cdbd2cSJim Jagielski'************************************************************************* 26*b1cdbd2cSJim Jagielski 27*b1cdbd2cSJim Jagielski 28*b1cdbd2cSJim Jagielski 29*b1cdbd2cSJim Jagielski 30*b1cdbd2cSJim Jagielski 31*b1cdbd2cSJim Jagielski' Be sure that all variables are dimensioned: 32*b1cdbd2cSJim Jagielskioption explicit 33*b1cdbd2cSJim Jagielski 34*b1cdbd2cSJim Jagielski'************************************************************************* 35*b1cdbd2cSJim Jagielski' This Interface/Service test depends on the following GLOBAL variables, 36*b1cdbd2cSJim Jagielski' which must be specified in the object creation: 37*b1cdbd2cSJim Jagielski 38*b1cdbd2cSJim Jagielski' - Global oCollection As Object [optional] 39*b1cdbd2cSJim Jagielski' if this relation exists then the method "count" is called for check insert/remove 40*b1cdbd2cSJim Jagielski' - Global oInstance As Object 41*b1cdbd2cSJim Jagielski' Global aAddons() As Variant [optional] 42*b1cdbd2cSJim Jagielski' if this relation exists, then additional methods are called before and after insert/removeTextContent() methods 43*b1cdbd2cSJim Jagielski 44*b1cdbd2cSJim Jagielski'************************************************************************* 45*b1cdbd2cSJim Jagielski 46*b1cdbd2cSJim Jagielski 47*b1cdbd2cSJim Jagielski 48*b1cdbd2cSJim Jagielski 49*b1cdbd2cSJim Jagielski 50*b1cdbd2cSJim Jagielski 51*b1cdbd2cSJim JagielskiSub RunTest() 52*b1cdbd2cSJim Jagielski 53*b1cdbd2cSJim Jagielski'************************************************************************* 54*b1cdbd2cSJim Jagielski' INTERFACE: 55*b1cdbd2cSJim Jagielski' com.sun.star.text.XText 56*b1cdbd2cSJim Jagielski'************************************************************************* 57*b1cdbd2cSJim JagielskiOn Error Goto ErrHndl 58*b1cdbd2cSJim Jagielski Dim bOK As Boolean 59*b1cdbd2cSJim Jagielski Dim cText As String 60*b1cdbd2cSJim Jagielski Dim oCursor As Object 61*b1cdbd2cSJim Jagielski Dim i1 As Integer 62*b1cdbd2cSJim Jagielski Dim i2 As Integer 63*b1cdbd2cSJim Jagielski 64*b1cdbd2cSJim Jagielski Test.StartMethod("insertTextContent()") 65*b1cdbd2cSJim Jagielski bOK = true 66*b1cdbd2cSJim Jagielski cText = ". Zeile : test_XText" 67*b1cdbd2cSJim Jagielski 68*b1cdbd2cSJim Jagielski If IsObject(oCollection) and IsObject(oInstance) Then 69*b1cdbd2cSJim Jagielski oCursor = oObj.createTextCursor() 70*b1cdbd2cSJim Jagielski oCursor.gotoEnd(false) 71*b1cdbd2cSJim Jagielski i1 = count(oCollection) 72*b1cdbd2cSJim Jagielski Out.Log("Before inserting we have " + i1 + " elements.") 73*b1cdbd2cSJim Jagielski 74*b1cdbd2cSJim Jagielski' if isArray(aAddons) then 75*b1cdbd2cSJim Jagielski' Out.Log("Calling beforeInsertTextContent() ...") 76*b1cdbd2cSJim Jagielski' beforeInsertTextContent() 77*b1cdbd2cSJim Jagielski' endif 78*b1cdbd2cSJim Jagielski 79*b1cdbd2cSJim Jagielski oObj.insertTextContent(oCursor, oInstance, false) 80*b1cdbd2cSJim Jagielski 81*b1cdbd2cSJim Jagielski' if isArray(aAddons) then 82*b1cdbd2cSJim Jagielski' Out.Log("Calling afterInsertTextContent() ...") 83*b1cdbd2cSJim Jagielski' afterInsertTextContent() 84*b1cdbd2cSJim Jagielski' endif 85*b1cdbd2cSJim Jagielski 86*b1cdbd2cSJim Jagielski i2 = count(oCollection) 87*b1cdbd2cSJim Jagielski Out.Log("After inserting we have " + i2 + " elements.") 88*b1cdbd2cSJim Jagielski bOK = bOK AND i1 = i2 - 1 89*b1cdbd2cSJim Jagielski Test.MethodTested("insertTextContent()", bOK) 90*b1cdbd2cSJim Jagielski 91*b1cdbd2cSJim Jagielski Test.StartMethod("removeTextContent()") 92*b1cdbd2cSJim Jagielski bOK = true 93*b1cdbd2cSJim Jagielski i1 = count(oCollection) 94*b1cdbd2cSJim Jagielski Out.Log("Before removing we have " + i1 + " elements.") 95*b1cdbd2cSJim Jagielski 96*b1cdbd2cSJim Jagielski' if (isArray(aAddons)) then 97*b1cdbd2cSJim Jagielski' Out.Log("Calling beforeRemoveTextContent() ...") 98*b1cdbd2cSJim Jagielski' beforeRemoveTextContent() 99*b1cdbd2cSJim Jagielski' endif 100*b1cdbd2cSJim Jagielski 101*b1cdbd2cSJim Jagielski oObj.removeTextContent(oInstance) 102*b1cdbd2cSJim Jagielski 103*b1cdbd2cSJim Jagielski' if (isArray(aAddons)) then 104*b1cdbd2cSJim Jagielski' Out.Log("Calling afterRemoveTextContent() ...") 105*b1cdbd2cSJim Jagielski' afterRemoveTextContent() 106*b1cdbd2cSJim Jagielski' endif 107*b1cdbd2cSJim Jagielski 108*b1cdbd2cSJim Jagielski i2 = count(oCollection) 109*b1cdbd2cSJim Jagielski Out.Log("After removing we have " + i2 + " elements.") 110*b1cdbd2cSJim Jagielski bOK = bOK AND i1 = i2 + 1 111*b1cdbd2cSJim Jagielski Test.MethodTested("removeTextContent()", bOK) 112*b1cdbd2cSJim Jagielski Else 113*b1cdbd2cSJim Jagielski oCursor = oObj.createTextCursor() 114*b1cdbd2cSJim Jagielski oCursor.gotoEnd(false) 115*b1cdbd2cSJim Jagielski oObj.insertTextContent(oCursor, oInstance, false) 116*b1cdbd2cSJim Jagielski Test.MethodTested("insertTextContent()", True) 117*b1cdbd2cSJim Jagielski Test.StartMethod("removeTextContent()") 118*b1cdbd2cSJim Jagielski oObj.removeTextContent(oInstance) 119*b1cdbd2cSJim Jagielski Test.MethodTested("removeTextContent()", True) 120*b1cdbd2cSJim Jagielski End If 121*b1cdbd2cSJim Jagielski 122*b1cdbd2cSJim JagielskiExit Sub 123*b1cdbd2cSJim JagielskiErrHndl: 124*b1cdbd2cSJim Jagielski Test.Exception() 125*b1cdbd2cSJim Jagielski bOK = false 126*b1cdbd2cSJim Jagielski resume next 127*b1cdbd2cSJim JagielskiEnd Sub 128*b1cdbd2cSJim Jagielski 129*b1cdbd2cSJim JagielskiFunction count(container As Variant) As Integer 130*b1cdbd2cSJim Jagielski Dim iAmount As Integer 131*b1cdbd2cSJim Jagielski Dim oEnumeration As Object 132*b1cdbd2cSJim Jagielski 133*b1cdbd2cSJim Jagielski if hasUnoInterfaces(container, "com.sun.star.container.XIndexAccess") then 134*b1cdbd2cSJim Jagielski iAmount = container.getCount() 135*b1cdbd2cSJim Jagielski elseif hasUnoInterfaces(container, "com.sun.star.container.XNameAccess") then 136*b1cdbd2cSJim Jagielski iAmount = ubound(container.getElementNames()) + 1 137*b1cdbd2cSJim Jagielski elseif hasUnoInterfaces(container, "com.sun.star.container.XEnumerationAccess") then 138*b1cdbd2cSJim Jagielski oEnumeration = container.createEnumeration() 139*b1cdbd2cSJim Jagielski iAmount = 0 140*b1cdbd2cSJim Jagielski while oEnumeration.hasMoreElements() 141*b1cdbd2cSJim Jagielski iAmount = iAmount + 1 142*b1cdbd2cSJim Jagielski oEnumeration.nextElement() 143*b1cdbd2cSJim Jagielski wend 144*b1cdbd2cSJim Jagielski end if 145*b1cdbd2cSJim Jagielski 146*b1cdbd2cSJim Jagielski count() = iAmount 147*b1cdbd2cSJim JagielskiEnd Function 148*b1cdbd2cSJim Jagielski</script:module> 149