/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*
* 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 .
*/
#include "vbatemplate.hxx"
#include "vbaautotextentry.hxx"
#include <com/sun/star/text/AutoTextContainer.hpp>
#include <comphelper/processfactory.hxx>
#include <tools/urlobj.hxx>
#include <rtl/character.hxx>
#include <osl/file.hxx>
#include <utility>
using namespace ::ooo::vba;
using namespace ::com::sun::star;
static OUString lcl_CheckGroupName( std::u16string_view aGroupName )
{
OUStringBuffer sRet(aGroupName.size());
//group name should contain only A-Z and a-z and spaces
for ( size_t i = 0 ; i < aGroupName.size(); i++ )
{
sal_Unicode cChar = aGroupName[i];
if (rtl::isAsciiAlphanumeric(cChar) ||
cChar == '_' || cChar == 0 x20)
{
sRet.append(cChar);
}
}
sRet.strip(' ' );
return sRet.makeStringAndClear();
}
SwVbaTemplate::SwVbaTemplate( const uno::Reference< ooo::vba::XHelperInterface >& rParent, const uno::Reference< uno::XComponentContext >& rContext, OUString aFullUrl )
: SwVbaTemplate_BASE( rParent, rContext ), msFullUrl(std::move( aFullUrl ))
{
}
SwVbaTemplate::~SwVbaTemplate()
{
}
OUString
SwVbaTemplate::getName()
{
OUString sName;
if ( !msFullUrl.isEmpty() )
{
INetURLObject aURL( msFullUrl );
::osl::File::getSystemPathFromFileURL( aURL.GetLastName(), sName );
}
return sName;
}
OUString
SwVbaTemplate::getPath()
{
OUString sPath;
if ( !msFullUrl.isEmpty() )
{
INetURLObject aURL( msFullUrl );
OUString sURL( aURL.GetMainURL( INetURLObject::DecodeMechanism::ToIUri ) );
sURL = sURL.copy( 0 , sURL.getLength() - aURL.GetLastName().getLength() - 1 );
::osl::File::getSystemPathFromFileURL( sURL, sPath );
}
return sPath;
}
uno::Any SAL_CALL
SwVbaTemplate::AutoTextEntries( const uno::Any& index )
{
const uno::Reference< uno::XComponentContext >& xContext = comphelper::getProcessComponentContext();
uno::Reference< text::XAutoTextContainer2 > xAutoTextContainer = text::AutoTextContainer::create( xContext );
// the default template is "Normal.dot" in Word.
OUString sGroup(u"Normal" _ustr);
OUString sName = getName();
sal_Int32 nIndex = sName.lastIndexOf( '.' );
if ( nIndex > 0 )
{
sGroup = sName.copy( 0 , sName.lastIndexOf( '.' ) );
}
OUString sNewGroup = lcl_CheckGroupName( sGroup );
uno::Reference< container::XIndexAccess > xGroup;
if ( !xAutoTextContainer->hasByName( sNewGroup ) )
{
throw uno::RuntimeException(u"Auto Text Entry doesn't exist" _ustr );
}
xGroup.set( xAutoTextContainer->getByName( sNewGroup ), uno::UNO_QUERY_THROW );
uno::Reference< XCollection > xCol( new SwVbaAutoTextEntries( this , mxContext, xGroup ) );
if ( index.hasValue() )
return xCol->Item( index, uno::Any() );
return uno::Any( xCol );
}
OUString
SwVbaTemplate::getServiceImplName()
{
return u"SwVbaTemplate" _ustr;
}
uno::Sequence< OUString >
SwVbaTemplate::getServiceNames()
{
static uno::Sequence< OUString > const aServiceNames
{
u"ooo.vba.word.Template" _ustr
};
return aServiceNames;
}
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
Messung V0.5 in Prozent C=89 H=91 G=89
¤ Dauer der Verarbeitung: 0.4 Sekunden
¤
*© Formatika GbR, Deutschland