sw/source/ui/vba/vbarangehelper.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile:
  10  * $Revision:
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30 #include "vbarangehelper.hxx"
  31 #include <com/sun/star/text/ControlCharacter.hpp>
  32 #include <com/sun/star/text/XTextRangeCompare.hpp>
  33
  34 using namespace ::ooo::vba;
  35 using namespace ::com::sun::star;
  36
  37 /**
  38  * get a range in a xText by creating
  39  * a cursor that iterates over the text. If the iterating cursor is
  40  * equal to the desired position, the range equivalent is returned.
  41  * Some special cases are tables that are inside of the text, because the
  42  * position has to be adjusted.
  43  * @param xText a text where a range position is searched
  44  * @param position a position inside o the text
  45  * @return a range for the postion; null is returned if no range can be
  46  * constructed.
  47  */
  48 uno::Reference< text::XTextRange > SwVbaRangeHelper::getRangeByPosition( const uno::Reference< text::XText >& rText, sal_Int32 _position ) throw ( uno::RuntimeException )
  49 {
  50     uno::Reference< text::XTextRange > xRange;
  51     if( rText.is() )
  52     {
  53         sal_Int32 nPos = 0;
  54         uno::Reference< text::XTextCursor > xCursor = rText->createTextCursor();
  55         xCursor->collapseToStart();
  56         sal_Bool bCanGo = sal_True;
  57         while( !xRange.is() && bCanGo )
  58         {
  59             if( _position == nPos )
  60             {
  61                 xRange = xCursor->getStart();
  62             }
  63             else
  64             {
  65                 bCanGo = xCursor->goRight( 1, sal_False );
  66                 nPos++;
  67             }
  68         }
  69     }
  70     return xRange;
  71 }
  72
  73
  74 void SwVbaRangeHelper::insertString( uno::Reference< text::XTextRange >& rTextRange, uno::Reference< text::XText >& rText, const rtl::OUString& rStr, sal_Bool _bAbsorb ) throw ( uno::RuntimeException )
  75 {
  76     sal_Int32 nlastIndex = 0;
  77     sal_Int32 nIndex = 0;
  78     uno::Reference< text::XTextRange > xRange = rTextRange;
  79
  80     while(( nIndex = rStr.indexOf('\n', nlastIndex)) >= 0  )
  81     {
  82         xRange = xRange->getEnd();
  83         if( nlastIndex < ( nIndex - 1 ) )
  84         {
  85             rText->insertString( xRange, rStr.copy( nlastIndex, ( nIndex - 1 - nlastIndex ) ), _bAbsorb );
  86             xRange = xRange->getEnd();
  87         }
  88
  89         rText->insertControlCharacter( xRange, text::ControlCharacter::PARAGRAPH_BREAK, _bAbsorb );
  90         nlastIndex = nIndex + 1;
  91     }
  92
  93     if( nlastIndex < rStr.getLength() )
  94     {
  95         xRange = xRange->getEnd();
  96
  97         rtl::OUString aWatt = rStr.copy( nlastIndex );
  98         rText->insertString( xRange, aWatt, _bAbsorb );
  99     }
 100 }
 101
 102 uno::Reference< text::XTextCursor > SwVbaRangeHelper::initCursor( const uno::Reference< text::XTextRange >& rTextRange, const uno::Reference< text::XText >& rText ) throw ( uno::RuntimeException )
 103 {
 104     uno::Reference< text::XTextCursor > xTextCursor;
 105     sal_Bool bGotTextCursor = sal_False;
 106
 107     try
 108     {
 109         xTextCursor = rText->createTextCursorByRange( rTextRange );
 110         bGotTextCursor = sal_True;
 111     }
 112     catch (uno::Exception& e)
 113     {
 114         DebugHelper::exception(e);
 115     }
 116
 117     if( !bGotTextCursor )
 118     {
 119         try
 120         {
 121             uno::Reference< text::XText > xText = rTextRange->getText();
 122             xTextCursor = xText->createTextCursor();
 123             bGotTextCursor = sal_True;
 124         }
 125         catch( uno::Exception& e )
 126         {
 127             DebugHelper::exception(e);
 128         }
 129     }
 130
 131     if( !bGotTextCursor )
 132     {
 133         try
 134         {
 135             xTextCursor = rText->createTextCursor();
 136             bGotTextCursor = sal_True;
 137         }
 138         catch( uno::Exception& e )
 139         {
 140             DebugHelper::exception(e);
 141         }
 142     }
 143     return xTextCursor;
 144 }
 145
 146 sal_Int32 SwVbaRangeHelper::getPosition( const uno::Reference< text::XText >& rText, const uno::Reference< text::XTextRange >& rTextRange ) throw ( uno::RuntimeException )
 147 {
 148     sal_Int32 nPosition = -1;
 149     if( rText.is() && rTextRange.is() )
 150     {
 151         nPosition = 0;
 152         uno::Reference< text::XTextCursor > xCursor = rText->createTextCursor();
 153         xCursor->collapseToStart();
 154         uno::Reference< text::XTextRangeCompare > xCompare( rText, uno::UNO_QUERY_THROW );
 155         // compareValue is 0 if the ranges are equal
 156         sal_Int32 nCompareValue = xCompare->compareRegionStarts( xCursor->getStart(), rTextRange );
 157         sal_Bool canGo = sal_True;
 158
 159         while( nCompareValue !=0 && canGo )
 160         {
 161             canGo = xCursor->goRight( 1, sal_False );
 162             nCompareValue = xCompare->compareRegionStarts( xCursor->getStart(), rTextRange );
 163             nPosition++;
 164         }
 165
 166         // check fails: no correct position found
 167         if( !canGo && nCompareValue != 0 )
 168         {
 169             nPosition = -1;
 170         }
 171     }
 172
 173     return nPosition;
 174 }