xref: /aoo41x/main/sc/source/ui/docshell/impex.cxx (revision 36795fb3)
1 /**************************************************************
2  *
3  * Licensed to the Apache Software Foundation (ASF) under one
4  * or more contributor license agreements.  See the NOTICE file
5  * distributed with this work for additional information
6  * regarding copyright ownership.  The ASF licenses this file
7  * to you under the Apache License, Version 2.0 (the
8  * "License"); you may not use this file except in compliance
9  * with the License.  You may obtain a copy of the License at
10  *
11  *   http://www.apache.org/licenses/LICENSE-2.0
12  *
13  * Unless required by applicable law or agreed to in writing,
14  * software distributed under the License is distributed on an
15  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16  * KIND, either express or implied.  See the License for the
17  * specific language governing permissions and limitations
18  * under the License.
19  *
20  *************************************************************/
21 
22 
23 
24 // MARKER(update_precomp.py): autogen include statement, do not remove
25 #include "precompiled_sc.hxx"
26 
27 // System - Includes -----------------------------------------------------
28 
29 class StarBASIC;
30 
31 
32 
33 #ifndef PCH
34 #include "sc.hrc"
35 #define GLOBALOVERFLOW
36 #endif
37 
38 // INCLUDE ---------------------------------------------------------------
39 
40 #include <stdio.h>
41 #include <ctype.h>
42 #include <stdlib.h>
43 #include <osl/endian.h>
44 #include <i18npool/mslangid.hxx>
45 #include <tools/list.hxx>
46 #include <tools/string.hxx>
47 #include <rtl/math.hxx>
48 #include <svtools/htmlout.hxx>
49 #include <svl/zforlist.hxx>
50 #define _SVSTDARR_ULONGS
51 #include <svl/svstdarr.hxx>
52 #include <sot/formats.hxx>
53 #include <sfx2/mieclip.hxx>
54 #include <unotools/charclass.hxx>
55 #include <unotools/collatorwrapper.hxx>
56 #include <unotools/calendarwrapper.hxx>
57 #include <com/sun/star/i18n/CalendarFieldIndex.hpp>
58 #include <unotools/transliterationwrapper.hxx>
59 
60 #include "global.hxx"
61 #include "scerrors.hxx"
62 #include "docsh.hxx"
63 #include "undoblk.hxx"
64 #include "rangenam.hxx"
65 #include "viewdata.hxx"
66 #include "tabvwsh.hxx"
67 #include "filter.hxx"
68 #include "asciiopt.hxx"
69 #include "cell.hxx"
70 #include "docoptio.hxx"
71 #include "progress.hxx"
72 #include "scitems.hxx"
73 #include "editable.hxx"
74 #include "compiler.hxx"
75 #include "warnbox.hxx"
76 
77 #include "impex.hxx"
78 
79 // ause
80 #include "editutil.hxx"
81 
82 #include "globstr.hrc"
83 #include <vcl/msgbox.hxx>
84 #include <vcl/svapp.hxx>
85 #include <osl/module.hxx>
86 
87 //========================================================================
88 
89 namespace
90 {
91     const String SYLK_LF = String::CreateFromAscii("\x1b :");
92     const String DOUBLE_SEMICOLON = String::CreateFromAscii(";;");
93     const String DOUBLE_DOUBLEQUOTE = String::CreateFromAscii("\"\"");
94 }
95 
96 enum SylkVersion
97 {
98     SYLK_SCALC3,    // Wrote wrongly quoted strings and unescaped semicolons.
99     SYLK_OOO32,     // Correct strings, plus multiline content.
100     SYLK_OWN,       // Place our new versions, if any, before this value.
101     SYLK_OTHER      // Assume that aliens wrote correct strings.
102 };
103 
104 
105 // Gesamtdokument ohne Undo
106 
107 
ScImportExport(ScDocument * p)108 ScImportExport::ScImportExport( ScDocument* p )
109     : pDocSh( PTR_CAST(ScDocShell,p->GetDocumentShell()) ), pDoc( p ),
110       nSizeLimit( 0 ), cSep( '\t' ), cStr( '"' ),
111       bFormulas( sal_False ), bIncludeFiltered( sal_True ),
112       bAll( sal_True ), bSingle( sal_True ), bUndo( sal_False ),
113       bOverflow( sal_False ), mbApi( true ), mExportTextOptions()
114 {
115 	pUndoDoc = NULL;
116 	pExtOptions = NULL;
117 }
118 
119 // Insert am Punkt ohne Bereichschecks
120 
121 
ScImportExport(ScDocument * p,const ScAddress & rPt)122 ScImportExport::ScImportExport( ScDocument* p, const ScAddress& rPt )
123     : pDocSh( PTR_CAST(ScDocShell,p->GetDocumentShell()) ), pDoc( p ),
124 	  aRange( rPt ),
125       nSizeLimit( 0 ), cSep( '\t' ), cStr( '"' ),
126       bFormulas( sal_False ), bIncludeFiltered( sal_True ),
127       bAll( sal_False ), bSingle( sal_True ), bUndo( sal_Bool( pDocSh != NULL ) ),
128       bOverflow( sal_False ), mbApi( true ), mExportTextOptions()
129 {
130 	pUndoDoc = NULL;
131 	pExtOptions = NULL;
132 }
133 
134 
135 //	ctor with a range is only used for export
136 //!	ctor with a string (and bSingle=sal_True) is also used for DdeSetData
137 
ScImportExport(ScDocument * p,const ScRange & r)138 ScImportExport::ScImportExport( ScDocument* p, const ScRange& r )
139     : pDocSh( PTR_CAST(ScDocShell,p->GetDocumentShell()) ), pDoc( p ),
140 	  aRange( r ),
141       nSizeLimit( 0 ), cSep( '\t' ), cStr( '"' ),
142       bFormulas( sal_False ), bIncludeFiltered( sal_True ),
143       bAll( sal_False ), bSingle( sal_False ), bUndo( sal_Bool( pDocSh != NULL ) ),
144       bOverflow( sal_False ), mbApi( true ), mExportTextOptions()
145 {
146 	pUndoDoc = NULL;
147 	pExtOptions = NULL;
148 	// Zur Zeit nur in einer Tabelle!
149 	aRange.aEnd.SetTab( aRange.aStart.Tab() );
150 }
151 
152 // String auswerten: Entweder Bereich, Punkt oder Gesamtdoc (bei Fehler)
153 // Falls eine View existiert, wird die TabNo der View entnommen!
154 
155 
ScImportExport(ScDocument * p,const String & rPos)156 ScImportExport::ScImportExport( ScDocument* p, const String& rPos )
157     : pDocSh( PTR_CAST(ScDocShell,p->GetDocumentShell()) ), pDoc( p ),
158       nSizeLimit( 0 ), cSep( '\t' ), cStr( '"' ),
159       bFormulas( sal_False ), bIncludeFiltered( sal_True ),
160       bAll( sal_False ), bSingle( sal_True ), bUndo( sal_Bool( pDocSh != NULL ) ),
161       bOverflow( sal_False ), mbApi( true ), mExportTextOptions()
162 {
163 	pUndoDoc = NULL;
164 	pExtOptions = NULL;
165 
166 	SCTAB nTab = ScDocShell::GetCurTab();
167 	aRange.aStart.SetTab( nTab );
168 	String aPos( rPos );
169 	//  Benannter Bereich?
170 	ScRangeName* pRange = pDoc->GetRangeName();
171 	if( pRange )
172 	{
173 		sal_uInt16 nPos;
174 		if( pRange->SearchName( aPos, nPos ) )
175 		{
176 			ScRangeData* pData = (*pRange)[ nPos ];
177 			if( pData->HasType( RT_REFAREA )
178 				|| pData->HasType( RT_ABSAREA )
179 				|| pData->HasType( RT_ABSPOS ) )
180 				pData->GetSymbol( aPos );					// mit dem Inhalt weitertesten
181 		}
182 	}
183     formula::FormulaGrammar::AddressConvention eConv = pDoc->GetAddressConvention();
184 	// Bereich?
185 	if( aRange.Parse( aPos, pDoc, eConv ) & SCA_VALID )
186 		bSingle = sal_False;
187 	// Zelle?
188 	else if( aRange.aStart.Parse( aPos, pDoc, eConv ) & SCA_VALID )
189 		aRange.aEnd = aRange.aStart;
190 	else
191 		bAll = sal_True;
192 }
193 
194 
~ScImportExport()195 ScImportExport::~ScImportExport()
196 {
197 	delete pUndoDoc;
198 	delete pExtOptions;
199 }
200 
201 
SetExtOptions(const ScAsciiOptions & rOpt)202 void ScImportExport::SetExtOptions( const ScAsciiOptions& rOpt )
203 {
204 	if ( pExtOptions )
205 		*pExtOptions = rOpt;
206 	else
207 		pExtOptions = new ScAsciiOptions( rOpt );
208 
209 	//	"normale" Optionen uebernehmen
210 
211 	cSep = rOpt.GetFieldSeps().GetChar(0);
212 	cStr = rOpt.GetTextSep();
213 }
214 
215 
IsFormatSupported(sal_uLong nFormat)216 sal_Bool ScImportExport::IsFormatSupported( sal_uLong nFormat )
217 {
218 	return sal_Bool( nFormat == FORMAT_STRING
219 			  || nFormat == SOT_FORMATSTR_ID_SYLK
220 			  || nFormat == SOT_FORMATSTR_ID_LINK
221 			  || nFormat == SOT_FORMATSTR_ID_HTML
222 			  || nFormat == SOT_FORMATSTR_ID_HTML_SIMPLE
223 			  || nFormat == SOT_FORMATSTR_ID_DIF );
224 }
225 
226 
227 //////////////////////////////////////////////////////////////////////////////
228 
229 // Vorbereitung fuer Undo: Undo-Dokument erzeugen
230 
231 
StartPaste()232 sal_Bool ScImportExport::StartPaste()
233 {
234 	if ( !bAll )
235 	{
236 		ScEditableTester aTester( pDoc, aRange );
237 		if ( !aTester.IsEditable() )
238 		{
239 			InfoBox aInfoBox(Application::GetDefDialogParent(),
240 								ScGlobal::GetRscString( aTester.GetMessageId() ) );
241 			aInfoBox.Execute();
242 			return sal_False;
243 		}
244 	}
245 	if( bUndo && pDocSh && pDoc->IsUndoEnabled())
246 	{
247 		pUndoDoc = new ScDocument( SCDOCMODE_UNDO );
248 		pUndoDoc->InitUndo( pDoc, aRange.aStart.Tab(), aRange.aEnd.Tab() );
249         pDoc->CopyToDocument( aRange, IDF_ALL | IDF_NOCAPTIONS, sal_False, pUndoDoc );
250 	}
251 	return sal_True;
252 }
253 
254 // Nachbereitung Insert: Undo/Redo-Aktionen erzeugen, Invalidate/Repaint
255 
256 
EndPaste()257 void ScImportExport::EndPaste()
258 {
259 	sal_Bool bHeight = pDocSh && pDocSh->AdjustRowHeight(
260 					aRange.aStart.Row(), aRange.aEnd.Row(), aRange.aStart.Tab() );
261 
262 	if( pUndoDoc && pDoc->IsUndoEnabled() )
263 	{
264 		ScDocument* pRedoDoc = new ScDocument( SCDOCMODE_UNDO );
265 		pRedoDoc->InitUndo( pDoc, aRange.aStart.Tab(), aRange.aEnd.Tab() );
266         pDoc->CopyToDocument( aRange, IDF_ALL | IDF_NOCAPTIONS, sal_False, pRedoDoc );
267 		ScMarkData aDestMark;
268 		aDestMark.SelectOneTable( aRange.aStart.Tab() );
269 		pDocSh->GetUndoManager()->AddUndoAction(
270 			new ScUndoPaste( pDocSh,
271 				aRange.aStart.Col(), aRange.aStart.Row(), aRange.aStart.Tab(),
272 				aRange.aEnd.Col(), aRange.aEnd.Row(), aRange.aEnd.Tab(), aDestMark,
273                 pUndoDoc, pRedoDoc, IDF_ALL, NULL,NULL,NULL,NULL ) );
274 	}
275 	pUndoDoc = NULL;
276 	if( pDocSh )
277 	{
278 		if (!bHeight)
279 			pDocSh->PostPaint( aRange, PAINT_GRID );	// AdjustRowHeight paintet evtl. selber
280 		pDocSh->SetDocumentModified();
281 	}
282 	ScTabViewShell* pViewSh = ScTabViewShell::GetActiveViewShell();
283 	if ( pViewSh )
284 		pViewSh->UpdateInputHandler();
285 
286 }
287 
288 /////////////////////////////////////////////////////////////////////////////
289 
290 
291 #if 0
292 sal_Bool ScImportExport::ImportData( SvData& rData )
293 {
294 	sal_uLong nFmt = rData.GetFormat();
295 	if ( nFmt == SOT_FORMATSTR_ID_HTML_SIMPLE )
296 	{
297 		MSE40HTMLClipFormatObj aMSE40ClpObj;
298 		if ( aMSE40ClpObj.GetData( rData ) )
299 		{
300 			SvStream* pStream = aMSE40ClpObj.GetStream();
301 			return ImportStream( *pStream, nFmt );
302 		}
303 		return sal_False;
304 	}
305 	else
306 	{
307 		void* pMem;
308 		sal_uLong nSize = rData.GetMinMemorySize();
309 		rData.GetData( &pMem, TRANSFER_REFERENCE );
310 		if( nFmt == FORMAT_STRING
311 	 			|| nFmt == FORMAT_RTF
312 	 			|| nFmt == SOT_FORMATSTR_ID_SYLK
313 	 			|| nFmt == SOT_FORMATSTR_ID_HTML
314 	 			|| nFmt == SOT_FORMATSTR_ID_DIF )
315 		{
316 			//!	String? Unicode??
317 
318 			// Stringende ermitteln!
319 			sal_Char* pBegin = (sal_Char*) pMem;
320 			sal_Char* pEnd   = (sal_Char*) pMem + nSize;
321 
322 			nSize = 0;
323 			while( pBegin != pEnd && *pBegin != '\0' )
324 				pBegin++, nSize++;
325 			// #72909# MT says only STRING has to be zero-terminated
326 			DBG_ASSERT( pBegin != pEnd || nFmt != FORMAT_STRING, "non zero-terminated String" )
327 		}
328 		SvMemoryStream aStrm( pMem, nSize, STREAM_READ );
329 		return ImportStream( aStrm, nFmt );
330 	}
331 }
332 
333 #endif
334 
ImportData(const String &,const::com::sun::star::uno::Any &)335 sal_Bool ScImportExport::ImportData( const String& /* rMimeType */,
336                      const ::com::sun::star::uno::Any & /* rValue */ )
337 {
338 	DBG_ASSERT( !this, "Implementation is missing" );
339 	return sal_False;
340 }
341 
ExportData(const String & rMimeType,::com::sun::star::uno::Any & rValue)342 sal_Bool ScImportExport::ExportData( const String& rMimeType,
343 								 ::com::sun::star::uno::Any & rValue )
344 {
345 	SvMemoryStream aStrm;
346     // mba: no BaseURL for data exchange
347     if( ExportStream( aStrm, String(),
348 				SotExchange::GetFormatIdFromMimeType( rMimeType ) ))
349 	{
350 		aStrm << (sal_uInt8) 0;
351 		rValue <<= ::com::sun::star::uno::Sequence< sal_Int8 >(
352 										(sal_Int8*)aStrm.GetData(),
353 										aStrm.Seek( STREAM_SEEK_TO_END ) );
354 		return sal_True;
355 	}
356 	return sal_False;
357 }
358 
359 
ImportString(const::rtl::OUString & rText,sal_uLong nFmt)360 sal_Bool ScImportExport::ImportString( const ::rtl::OUString& rText, sal_uLong nFmt )
361 {
362 	switch ( nFmt )
363 	{
364 		// formats supporting unicode
365 		case FORMAT_STRING :
366 		{
367             ScImportStringStream aStrm( rText);
368             return ImportStream( aStrm, String(), nFmt );
369 			// ImportStream must handle RTL_TEXTENCODING_UNICODE
370 		}
371         //break;
372 		default:
373 		{
374 			rtl_TextEncoding eEnc = gsl_getSystemTextEncoding();
375             ::rtl::OString aTmp( rText.getStr(), rText.getLength(), eEnc );
376             SvMemoryStream aStrm( (void*)aTmp.getStr(), aTmp.getLength() * sizeof(sal_Char), STREAM_READ );
377 			aStrm.SetStreamCharSet( eEnc );
378 			SetNoEndianSwap( aStrm );		//! no swapping in memory
379             return ImportStream( aStrm, String(), nFmt );
380 		}
381 	}
382 }
383 
384 
ExportString(::rtl::OUString & rText,sal_uLong nFmt)385 sal_Bool ScImportExport::ExportString( ::rtl::OUString& rText, sal_uLong nFmt )
386 {
387 	DBG_ASSERT( nFmt == FORMAT_STRING, "ScImportExport::ExportString: Unicode not supported for other formats than FORMAT_STRING" );
388 	if ( nFmt != FORMAT_STRING )
389 	{
390 		rtl_TextEncoding eEnc = gsl_getSystemTextEncoding();
391 		ByteString aTmp;
392 		sal_Bool bOk = ExportByteString( aTmp, eEnc, nFmt );
393 		rText = UniString( aTmp, eEnc );
394 		return bOk;
395 	}
396 	//	nSizeLimit not needed for OUString
397 
398 	SvMemoryStream aStrm;
399 	aStrm.SetStreamCharSet( RTL_TEXTENCODING_UNICODE );
400 	SetNoEndianSwap( aStrm );		//! no swapping in memory
401     // mba: no BaseURL for data exc
402     if( ExportStream( aStrm, String(), nFmt ) )
403 	{
404 		aStrm << (sal_Unicode) 0;
405 		aStrm.Seek( STREAM_SEEK_TO_END );
406 
407 		rText = rtl::OUString( (const sal_Unicode*) aStrm.GetData() );
408 		return sal_True;
409 	}
410 	rText = rtl::OUString();
411 	return sal_False;
412 
413 	// ExportStream must handle RTL_TEXTENCODING_UNICODE
414 }
415 
416 
ExportByteString(ByteString & rText,rtl_TextEncoding eEnc,sal_uLong nFmt)417 sal_Bool ScImportExport::ExportByteString( ByteString& rText, rtl_TextEncoding eEnc, sal_uLong nFmt )
418 {
419 	DBG_ASSERT( eEnc != RTL_TEXTENCODING_UNICODE, "ScImportExport::ExportByteString: Unicode not supported" );
420 	if ( eEnc == RTL_TEXTENCODING_UNICODE )
421 		eEnc = gsl_getSystemTextEncoding();
422 
423 	if (!nSizeLimit)
424 		nSizeLimit = STRING_MAXLEN;
425 
426 	SvMemoryStream aStrm;
427 	aStrm.SetStreamCharSet( eEnc );
428 	SetNoEndianSwap( aStrm );		//! no swapping in memory
429     // mba: no BaseURL for data exchange
430     if( ExportStream( aStrm, String(), nFmt ) )
431 	{
432 		aStrm << (sal_Char) 0;
433 		aStrm.Seek( STREAM_SEEK_TO_END );
434 		// Sicherheits-Check:
435 		if( aStrm.Tell() <= (sal_uLong) STRING_MAXLEN )
436 		{
437 			rText = (const sal_Char*) aStrm.GetData();
438 			return sal_True;
439 		}
440 	}
441 	rText.Erase();
442 	return sal_False;
443 }
444 
445 
ImportStream(SvStream & rStrm,const String & rBaseURL,sal_uLong nFmt)446 sal_Bool ScImportExport::ImportStream( SvStream& rStrm, const String& rBaseURL, sal_uLong nFmt )
447 {
448 	if( nFmt == FORMAT_STRING )
449 	{
450 		if( ExtText2Doc( rStrm ) )		// pExtOptions auswerten
451 			return sal_True;
452 	}
453 	if( nFmt == SOT_FORMATSTR_ID_SYLK )
454 	{
455 		if( Sylk2Doc( rStrm ) )
456 			return sal_True;
457 	}
458 	if( nFmt == SOT_FORMATSTR_ID_DIF )
459 	{
460 		if( Dif2Doc( rStrm ) )
461 			return sal_True;
462 	}
463 	if( nFmt == FORMAT_RTF )
464 	{
465         if( RTF2Doc( rStrm, rBaseURL ) )
466 			return sal_True;
467 	}
468 	if( nFmt == SOT_FORMATSTR_ID_LINK )
469 		return sal_True;			// Link-Import?
470 	if ( nFmt == SOT_FORMATSTR_ID_HTML )
471 	{
472         if( HTML2Doc( rStrm, rBaseURL ) )
473 			return sal_True;
474 	}
475 	if ( nFmt == SOT_FORMATSTR_ID_HTML_SIMPLE )
476 	{
477 		MSE40HTMLClipFormatObj aMSE40ClpObj;				// needed to skip the header data
478 		SvStream* pHTML = aMSE40ClpObj.IsValid( rStrm );
479         if ( pHTML && HTML2Doc( *pHTML, rBaseURL ) )
480 			return sal_True;
481 	}
482 
483 	return sal_False;
484 }
485 
486 
ExportStream(SvStream & rStrm,const String & rBaseURL,sal_uLong nFmt)487 sal_Bool ScImportExport::ExportStream( SvStream& rStrm, const String& rBaseURL, sal_uLong nFmt )
488 {
489 	if( nFmt == FORMAT_STRING )
490 	{
491 		if( Doc2Text( rStrm ) )
492 			return sal_True;
493 	}
494 	if( nFmt == SOT_FORMATSTR_ID_SYLK )
495 	{
496 		if( Doc2Sylk( rStrm ) )
497 			return sal_True;
498 	}
499 	if( nFmt == SOT_FORMATSTR_ID_DIF )
500 	{
501 		if( Doc2Dif( rStrm ) )
502 			return sal_True;
503 	}
504 	if( nFmt == SOT_FORMATSTR_ID_LINK && !bAll )
505 	{
506 		String aDocName;
507 		if ( pDoc->IsClipboard() )
508 			aDocName = ScGlobal::GetClipDocName();
509 		else
510 		{
511 			SfxObjectShell* pShell = pDoc->GetDocumentShell();
512 			if (pShell)
513 				aDocName = pShell->GetTitle( SFX_TITLE_FULLNAME );
514 		}
515 
516 		DBG_ASSERT( aDocName.Len(), "ClipBoard document has no name! :-/" );
517 		if( aDocName.Len() )
518 		{
519 			String aRefName;
520 			sal_uInt16 nFlags = SCA_VALID | SCA_TAB_3D;
521 			if( bSingle )
522 				aRange.aStart.Format( aRefName, nFlags, pDoc, pDoc->GetAddressConvention() );
523 			else
524 			{
525 				if( aRange.aStart.Tab() != aRange.aEnd.Tab() )
526 					nFlags |= SCA_TAB2_3D;
527 				aRange.Format( aRefName, nFlags, pDoc );
528 			}
529 			String aAppName = Application::GetAppName();
530 
531 			WriteUnicodeOrByteString( rStrm, aAppName, sal_True );
532 			WriteUnicodeOrByteString( rStrm, aDocName, sal_True );
533 			WriteUnicodeOrByteString( rStrm, aRefName, sal_True );
534 			if ( rStrm.GetStreamCharSet() == RTL_TEXTENCODING_UNICODE )
535 				rStrm << sal_Unicode(0);
536 			else
537 				rStrm << sal_Char(0);
538 			return sal_Bool( rStrm.GetError() == SVSTREAM_OK );
539 		}
540 	}
541 	if( nFmt == SOT_FORMATSTR_ID_HTML )
542 	{
543         if( Doc2HTML( rStrm, rBaseURL ) )
544 			return sal_True;
545 	}
546 	if( nFmt == FORMAT_RTF )
547 	{
548 		if( Doc2RTF( rStrm ) )
549 			return sal_True;
550 	}
551 
552 	return sal_False;
553 }
554 
555 
556 //static
WriteUnicodeOrByteString(SvStream & rStrm,const String & rString,sal_Bool bZero)557 void ScImportExport::WriteUnicodeOrByteString( SvStream& rStrm, const String& rString, sal_Bool bZero )
558 {
559 	rtl_TextEncoding eEnc = rStrm.GetStreamCharSet();
560 	if ( eEnc == RTL_TEXTENCODING_UNICODE )
561 	{
562 		if ( !IsEndianSwap( rStrm ) )
563 			rStrm.Write( rString.GetBuffer(), rString.Len() * sizeof(sal_Unicode) );
564 		else
565 		{
566 			const sal_Unicode* p = rString.GetBuffer();
567 			const sal_Unicode* const pStop = p + rString.Len();
568 			while ( p < pStop )
569 			{
570 				rStrm << *p;
571 			}
572 		}
573 		if ( bZero )
574 			rStrm << sal_Unicode(0);
575 	}
576 	else
577 	{
578 		ByteString aByteStr( rString, eEnc );
579 		rStrm << aByteStr.GetBuffer();
580 		if ( bZero )
581 			rStrm << sal_Char(0);
582 	}
583 }
584 
585 
586 // This function could be replaced by endlub()
587 // static
WriteUnicodeOrByteEndl(SvStream & rStrm)588 void ScImportExport::WriteUnicodeOrByteEndl( SvStream& rStrm )
589 {
590 	if ( rStrm.GetStreamCharSet() == RTL_TEXTENCODING_UNICODE )
591 	{	// same as endl() but unicode
592 		switch ( rStrm.GetLineDelimiter() )
593 		{
594 			case LINEEND_CR :
595 				rStrm << sal_Unicode(_CR);
596 			break;
597 			case LINEEND_LF :
598 				rStrm << sal_Unicode(_LF);
599 			break;
600 			default:
601 				rStrm << sal_Unicode(_CR) << sal_Unicode(_LF);
602 		}
603 	}
604 	else
605 		endl( rStrm );
606 }
607 
608 
609 enum DoubledQuoteMode
610 {
611 	DQM_KEEP,		// both are taken
612 	DQM_ESCAPE,		// escaped quote, one is taken, one ignored
613 	DQM_CONCAT,		// first is end, next is start, both ignored => strings combined
614 	DQM_SEPARATE	// end one string and begin next
615 };
616 
lcl_ScanString(const sal_Unicode * p,String & rString,sal_Unicode cStr,DoubledQuoteMode eMode)617 static const sal_Unicode* lcl_ScanString( const sal_Unicode* p, String& rString,
618 			sal_Unicode cStr, DoubledQuoteMode eMode )
619 {
620 	p++;	//! jump over opening quote
621 	sal_Bool bCont;
622 	do
623 	{
624 		bCont = sal_False;
625 		const sal_Unicode* p0 = p;
626 		for( ;; )
627 		{
628 			if( !*p )
629 				break;
630 			if( *p == cStr )
631 			{
632 				if ( *++p != cStr )
633 					break;
634 				// doubled quote char
635 				switch ( eMode )
636 				{
637 					case DQM_KEEP :
638 						p++;			// both for us (not breaking for-loop)
639 					break;
640 					case DQM_ESCAPE :
641 						p++;			// one for us (breaking for-loop)
642 						bCont = sal_True;	// and more
643 					break;
644 					case DQM_CONCAT :
645 						if ( p0+1 < p )
646                             rString.Append( p0, sal::static_int_cast<xub_StrLen>( (p-1) - p0 ) );  // first part
647 						p0 = ++p;		// text of next part starts here
648 					break;
649 					case DQM_SEPARATE :
650 										// positioned on next opening quote
651 					break;
652 				}
653 				if ( eMode == DQM_ESCAPE || eMode == DQM_SEPARATE )
654 					break;
655 			}
656 			else
657 				p++;
658 		}
659 		if ( p0 < p )
660             rString.Append( p0, sal::static_int_cast<xub_StrLen>( ((*p || *(p-1) == cStr) ? p-1 : p) - p0 ) );
661 	} while ( bCont );
662 	return p;
663 }
664 
lcl_UnescapeSylk(String & rString,SylkVersion eVersion)665 void lcl_UnescapeSylk( String & rString, SylkVersion eVersion )
666 {
667     // Older versions didn't escape the semicolon.
668     // Older versions quoted the string and doubled embedded quotes, but not
669     // the semicolons, which was plain wrong.
670     if (eVersion >= SYLK_OOO32)
671         rString.SearchAndReplaceAll( DOUBLE_SEMICOLON, ';' );
672     else
673         rString.SearchAndReplaceAll( DOUBLE_DOUBLEQUOTE, '"' );
674 
675     rString.SearchAndReplaceAll( SYLK_LF, _LF );
676 }
677 
lcl_ScanSylkString(const sal_Unicode * p,String & rString,SylkVersion eVersion)678 static const sal_Unicode* lcl_ScanSylkString( const sal_Unicode* p,
679         String& rString, SylkVersion eVersion )
680 {
681     const sal_Unicode* pStartQuote = p;
682     const sal_Unicode* pEndQuote = 0;
683     while( *(++p) )
684     {
685         if( *p == '"' )
686         {
687             pEndQuote = p;
688             if (eVersion >= SYLK_OOO32)
689             {
690                 if (*(p+1) == ';')
691                 {
692                     if (*(p+2) == ';')
693                     {
694                         p += 2;     // escaped ';'
695                         pEndQuote = 0;
696                     }
697                     else
698                         break;      // end field
699                 }
700             }
701             else
702             {
703                 if (*(p+1) == '"')
704                 {
705                     ++p;            // escaped '"'
706                     pEndQuote = 0;
707                 }
708                 else if (*(p+1) == ';')
709                     break;          // end field
710             }
711         }
712     }
713     if (!pEndQuote)
714         pEndQuote = p;  // Take all data as string.
715     rString.Append( pStartQuote + 1, sal::static_int_cast<xub_StrLen>( pEndQuote - pStartQuote - 1 ) );
716     lcl_UnescapeSylk( rString, eVersion);
717     return p;
718 }
719 
lcl_ScanSylkFormula(const sal_Unicode * p,String & rString,SylkVersion eVersion)720 static const sal_Unicode* lcl_ScanSylkFormula( const sal_Unicode* p,
721         String& rString, SylkVersion eVersion )
722 {
723     const sal_Unicode* pStart = p;
724     if (eVersion >= SYLK_OOO32)
725     {
726         while (*p)
727         {
728             if (*p == ';')
729             {
730                 if (*(p+1) == ';')
731                     ++p;        // escaped ';'
732                 else
733                     break;      // end field
734             }
735             ++p;
736         }
737         rString.Append( pStart, sal::static_int_cast<xub_StrLen>( p - pStart));
738         lcl_UnescapeSylk( rString, eVersion);
739     }
740     else
741     {
742         // Nasty. If in old versions the formula contained a semicolon, it was
743         // quoted and embedded quotes were doubled, but semicolons were not. If
744         // there was no semicolon, it could still contain quotes and doubled
745         // embedded quotes if it was something like ="a""b", which was saved as
746         // E"a""b" as is and has to be preserved, even if older versions
747         // couldn't even load it correctly. However, theoretically another
748         // field might follow and thus the line contain a semicolon again, such
749         // as ...;E"a""b";...
750         bool bQuoted = false;
751         if (*p == '"')
752         {
753             // May be a quoted expression or just a string constant expression
754             // with quotes.
755             while (*(++p))
756             {
757                 if (*p == '"')
758                 {
759                     if (*(p+1) == '"')
760                         ++p;            // escaped '"'
761                     else
762                         break;          // closing '"', had no ';' yet
763                 }
764                 else if (*p == ';')
765                 {
766                     bQuoted = true;     // ';' within quoted expression
767                     break;
768                 }
769             }
770             p = pStart;
771         }
772         if (bQuoted)
773             p = lcl_ScanSylkString( p, rString, eVersion);
774         else
775         {
776             while (*p && *p != ';')
777                 ++p;
778             rString.Append( pStart, sal::static_int_cast<xub_StrLen>( p - pStart));
779         }
780     }
781     return p;
782 }
783 
lcl_DoubleEscapeChar(String & rString,sal_Unicode cStr)784 static void lcl_DoubleEscapeChar( String& rString, sal_Unicode cStr )
785 {
786 	xub_StrLen n = 0;
787 	while( ( n = rString.Search( cStr, n ) ) != STRING_NOTFOUND )
788 	{
789 		rString.Insert( cStr, n );
790 		n += 2;
791 	}
792 }
793 
lcl_WriteString(SvStream & rStrm,String & rString,sal_Unicode cQuote,sal_Unicode cEsc)794 static void lcl_WriteString( SvStream& rStrm, String& rString, sal_Unicode cQuote, sal_Unicode cEsc )
795 {
796     if (cEsc)
797         lcl_DoubleEscapeChar( rString, cEsc );
798 
799     if (cQuote)
800     {
801         rString.Insert( cQuote, 0 );
802         rString.Append( cQuote );
803     }
804 
805 	ScImportExport::WriteUnicodeOrByteString( rStrm, rString );
806 }
807 
lcl_WriteSimpleString(SvStream & rStrm,const String & rString)808 inline void lcl_WriteSimpleString( SvStream& rStrm, const String& rString )
809 {
810 	ScImportExport::WriteUnicodeOrByteString( rStrm, rString );
811 }
812 
813 //////////////////////////////////////////////////////////////////////////////
814 
815 
Text2Doc(SvStream & rStrm)816 sal_Bool ScImportExport::Text2Doc( SvStream& rStrm )
817 {
818 	sal_Bool bOk = sal_True;
819 
820 	SCCOL nStartCol = aRange.aStart.Col();
821 	SCROW nStartRow = aRange.aStart.Row();
822 	SCCOL nEndCol = aRange.aEnd.Col();
823 	SCROW nEndRow = aRange.aEnd.Row();
824 	sal_uLong  nOldPos = rStrm.Tell();
825     rStrm.StartReadingUnicodeText( rStrm.GetStreamCharSet() );
826 	sal_Bool   bData = sal_Bool( !bSingle );
827 	if( !bSingle)
828 		bOk = StartPaste();
829 
830 	while( bOk )
831 	{
832 		ByteString aByteLine;
833 		String aLine, aCell;
834 		SCROW nRow = nStartRow;
835 		rStrm.Seek( nOldPos );
836 		for( ;; )
837 		{
838 			rStrm.ReadUniOrByteStringLine( aLine );
839 			if( rStrm.IsEof() )
840 				break;
841 			SCCOL nCol = nStartCol;
842 			const sal_Unicode* p = aLine.GetBuffer();
843 			while( *p )
844 			{
845 				aCell.Erase();
846 
847 				if( *p == cStr )//cStr = "
848 				{
849 					p = lcl_ScanString( p, aCell, cStr, DQM_KEEP );
850 				}
851 
852 				const sal_Unicode* q = p;
853 				while( *p && *p != cSep )// cSep = tab
854 					p++;
855 
856                 aCell.Append( q, sal::static_int_cast<xub_StrLen>( p - q ) );
857 
858 				if( *p )
859 					p++;
860 				if (ValidCol(nCol) && ValidRow(nRow) )
861 				{
862 					if( bSingle )
863 					{
864 						if (nCol>nEndCol) nEndCol = nCol;
865 						if (nRow>nEndRow) nEndRow = nRow;
866 					}
867 					if( bData && nCol <= nEndCol && nRow <= nEndRow )
868 						pDoc->SetString( nCol, nRow, aRange.aStart.Tab(), aCell );
869 				}
870 				else							// zuviele Spalten/Zeilen
871 					bOverflow = sal_True;			// beim Import Warnung ausgeben
872 				++nCol;
873 			}
874 			++nRow;
875 		}
876 
877 		if( !bData )
878 		{
879 			aRange.aEnd.SetCol( nEndCol );
880 			aRange.aEnd.SetRow( nEndRow );
881 			bOk = StartPaste();
882 			bData = sal_True;
883 		}
884 		else
885 			break;
886 	}
887 
888 	EndPaste();
889 	return bOk;
890 }
891 
892 		//
893 		//	erweiterter Ascii-Import
894 		//
895 
896 
lcl_PutString(ScDocument * pDoc,SCCOL nCol,SCROW nRow,SCTAB nTab,const String & rStr,sal_uInt8 nColFormat,SvNumberFormatter * pFormatter,bool bDetectNumFormat,::utl::TransliterationWrapper & rTransliteration,CalendarWrapper & rCalendar,::utl::TransliterationWrapper * pSecondTransliteration,CalendarWrapper * pSecondCalendar)897 static bool lcl_PutString(
898     ScDocument* pDoc, SCCOL nCol, SCROW nRow, SCTAB nTab, const String& rStr, sal_uInt8 nColFormat,
899     SvNumberFormatter* pFormatter, bool bDetectNumFormat,
900     ::utl::TransliterationWrapper& rTransliteration, CalendarWrapper& rCalendar,
901     ::utl::TransliterationWrapper* pSecondTransliteration, CalendarWrapper* pSecondCalendar )
902 {
903     bool bMultiLine = false;
904 	if ( nColFormat == SC_COL_SKIP || !rStr.Len() || !ValidCol(nCol) || !ValidRow(nRow) )
905 		return bMultiLine;
906 
907 	if ( nColFormat == SC_COL_TEXT )
908 	{
909 		pDoc->PutCell( nCol, nRow, nTab, ScBaseCell::CreateTextCell( rStr, pDoc ) );
910 		return bMultiLine;
911 	}
912 
913 	if ( nColFormat == SC_COL_ENGLISH )
914 	{
915 		//!	SetString mit Extra-Flag ???
916 
917         SvNumberFormatter* pDocFormatter = pDoc->GetFormatTable();
918         sal_uInt32 nEnglish = pDocFormatter->GetStandardIndex(LANGUAGE_ENGLISH_US);
919 		double fVal;
920         if ( pDocFormatter->IsNumberFormat( rStr, nEnglish, fVal ) )
921 		{
922 			//	Zahlformat wird nicht auf englisch gesetzt
923 			pDoc->SetValue( nCol, nRow, nTab, fVal );
924 			return bMultiLine;
925 		}
926 		//	sonst weiter mit SetString
927 	}
928 	else if ( nColFormat != SC_COL_STANDARD )					// Datumsformate
929 	{
930         const sal_uInt16 nMaxNumberParts = 7;   // Y-M-D h:m:s.t
931 		xub_StrLen nLen = rStr.Len();
932 		xub_StrLen nStart[nMaxNumberParts];
933 		xub_StrLen nEnd[nMaxNumberParts];
934 
935         sal_uInt16 nDP, nMP, nYP;
936         switch ( nColFormat )
937         {
938             case SC_COL_YMD: nDP = 2; nMP = 1; nYP = 0; break;
939             case SC_COL_MDY: nDP = 1; nMP = 0; nYP = 2; break;
940             case SC_COL_DMY:
941             default:         nDP = 0; nMP = 1; nYP = 2; break;
942         }
943 
944 		sal_uInt16 nFound = 0;
945 		sal_Bool bInNum = sal_False;
946         for ( xub_StrLen nPos=0; nPos<nLen && (bInNum ||
947                     nFound<nMaxNumberParts); nPos++ )
948 		{
949             if (bInNum && nFound == 3 && nColFormat == SC_COL_YMD &&
950                     nPos <= nStart[nFound]+2 && rStr.GetChar(nPos) == 'T')
951                 bInNum = sal_False;     // ISO-8601: YYYY-MM-DDThh:mm...
952             else if ((((!bInNum && nFound==nMP) || (bInNum && nFound==nMP+1))
953                         && ScGlobal::pCharClass->isLetterNumeric( rStr, nPos))
954                     || ScGlobal::pCharClass->isDigit( rStr, nPos))
955 			{
956                 if (!bInNum)
957                 {
958                     bInNum = sal_True;
959                     nStart[nFound] = nPos;
960                     ++nFound;
961                 }
962                 nEnd[nFound-1] = nPos;
963 			}
964 			else
965 				bInNum = sal_False;
966 		}
967 
968 		if ( nFound == 1 )
969 		{
970 			//	try to break one number (without separators) into date fields
971 
972 			xub_StrLen nDateStart = nStart[0];
973 			xub_StrLen nDateLen = nEnd[0] + 1 - nDateStart;
974 
975 			if ( nDateLen >= 5 && nDateLen <= 8 &&
976 					ScGlobal::pCharClass->isNumeric( rStr.Copy( nDateStart, nDateLen ) ) )
977 			{
978 				//	6 digits: 2 each for day, month, year
979 				//	8 digits: 4 for year, 2 each for day and month
980 				//	5 or 7 digits: first field is shortened by 1
981 
982 				sal_Bool bLongYear = ( nDateLen >= 7 );
983 				sal_Bool bShortFirst = ( nDateLen == 5 || nDateLen == 7 );
984 
985 				sal_uInt16 nFieldStart = nDateStart;
986 				for (sal_uInt16 nPos=0; nPos<3; nPos++)
987 				{
988 					sal_uInt16 nFieldEnd = nFieldStart + 1;		// default: 2 digits
989 					if ( bLongYear && nPos == nYP )
990 						nFieldEnd += 2;						// 2 extra digits for long year
991 					if ( bShortFirst && nPos == 0 )
992 						--nFieldEnd;						// first field shortened?
993 
994 					nStart[nPos] = nFieldStart;
995 					nEnd[nPos]   = nFieldEnd;
996 					nFieldStart  = nFieldEnd + 1;
997 				}
998 				nFound = 3;
999 			}
1000 		}
1001 
1002 		if ( nFound >= 3 )
1003 		{
1004 			using namespace ::com::sun::star;
1005 			sal_Bool bSecondCal = sal_False;
1006 			sal_uInt16 nDay  = (sal_uInt16) rStr.Copy( nStart[nDP], nEnd[nDP]+1-nStart[nDP] ).ToInt32();
1007 			sal_uInt16 nYear = (sal_uInt16) rStr.Copy( nStart[nYP], nEnd[nYP]+1-nStart[nYP] ).ToInt32();
1008 			String aMStr = rStr.Copy( nStart[nMP], nEnd[nMP]+1-nStart[nMP] );
1009 			sal_Int16 nMonth = (sal_Int16) aMStr.ToInt32();
1010 			if (!nMonth)
1011 			{
1012                 static const String aSeptCorrect( RTL_CONSTASCII_USTRINGPARAM( "SEPT" ) );
1013                 static const String aSepShortened( RTL_CONSTASCII_USTRINGPARAM( "SEP" ) );
1014 				uno::Sequence< i18n::CalendarItem > xMonths;
1015                 sal_Int32 i, nMonthCount;
1016 				//	first test all month names from local international
1017 				xMonths = rCalendar.getMonths();
1018                 nMonthCount = xMonths.getLength();
1019                 for (i=0; i<nMonthCount && !nMonth; i++)
1020 				{
1021                     if ( rTransliteration.isEqual( aMStr, xMonths[i].FullName ) ||
1022                          rTransliteration.isEqual( aMStr, xMonths[i].AbbrevName ) )
1023                         nMonth = sal::static_int_cast<sal_Int16>( i+1 );
1024                     else if ( i == 8 && rTransliteration.isEqual( aSeptCorrect,
1025                                 xMonths[i].AbbrevName ) &&
1026                             rTransliteration.isEqual( aMStr, aSepShortened ) )
1027                     {   // #102136# correct English abbreviation is SEPT,
1028                         // but data mostly contains SEP only
1029                         nMonth = sal::static_int_cast<sal_Int16>( i+1 );
1030                     }
1031 				}
1032 				//	if none found, then test english month names
1033                 if ( !nMonth && pSecondCalendar && pSecondTransliteration )
1034 				{
1035 					xMonths = pSecondCalendar->getMonths();
1036                     nMonthCount = xMonths.getLength();
1037                     for (i=0; i<nMonthCount && !nMonth; i++)
1038 					{
1039                         if ( pSecondTransliteration->isEqual( aMStr, xMonths[i].FullName ) ||
1040                              pSecondTransliteration->isEqual( aMStr, xMonths[i].AbbrevName ) )
1041 						{
1042                             nMonth = sal::static_int_cast<sal_Int16>( i+1 );
1043 							bSecondCal = sal_True;
1044 						}
1045                         else if ( i == 8 && pSecondTransliteration->isEqual(
1046                                     aMStr, aSepShortened ) )
1047                         {   // #102136# correct English abbreviation is SEPT,
1048                             // but data mostly contains SEP only
1049                             nMonth = sal::static_int_cast<sal_Int16>( i+1 );
1050 							bSecondCal = sal_True;
1051                         }
1052 					}
1053 				}
1054 			}
1055 
1056             SvNumberFormatter* pDocFormatter = pDoc->GetFormatTable();
1057 			if ( nYear < 100 )
1058                 nYear = pDocFormatter->ExpandTwoDigitYear( nYear );
1059 
1060 			CalendarWrapper* pCalendar = (bSecondCal ? pSecondCalendar : &rCalendar);
1061 			sal_Int16 nNumMonths = pCalendar->getNumberOfMonthsInYear();
1062 			if ( nDay && nMonth && nDay<=31 && nMonth<=nNumMonths )
1063 			{
1064 				--nMonth;
1065 				pCalendar->setValue( i18n::CalendarFieldIndex::DAY_OF_MONTH, nDay );
1066 				pCalendar->setValue( i18n::CalendarFieldIndex::MONTH, nMonth );
1067 				pCalendar->setValue( i18n::CalendarFieldIndex::YEAR, nYear );
1068                 sal_Int16 nHour, nMinute, nSecond, nMilli;
1069                 // #i14974# The imported value should have no fractional value, so set the
1070                 // time fields to zero (ICU calendar instance defaults to current date/time)
1071                 nHour = nMinute = nSecond = nMilli = 0;
1072                 if (nFound > 3)
1073                     nHour = (sal_Int16) rStr.Copy( nStart[3], nEnd[3]+1-nStart[3]).ToInt32();
1074                 if (nFound > 4)
1075                     nMinute = (sal_Int16) rStr.Copy( nStart[4], nEnd[4]+1-nStart[4]).ToInt32();
1076                 if (nFound > 5)
1077                     nSecond = (sal_Int16) rStr.Copy( nStart[5], nEnd[5]+1-nStart[5]).ToInt32();
1078                 if (nFound > 6)
1079                 {
1080                     sal_Unicode cDec = '.';
1081                     rtl::OUString aT( &cDec, 1);
1082                     aT += rStr.Copy( nStart[6], nEnd[6]+1-nStart[6]);
1083                     rtl_math_ConversionStatus eStatus;
1084                     double fV = rtl::math::stringToDouble( aT, cDec, 0, &eStatus, 0);
1085                     if (eStatus == rtl_math_ConversionStatus_Ok)
1086                         nMilli = (sal_Int16) (1000.0 * fV + 0.5);
1087                 }
1088                 pCalendar->setValue( i18n::CalendarFieldIndex::HOUR, nHour );
1089                 pCalendar->setValue( i18n::CalendarFieldIndex::MINUTE, nMinute );
1090                 pCalendar->setValue( i18n::CalendarFieldIndex::SECOND, nSecond );
1091                 pCalendar->setValue( i18n::CalendarFieldIndex::MILLISECOND, nMilli );
1092                 if ( pCalendar->isValid() )
1093                 {
1094                     double fDiff = DateTime(*pDocFormatter->GetNullDate()) -
1095                         pCalendar->getEpochStart();
1096                     // #i14974# must use getLocalDateTime to get the same
1097                     // date values as set above
1098                     double fDays = pCalendar->getLocalDateTime();
1099                     fDays -= fDiff;
1100 
1101                     LanguageType eLatin, eCjk, eCtl;
1102                     pDoc->GetLanguage( eLatin, eCjk, eCtl );
1103                     LanguageType eDocLang = eLatin;     //! which language for date formats?
1104 
1105                     short nType = (nFound > 3 ? NUMBERFORMAT_DATETIME : NUMBERFORMAT_DATE);
1106                     sal_uLong nFormat = pDocFormatter->GetStandardFormat( nType, eDocLang );
1107                     // maybe there is a special format including seconds or milliseconds
1108                     if (nFound > 5)
1109                         nFormat = pDocFormatter->GetStandardFormat( fDays, nFormat, nType, eDocLang);
1110 
1111                     pDoc->PutCell( nCol, nRow, nTab, new ScValueCell(fDays), nFormat, sal_False );
1112 
1113                     return bMultiLine;     // success
1114                 }
1115 			}
1116 		}
1117 	}
1118 
1119     // Standard or date not determined -> SetString / EditCell
1120     if( rStr.Search( _LF ) == STRING_NOTFOUND )
1121         pDoc->SetString( nCol, nRow, nTab, rStr, pFormatter, bDetectNumFormat );
1122     else
1123     {
1124         bMultiLine = true;
1125         pDoc->PutCell( nCol, nRow, nTab, new ScEditCell( rStr, pDoc ) );
1126     }
1127     return bMultiLine;
1128 }
1129 
1130 
lcl_GetFixed(const String & rLine,xub_StrLen nStart,xub_StrLen nNext,bool & rbIsQuoted)1131 String lcl_GetFixed( const String& rLine, xub_StrLen nStart, xub_StrLen nNext, bool& rbIsQuoted )
1132 {
1133 	xub_StrLen nLen = rLine.Len();
1134 	if (nNext > nLen)
1135 		nNext = nLen;
1136 	if ( nNext <= nStart )
1137 		return EMPTY_STRING;
1138 
1139 	const sal_Unicode* pStr = rLine.GetBuffer();
1140 
1141 	xub_StrLen nSpace = nNext;
1142 	while ( nSpace > nStart && pStr[nSpace-1] == ' ' )
1143 		--nSpace;
1144 
1145     rbIsQuoted = (pStr[nStart] == sal_Unicode('"') && pStr[nSpace-1] == sal_Unicode('"'));
1146     if (rbIsQuoted)
1147         return rLine.Copy(nStart+1, nSpace-nStart-2);
1148     else
1149         return rLine.Copy(nStart, nSpace-nStart);
1150 }
1151 
ExtText2Doc(SvStream & rStrm)1152 sal_Bool ScImportExport::ExtText2Doc( SvStream& rStrm )
1153 {
1154 	if (!pExtOptions)
1155 		return Text2Doc( rStrm );
1156 
1157 	sal_uLong nOldPos = rStrm.Tell();
1158 	rStrm.Seek( STREAM_SEEK_TO_END );
1159     ::std::auto_ptr<ScProgress> xProgress( new ScProgress( pDocSh,
1160             ScGlobal::GetRscString( STR_LOAD_DOC ), rStrm.Tell() - nOldPos ));
1161 	rStrm.Seek( nOldPos );
1162     rStrm.StartReadingUnicodeText( rStrm.GetStreamCharSet() );
1163 
1164 	sal_Bool bOld = ScColumn::bDoubleAlloc;
1165 	ScColumn::bDoubleAlloc = sal_True;
1166 
1167 	SCCOL nStartCol = aRange.aStart.Col();
1168     SCCOL nEndCol = aRange.aEnd.Col();
1169 	SCROW nStartRow = aRange.aStart.Row();
1170 	SCTAB nTab = aRange.aStart.Tab();
1171 
1172 	sal_Bool	bFixed			= pExtOptions->IsFixedLen();
1173 	const String& rSeps     = pExtOptions->GetFieldSeps();
1174 	const sal_Unicode* pSeps = rSeps.GetBuffer();
1175 	sal_Bool	bMerge			= pExtOptions->IsMergeSeps();
1176 	sal_uInt16	nInfoCount		= pExtOptions->GetInfoCount();
1177 	const xub_StrLen* pColStart = pExtOptions->GetColStart();
1178 	const sal_uInt8* pColFormat  = pExtOptions->GetColFormat();
1179 	long nSkipLines	= pExtOptions->GetStartRow();
1180 
1181     LanguageType eDocLang = pExtOptions->GetLanguage();
1182     SvNumberFormatter aNumFormatter(pDoc->GetServiceManager(), eDocLang);
1183     bool bDetectNumFormat = pExtOptions->IsDetectSpecialNumber();
1184 
1185 	// For date recognition
1186     ::utl::TransliterationWrapper aTransliteration(
1187         pDoc->GetServiceManager(), SC_TRANSLITERATION_IGNORECASE );
1188     aTransliteration.loadModuleIfNeeded( eDocLang );
1189 	CalendarWrapper aCalendar( pDoc->GetServiceManager() );
1190 	aCalendar.loadDefaultCalendar(
1191 		MsLangId::convertLanguageToLocale( eDocLang ) );
1192     ::utl::TransliterationWrapper* pEnglishTransliteration = NULL;
1193 	CalendarWrapper* pEnglishCalendar = NULL;
1194 	if ( eDocLang != LANGUAGE_ENGLISH_US )
1195 	{
1196         pEnglishTransliteration = new ::utl::TransliterationWrapper (
1197             pDoc->GetServiceManager(), SC_TRANSLITERATION_IGNORECASE );
1198         aTransliteration.loadModuleIfNeeded( LANGUAGE_ENGLISH_US );
1199 		pEnglishCalendar = new CalendarWrapper ( pDoc->GetServiceManager() );
1200 		pEnglishCalendar->loadDefaultCalendar(
1201 			MsLangId::convertLanguageToLocale( LANGUAGE_ENGLISH_US ) );
1202 	}
1203 
1204 	String aLine, aCell;
1205 	sal_uInt16 i;
1206 	SCROW nRow = nStartRow;
1207 
1208 	while(--nSkipLines>0)
1209 	{
1210 		rStrm.ReadCsvLine( aLine, !bFixed, rSeps, cStr); // content is ignored
1211 		if ( rStrm.IsEof() )
1212 			break;
1213 	}
1214 
1215     // Determine range for Undo.
1216     // TODO: we don't need this during import of a file to a new sheet or
1217     // document, could set bDetermineRange=false then.
1218     bool bDetermineRange = true;
1219 
1220     // Row heights don't need to be adjusted on the fly if EndPaste() is called
1221     // afterwards, which happens only if bDetermineRange. This variable also
1222     // survives the toggle of bDetermineRange down at the end of the do{} loop.
1223     bool bRangeIsDetermined = bDetermineRange;
1224 
1225     bool bQuotedAsText = pExtOptions && pExtOptions->IsQuotedAsText();
1226 
1227     sal_uLong nOriginalStreamPos = rStrm.Tell();
1228 
1229     do
1230     {
1231         for( ;; )
1232         {
1233             rStrm.ReadCsvLine( aLine, !bFixed, rSeps, cStr);
1234             if ( rStrm.IsEof() && aLine.Len() == 0 )
1235                 break;
1236 
1237             xub_StrLen nLineLen = aLine.Len();
1238             SCCOL nCol = nStartCol;
1239             bool bMultiLine = false;
1240             if ( bFixed )				//	Feste Satzlaenge
1241             {
1242                 // Yes, the check is nCol<=MAXCOL+1, +1 because it is only an
1243                 // overflow if there is really data following to be put behind
1244                 // the last column, which doesn't happen if info is
1245                 // SC_COL_SKIP.
1246                 for ( i=0; i<nInfoCount && nCol <= MAXCOL+1; i++ )
1247                 {
1248                     sal_uInt8 nFmt = pColFormat[i];
1249                     if (nFmt != SC_COL_SKIP)        // sonst auch nCol nicht hochzaehlen
1250                     {
1251                         if (nCol > MAXCOL)
1252                             bOverflow = sal_True;       // display warning on import
1253                         else if (!bDetermineRange)
1254                         {
1255                             xub_StrLen nStart = pColStart[i];
1256                             xub_StrLen nNext = ( i+1 < nInfoCount ) ? pColStart[i+1] : nLineLen;
1257                             bool bIsQuoted = false;
1258                             aCell = lcl_GetFixed( aLine, nStart, nNext, bIsQuoted );
1259                             if (bIsQuoted && bQuotedAsText)
1260                                 nFmt = SC_COL_TEXT;
1261 
1262                             bMultiLine |= lcl_PutString(
1263                                 pDoc, nCol, nRow, nTab, aCell, nFmt,
1264                                 &aNumFormatter, bDetectNumFormat, aTransliteration, aCalendar,
1265                                 pEnglishTransliteration, pEnglishCalendar);
1266                         }
1267                         ++nCol;
1268                     }
1269                 }
1270             }
1271             else						//	Nach Trennzeichen suchen
1272             {
1273                 SCCOL nSourceCol = 0;
1274                 sal_uInt16 nInfoStart = 0;
1275                 const sal_Unicode* p = aLine.GetBuffer();
1276                 // Yes, the check is nCol<=MAXCOL+1, +1 because it is only an
1277                 // overflow if there is really data following to be put behind
1278                 // the last column, which doesn't happen if info is
1279                 // SC_COL_SKIP.
1280                 while (*p && nCol <= MAXCOL+1)
1281                 {
1282                     bool bIsQuoted = false;
1283                     p = ScImportExport::ScanNextFieldFromString( p, aCell, cStr, pSeps, bMerge, bIsQuoted );
1284 
1285                     sal_uInt8 nFmt = SC_COL_STANDARD;
1286                     for ( i=nInfoStart; i<nInfoCount; i++ )
1287                     {
1288                         if ( pColStart[i] == nSourceCol + 1 )		// pColStart ist 1-basiert
1289                         {
1290                             nFmt = pColFormat[i];
1291                             nInfoStart = i + 1;		// ColInfos sind in Reihenfolge
1292                             break;	// for
1293                         }
1294                     }
1295                     if ( nFmt != SC_COL_SKIP )
1296                     {
1297                         if (nCol > MAXCOL)
1298                             bOverflow = sal_True;       // display warning on import
1299                         else if (!bDetermineRange)
1300                         {
1301                             if (bIsQuoted && bQuotedAsText)
1302                                 nFmt = SC_COL_TEXT;
1303 
1304                             bMultiLine |= lcl_PutString(
1305                                 pDoc, nCol, nRow, nTab, aCell, nFmt,
1306                                 &aNumFormatter, bDetectNumFormat, aTransliteration,
1307                                 aCalendar, pEnglishTransliteration, pEnglishCalendar);
1308                         }
1309                         ++nCol;
1310                     }
1311 
1312                     ++nSourceCol;
1313                 }
1314             }
1315             if (nEndCol < nCol)
1316                 nEndCol = nCol;     //! points to the next free or even MAXCOL+2
1317 
1318             if (!bDetermineRange)
1319             {
1320                 if (bMultiLine && !bRangeIsDetermined && pDocSh)
1321                     pDocSh->AdjustRowHeight( nRow, nRow, nTab);
1322                 xProgress->SetStateOnPercent( rStrm.Tell() - nOldPos );
1323             }
1324             ++nRow;
1325             if ( nRow > MAXROW )
1326             {
1327                 bOverflow = sal_True;       // display warning on import
1328                 break;  // for
1329             }
1330         }
1331         // so far nRow/nEndCol pointed to the next free
1332         if (nRow > nStartRow)
1333             --nRow;
1334         if (nEndCol > nStartCol)
1335             nEndCol = ::std::min( static_cast<SCCOL>(nEndCol - 1), MAXCOL);
1336 
1337         if (bDetermineRange)
1338         {
1339             aRange.aEnd.SetCol( nEndCol );
1340             aRange.aEnd.SetRow( nRow );
1341 
1342             if ( !mbApi && nStartCol != nEndCol &&
1343                  !pDoc->IsBlockEmpty( nTab, nStartCol + 1, nStartRow, nEndCol, nRow ) )
1344             {
1345                 ScReplaceWarnBox aBox( pDocSh->GetActiveDialogParent() );
1346                 if ( aBox.Execute() != RET_YES )
1347                 {
1348                     delete pEnglishTransliteration;
1349                     delete pEnglishCalendar;
1350                     return sal_False;
1351                 }
1352             }
1353 
1354             rStrm.Seek( nOriginalStreamPos );
1355             nRow = nStartRow;
1356             if (!StartPaste())
1357             {
1358                 EndPaste();
1359                 return sal_False;
1360             }
1361         }
1362 
1363         bDetermineRange = !bDetermineRange;     // toggle
1364     } while (!bDetermineRange);
1365 
1366 	ScColumn::bDoubleAlloc = bOld;
1367 	pDoc->DoColResize( nTab, nStartCol, nEndCol, 0 );
1368 
1369     delete pEnglishTransliteration;
1370 	delete pEnglishCalendar;
1371 
1372     xProgress.reset();    // make room for AdjustRowHeight progress
1373     if (bRangeIsDetermined)
1374         EndPaste();
1375 
1376 	return sal_True;
1377 }
1378 
1379 
1380 // static
ScanNextFieldFromString(const sal_Unicode * p,String & rField,sal_Unicode cStr,const sal_Unicode * pSeps,bool bMergeSeps,bool & rbIsQuoted)1381 const sal_Unicode* ScImportExport::ScanNextFieldFromString( const sal_Unicode* p,
1382 		String& rField, sal_Unicode cStr, const sal_Unicode* pSeps, bool bMergeSeps, bool& rbIsQuoted )
1383 {
1384     rbIsQuoted = false;
1385 	rField.Erase();
1386 	if ( *p == cStr )			// String in Anfuehrungszeichen
1387 	{
1388         rbIsQuoted = true;
1389         const sal_Unicode* p1;
1390 		p1 = p = lcl_ScanString( p, rField, cStr, DQM_ESCAPE );
1391 		while ( *p && !ScGlobal::UnicodeStrChr( pSeps, *p ) )
1392 			p++;
1393         // Append remaining unquoted and undelimited data (dirty, dirty) to
1394         // this field.
1395         if (p > p1)
1396             rField.Append( p1, sal::static_int_cast<xub_StrLen>( p - p1 ) );
1397 		if( *p )
1398 			p++;
1399 	}
1400 	else						// bis zum Trennzeichen
1401 	{
1402 		const sal_Unicode* p0 = p;
1403 		while ( *p && !ScGlobal::UnicodeStrChr( pSeps, *p ) )
1404 			p++;
1405         rField.Append( p0, sal::static_int_cast<xub_StrLen>( p - p0 ) );
1406 		if( *p )
1407 			p++;
1408 	}
1409 	if ( bMergeSeps ) 			// folgende Trennzeichen ueberspringen
1410 	{
1411 		while ( *p && ScGlobal::UnicodeStrChr( pSeps, *p ) )
1412 			p++;
1413 	}
1414 	return p;
1415 }
1416 
1417 		//
1418 		//
1419 		//
1420 
1421 
Doc2Text(SvStream & rStrm)1422 sal_Bool ScImportExport::Doc2Text( SvStream& rStrm )
1423 {
1424 	SCCOL nCol;
1425 	SCROW nRow;
1426 	SCCOL nStartCol = aRange.aStart.Col();
1427 	SCROW nStartRow = aRange.aStart.Row();
1428 	SCCOL nEndCol = aRange.aEnd.Col();
1429 	SCROW nEndRow = aRange.aEnd.Row();
1430 	String aCell;
1431     bool bConvertLF = (GetSystemLineEnd() != LINEEND_LF);
1432 
1433 	for (nRow = nStartRow; nRow <= nEndRow; nRow++)
1434 	{
1435 		if (bIncludeFiltered || !pDoc->RowFiltered( nRow, aRange.aStart.Tab() ))
1436 		{
1437 			for (nCol = nStartCol; nCol <= nEndCol; nCol++)
1438 			{
1439 				CellType eType;
1440 				pDoc->GetCellType( nCol, nRow, aRange.aStart.Tab(), eType );
1441 				switch (eType)
1442 				{
1443 					case CELLTYPE_FORMULA:
1444 					{
1445 						if (bFormulas)
1446 						{
1447 							pDoc->GetFormula( nCol, nRow, aRange.aStart.Tab(), aCell, sal_True );
1448 							if( aCell.Search( cSep ) != STRING_NOTFOUND )
1449 								lcl_WriteString( rStrm, aCell, cStr, cStr );
1450 							else
1451 								lcl_WriteSimpleString( rStrm, aCell );
1452 						}
1453 						else
1454 						{
1455                             pDoc->GetString( nCol, nRow, aRange.aStart.Tab(), aCell );
1456 
1457                             bool bMultiLineText = ( aCell.Search( _LF ) != STRING_NOTFOUND );
1458                             if( bMultiLineText )
1459                             {
1460                                 if( mExportTextOptions.meNewlineConversion == ScExportTextOptions::ToSpace )
1461                                     aCell.SearchAndReplaceAll( _LF, ' ' );
1462                                 else if ( mExportTextOptions.meNewlineConversion == ScExportTextOptions::ToSystem && bConvertLF )
1463                                     aCell.ConvertLineEnd();
1464                             }
1465 
1466                             if( mExportTextOptions.mcSeparatorConvertTo && cSep )
1467                                 aCell.SearchAndReplaceAll( cSep, mExportTextOptions.mcSeparatorConvertTo );
1468 
1469                             if( mExportTextOptions.mbAddQuotes && ( aCell.Search( cSep ) != STRING_NOTFOUND ) )
1470                                 lcl_WriteString( rStrm, aCell, cStr, cStr );
1471                             else
1472                                 lcl_WriteSimpleString( rStrm, aCell );
1473 						}
1474 					}
1475 					break;
1476 					case CELLTYPE_VALUE:
1477 					{
1478 						pDoc->GetString( nCol, nRow, aRange.aStart.Tab(), aCell );
1479 						lcl_WriteSimpleString( rStrm, aCell );
1480 					}
1481 					break;
1482 					case CELLTYPE_NOTE:
1483 					case CELLTYPE_NONE:
1484 					break;
1485 					default:
1486 					{
1487 						pDoc->GetString( nCol, nRow, aRange.aStart.Tab(), aCell );
1488 
1489                         bool bMultiLineText = ( aCell.Search( _LF ) != STRING_NOTFOUND );
1490                         if( bMultiLineText )
1491                         {
1492                             if( mExportTextOptions.meNewlineConversion == ScExportTextOptions::ToSpace )
1493                                 aCell.SearchAndReplaceAll( _LF, ' ' );
1494                             else if ( mExportTextOptions.meNewlineConversion == ScExportTextOptions::ToSystem && bConvertLF )
1495                                 aCell.ConvertLineEnd();
1496                         }
1497 
1498                         if( mExportTextOptions.mcSeparatorConvertTo && cSep )
1499                             aCell.SearchAndReplaceAll( cSep, mExportTextOptions.mcSeparatorConvertTo );
1500 
1501                         if( mExportTextOptions.mbAddQuotes && ( aCell.Search( cSep ) != STRING_NOTFOUND ) )
1502                             lcl_WriteString( rStrm, aCell, cStr, cStr );
1503                         else
1504                             lcl_WriteSimpleString( rStrm, aCell );
1505 					}
1506 				}
1507 				if( nCol < nEndCol )
1508 					lcl_WriteSimpleString( rStrm, String(cSep) );
1509 			}
1510 //			if( nRow < nEndRow )
1511 				WriteUnicodeOrByteEndl( rStrm );
1512 			if( rStrm.GetError() != SVSTREAM_OK )
1513 				break;
1514 			if( nSizeLimit && rStrm.Tell() > nSizeLimit )
1515 				break;
1516 		}
1517 	}
1518 
1519 	return sal_Bool( rStrm.GetError() == SVSTREAM_OK );
1520 }
1521 
1522 
Sylk2Doc(SvStream & rStrm)1523 sal_Bool ScImportExport::Sylk2Doc( SvStream& rStrm )
1524 {
1525 	sal_Bool bOk = sal_True;
1526 	sal_Bool bMyDoc = sal_False;
1527     SylkVersion eVersion = SYLK_OTHER;
1528 
1529 	// US-English separators for StringToDouble
1530 	sal_Unicode cDecSep = '.';
1531 	sal_Unicode cGrpSep = ',';
1532 
1533 	SCCOL nStartCol = aRange.aStart.Col();
1534 	SCROW nStartRow = aRange.aStart.Row();
1535 	SCCOL nEndCol = aRange.aEnd.Col();
1536 	SCROW nEndRow = aRange.aEnd.Row();
1537 	sal_uLong nOldPos = rStrm.Tell();
1538 	sal_Bool bData = sal_Bool( !bSingle );
1539     SvULongs aFormats;
1540 
1541 	if( !bSingle)
1542 		bOk = StartPaste();
1543 
1544 	while( bOk )
1545 	{
1546 		String aLine;
1547         String aText;
1548 		ByteString aByteLine;
1549 		SCCOL nCol = nStartCol;
1550 		SCROW nRow = nStartRow;
1551         SCCOL nRefCol = 1;
1552         SCROW nRefRow = 1;
1553 		rStrm.Seek( nOldPos );
1554 		for( ;; )
1555 		{
1556 			//!	allow unicode
1557 			rStrm.ReadLine( aByteLine );
1558 			aLine = String( aByteLine, rStrm.GetStreamCharSet() );
1559 			if( rStrm.IsEof() )
1560 				break;
1561 			const sal_Unicode* p = aLine.GetBuffer();
1562 			sal_Unicode cTag = *p++;
1563             if( cTag == 'C' )       // Content
1564 			{
1565 				if( *p++ != ';' )
1566 					return sal_False;
1567 				while( *p )
1568 				{
1569 					sal_Unicode ch = *p++;
1570 					ch = ScGlobal::ToUpperAlpha( ch );
1571 					switch( ch )
1572 					{
1573 						case 'X':
1574 							nCol = static_cast<SCCOL>(String( p ).ToInt32()) + nStartCol - 1;
1575 							break;
1576 						case 'Y':
1577 							nRow = String( p ).ToInt32() + nStartRow - 1;
1578 							break;
1579                         case 'C':
1580                             nRefCol = static_cast<SCCOL>(String( p ).ToInt32()) + nStartCol - 1;
1581 							break;
1582                         case 'R':
1583                             nRefRow = String( p ).ToInt32() + nStartRow - 1;
1584 							break;
1585 						case 'K':
1586                         {
1587                             if( !bSingle &&
1588                                     ( nCol < nStartCol || nCol > nEndCol
1589                                       || nRow < nStartRow || nRow > nEndRow
1590                                       || nCol > MAXCOL || nRow > MAXROW ) )
1591 								break;
1592 							if( !bData )
1593 							{
1594 								if( nRow > nEndRow )
1595 									nEndRow = nRow;
1596 								if( nCol > nEndCol )
1597 									nEndCol = nCol;
1598 								break;
1599 							}
1600                             sal_Bool bText;
1601                             if( *p == '"' )
1602                             {
1603                                 bText = sal_True;
1604                                 aText.Erase();
1605                                 p = lcl_ScanSylkString( p, aText, eVersion);
1606                             }
1607                             else
1608                                 bText = sal_False;
1609                             const sal_Unicode* q = p;
1610                             while( *q && *q != ';' )
1611                                 q++;
1612                             if ( !(*q == ';' && *(q+1) == 'I') )
1613                             {   // don't ignore value
1614                                 if( bText )
1615                                 {
1616                                     pDoc->PutCell( nCol, nRow, aRange.aStart.Tab(),
1617                                             ScBaseCell::CreateTextCell( aText, pDoc),
1618                                             (sal_Bool) sal_True);
1619                                 }
1620                                 else
1621                                 {
1622                                     double fVal = rtl_math_uStringToDouble( p,
1623                                             aLine.GetBuffer() + aLine.Len(),
1624                                             cDecSep, cGrpSep, NULL, NULL );
1625                                     pDoc->SetValue( nCol, nRow, aRange.aStart.Tab(), fVal );
1626                                 }
1627                             }
1628                         }
1629                         break;
1630 						case 'E':
1631                         case 'M':
1632                         {
1633                             if ( ch == 'M' )
1634                             {
1635                                 if ( nRefCol < nCol )
1636                                     nRefCol = nCol;
1637                                 if ( nRefRow < nRow )
1638                                     nRefRow = nRow;
1639                                 if ( !bData )
1640                                 {
1641                                     if( nRefRow > nEndRow )
1642                                         nEndRow = nRefRow;
1643                                     if( nRefCol > nEndCol )
1644                                         nEndCol = nRefCol;
1645                                 }
1646                             }
1647 							if( !bMyDoc || !bData )
1648 								break;
1649                             aText = '=';
1650                             p = lcl_ScanSylkFormula( p, aText, eVersion);
1651                             ScAddress aPos( nCol, nRow, aRange.aStart.Tab() );
1652                             /* FIXME: do we want GRAM_ODFF_A1 instead? At the
1653                              * end it probably should be GRAM_ODFF_R1C1, since
1654                              * R1C1 is what Excel writes in SYLK. */
1655                             const formula::FormulaGrammar::Grammar eGrammar = formula::FormulaGrammar::GRAM_PODF_A1;
1656                             ScCompiler aComp( pDoc, aPos);
1657                             aComp.SetGrammar(eGrammar);
1658                             ScTokenArray* pCode = aComp.CompileString( aText );
1659                             if ( ch == 'M' )
1660                             {
1661                                 ScMarkData aMark;
1662                                 aMark.SelectTable( aPos.Tab(), sal_True );
1663                                 pDoc->InsertMatrixFormula( nCol, nRow, nRefCol,
1664                                     nRefRow, aMark, EMPTY_STRING, pCode );
1665                             }
1666                             else
1667                             {
1668                                 ScFormulaCell* pFCell = new ScFormulaCell(
1669                                         pDoc, aPos, pCode, eGrammar, MM_NONE);
1670                                 pDoc->PutCell( aPos, pFCell );
1671                             }
1672                             delete pCode;   // ctor/InsertMatrixFormula did copy TokenArray
1673                         }
1674                         break;
1675 					}
1676 					while( *p && *p != ';' )
1677 						p++;
1678 					if( *p )
1679 						p++;
1680 				}
1681 			}
1682             else if( cTag == 'F' )      // Format
1683             {
1684                 if( *p++ != ';' )
1685                     return sal_False;
1686                 sal_Int32 nFormat = -1;
1687                 while( *p )
1688                 {
1689                     sal_Unicode ch = *p++;
1690                     ch = ScGlobal::ToUpperAlpha( ch );
1691                     switch( ch )
1692                     {
1693                         case 'X':
1694                             nCol = static_cast<SCCOL>(String( p ).ToInt32()) + nStartCol - 1;
1695                             break;
1696                         case 'Y':
1697                             nRow = String( p ).ToInt32() + nStartRow - 1;
1698                             break;
1699                         case 'P' :
1700                             if ( bData )
1701                             {
1702                                 // F;P<n> sets format code of P;P<code> at
1703                                 // current position, or at ;X;Y if specified.
1704                                 // Note that ;X;Y may appear after ;P
1705                                 const sal_Unicode* p0 = p;
1706                                 while( *p && *p != ';' )
1707                                     p++;
1708                                 String aNumber( p0, sal::static_int_cast<xub_StrLen>( p - p0 ) );
1709                                 nFormat = aNumber.ToInt32();
1710                             }
1711                             break;
1712                     }
1713                     while( *p && *p != ';' )
1714                         p++;
1715                     if( *p )
1716                         p++;
1717                 }
1718                 if ( !bData )
1719                 {
1720                     if( nRow > nEndRow )
1721                         nEndRow = nRow;
1722                     if( nCol > nEndCol )
1723                         nEndCol = nCol;
1724                 }
1725                 if ( 0 <= nFormat && nFormat < aFormats.Count() )
1726                 {
1727                     sal_uLong nKey = aFormats[(sal_uInt16)nFormat];
1728                     pDoc->ApplyAttr( nCol, nRow, aRange.aStart.Tab(),
1729                             SfxUInt32Item( ATTR_VALUE_FORMAT, nKey ) );
1730                 }
1731             }
1732             else if( cTag == 'P' )
1733             {
1734                 if ( bData && *p == ';' && *(p+1) == 'P' )
1735                 {
1736                     String aCode( p+2 );
1737                     // unescape doubled semicolons
1738                     xub_StrLen nPos = 0;
1739                     String aSemicolon( RTL_CONSTASCII_USTRINGPARAM(";;"));
1740                     while ( (nPos = aCode.Search( aSemicolon, nPos )) != STRING_NOTFOUND )
1741                         aCode.Erase( nPos++, 1 );
1742                     // get rid of Xcl escape characters
1743                     nPos = 0;
1744                     while ( (nPos = aCode.Search( sal_Unicode(0x1b), nPos )) != STRING_NOTFOUND )
1745                         aCode.Erase( nPos, 1 );
1746                     xub_StrLen nCheckPos;
1747                     short nType;
1748                     sal_uInt32 nKey;
1749                     pDoc->GetFormatTable()->PutandConvertEntry(
1750                         aCode, nCheckPos, nType, nKey, LANGUAGE_ENGLISH_US,
1751                         ScGlobal::eLnge );
1752                     if ( nCheckPos )
1753                         nKey = 0;
1754                     aFormats.Insert( nKey, aFormats.Count() );
1755                 }
1756             }
1757             else if( cTag == 'I' && *p == 'D' )
1758 			{
1759 				aLine.Erase( 0, 4 );
1760 				if (aLine.EqualsAscii( "CALCOOO32" ))
1761                     eVersion = SYLK_OOO32;
1762                 else if (aLine.EqualsAscii( "SCALC3" ))
1763                     eVersion = SYLK_SCALC3;
1764                 bMyDoc = (eVersion <= SYLK_OWN);
1765 			}
1766 			else if( cTag == 'E' )						// Ende
1767 				break;
1768 		}
1769 		if( !bData )
1770 		{
1771 			aRange.aEnd.SetCol( nEndCol );
1772 			aRange.aEnd.SetRow( nEndRow );
1773 			bOk = StartPaste();
1774 			bData = sal_True;
1775 		}
1776 		else
1777 			break;
1778 	}
1779 
1780 	EndPaste();
1781 	return bOk;
1782 }
1783 
1784 
Doc2Sylk(SvStream & rStrm)1785 sal_Bool ScImportExport::Doc2Sylk( SvStream& rStrm )
1786 {
1787 	SCCOL nCol;
1788 	SCROW nRow;
1789 	SCCOL nStartCol = aRange.aStart.Col();
1790 	SCROW nStartRow = aRange.aStart.Row();
1791 	SCCOL nEndCol = aRange.aEnd.Col();
1792 	SCROW nEndRow = aRange.aEnd.Row();
1793 	String aCellStr;
1794 	String aValStr;
1795 	lcl_WriteSimpleString( rStrm,
1796             String( RTL_CONSTASCII_USTRINGPARAM( "ID;PCALCOOO32")));
1797 	WriteUnicodeOrByteEndl( rStrm );
1798 
1799 	for (nRow = nStartRow; nRow <= nEndRow; nRow++)
1800 	{
1801 		for (nCol = nStartCol; nCol <= nEndCol; nCol++)
1802 		{
1803 			String aBufStr;
1804 			double nVal;
1805 			sal_Bool bForm = sal_False;
1806 			SCROW r = nRow - nStartRow + 1;
1807 			SCCOL c = nCol - nStartCol + 1;
1808             ScBaseCell* pCell;
1809             pDoc->GetCell( nCol, nRow, aRange.aStart.Tab(), pCell );
1810             CellType eType = (pCell ? pCell->GetCellType() : CELLTYPE_NONE);
1811 			switch( eType )
1812 			{
1813 				case CELLTYPE_FORMULA:
1814 					bForm = bFormulas;
1815 					if( pDoc->HasValueData( nCol, nRow, aRange.aStart.Tab()) )
1816 						goto hasvalue;
1817 					else
1818 						goto hasstring;
1819 
1820 				case CELLTYPE_VALUE:
1821 				hasvalue:
1822 					pDoc->GetValue( nCol, nRow, aRange.aStart.Tab(), nVal );
1823 
1824                     aValStr = ::rtl::math::doubleToUString( nVal,
1825                             rtl_math_StringFormat_Automatic,
1826                             rtl_math_DecimalPlaces_Max, '.', sal_True );
1827 
1828 					aBufStr.AssignAscii(RTL_CONSTASCII_STRINGPARAM( "C;X" ));
1829 					aBufStr += String::CreateFromInt32( c );
1830 					aBufStr.AppendAscii(RTL_CONSTASCII_STRINGPARAM( ";Y" ));
1831 					aBufStr += String::CreateFromInt32( r );
1832 					aBufStr.AppendAscii(RTL_CONSTASCII_STRINGPARAM( ";K" ));
1833 					aBufStr += aValStr;
1834 					lcl_WriteSimpleString( rStrm, aBufStr );
1835 					goto checkformula;
1836 
1837 				case CELLTYPE_STRING:
1838 				case CELLTYPE_EDIT:
1839 				hasstring:
1840 					pDoc->GetString( nCol, nRow, aRange.aStart.Tab(), aCellStr );
1841                     aCellStr.SearchAndReplaceAll( _LF, SYLK_LF );
1842 
1843 					aBufStr.AssignAscii(RTL_CONSTASCII_STRINGPARAM( "C;X" ));
1844 					aBufStr += String::CreateFromInt32( c );
1845 					aBufStr.AppendAscii(RTL_CONSTASCII_STRINGPARAM( ";Y" ));
1846 					aBufStr += String::CreateFromInt32( r );
1847 					aBufStr.AppendAscii(RTL_CONSTASCII_STRINGPARAM( ";K" ));
1848 					lcl_WriteSimpleString( rStrm, aBufStr );
1849 					lcl_WriteString( rStrm, aCellStr, '"', ';' );
1850 
1851 				checkformula:
1852 					if( bForm )
1853 					{
1854                         const ScFormulaCell* pFCell =
1855                             static_cast<const ScFormulaCell*>(pCell);
1856                         switch ( pFCell->GetMatrixFlag() )
1857                         {
1858                             case MM_REFERENCE :
1859                                 aCellStr.Erase();
1860                             break;
1861                             default:
1862                                 pFCell->GetFormula( aCellStr,formula::FormulaGrammar::GRAM_PODF_A1);
1863                                 /* FIXME: do we want GRAM_ODFF_A1 instead? At
1864                                  * the end it probably should be
1865                                  * GRAM_ODFF_R1C1, since R1C1 is what Excel
1866                                  * writes in SYLK. */
1867                         }
1868                         if ( pFCell->GetMatrixFlag() != MM_NONE &&
1869                                 aCellStr.Len() > 2 &&
1870                                 aCellStr.GetChar(0) == '{' &&
1871                                 aCellStr.GetChar(aCellStr.Len()-1) == '}' )
1872                         {   // cut off matrix {} characters
1873                             aCellStr.Erase(aCellStr.Len()-1,1);
1874                             aCellStr.Erase(0,1);
1875                         }
1876                         if ( aCellStr.GetChar(0) == '=' )
1877                             aCellStr.Erase(0,1);
1878                         String aPrefix;
1879                         switch ( pFCell->GetMatrixFlag() )
1880                         {
1881                             case MM_FORMULA :
1882                             {   // diff expression with 'M' M$-extension
1883                                 SCCOL nC;
1884                                 SCROW nR;
1885                                 pFCell->GetMatColsRows( nC, nR );
1886                                 nC += c - 1;
1887                                 nR += r - 1;
1888                                 aPrefix.AssignAscii( RTL_CONSTASCII_STRINGPARAM( ";R" ) );
1889                                 aPrefix += String::CreateFromInt32( nR );
1890                                 aPrefix.AppendAscii( RTL_CONSTASCII_STRINGPARAM( ";C" ) );
1891                                 aPrefix += String::CreateFromInt32( nC );
1892                                 aPrefix.AppendAscii( RTL_CONSTASCII_STRINGPARAM( ";M" ) );
1893                             }
1894                             break;
1895                             case MM_REFERENCE :
1896                             {   // diff expression with 'I' M$-extension
1897                                 ScAddress aPos;
1898                                 pFCell->GetMatrixOrigin( aPos );
1899                                 aPrefix.AssignAscii( RTL_CONSTASCII_STRINGPARAM( ";I;R" ) );
1900                                 aPrefix += String::CreateFromInt32( aPos.Row() - nStartRow + 1 );
1901                                 aPrefix.AppendAscii( RTL_CONSTASCII_STRINGPARAM( ";C" ) );
1902                                 aPrefix += String::CreateFromInt32( aPos.Col() - nStartCol + 1 );
1903                             }
1904                             break;
1905                             default:
1906                                 // formula Expression
1907                                 aPrefix.AssignAscii( RTL_CONSTASCII_STRINGPARAM( ";E" ) );
1908                         }
1909                         lcl_WriteSimpleString( rStrm, aPrefix );
1910                         if ( aCellStr.Len() )
1911                             lcl_WriteString( rStrm, aCellStr, 0, ';' );
1912 					}
1913 					WriteUnicodeOrByteEndl( rStrm );
1914 					break;
1915 
1916                 default:
1917                 {
1918                     // added to avoid warnings
1919                 }
1920 			}
1921 		}
1922 	}
1923 	lcl_WriteSimpleString( rStrm, String( 'E' ) );
1924 	WriteUnicodeOrByteEndl( rStrm );
1925 	return sal_Bool( rStrm.GetError() == SVSTREAM_OK );
1926 }
1927 
1928 
Doc2HTML(SvStream & rStrm,const String & rBaseURL)1929 sal_Bool ScImportExport::Doc2HTML( SvStream& rStrm, const String& rBaseURL )
1930 {
1931     // CharSet is ignored in ScExportHTML, read from Load/Save HTML options
1932     ScFormatFilter::Get().ScExportHTML( rStrm, rBaseURL, pDoc, aRange, RTL_TEXTENCODING_DONTKNOW, bAll,
1933         aStreamPath, aNonConvertibleChars );
1934 	return sal_Bool( rStrm.GetError() == SVSTREAM_OK );
1935 }
1936 
Doc2RTF(SvStream & rStrm)1937 sal_Bool ScImportExport::Doc2RTF( SvStream& rStrm )
1938 {
1939 	//	CharSet is ignored in ScExportRTF
1940     ScFormatFilter::Get().ScExportRTF( rStrm, pDoc, aRange, RTL_TEXTENCODING_DONTKNOW );
1941 	return sal_Bool( rStrm.GetError() == SVSTREAM_OK );
1942 }
1943 
1944 
Doc2Dif(SvStream & rStrm)1945 sal_Bool ScImportExport::Doc2Dif( SvStream& rStrm )
1946 {
1947 	// for DIF in the clipboard, IBM_850 is always used
1948     ScFormatFilter::Get().ScExportDif( rStrm, pDoc, aRange, RTL_TEXTENCODING_IBM_850 );
1949 	return sal_True;
1950 }
1951 
1952 
Dif2Doc(SvStream & rStrm)1953 sal_Bool ScImportExport::Dif2Doc( SvStream& rStrm )
1954 {
1955 	SCTAB nTab = aRange.aStart.Tab();
1956 	ScDocument* pImportDoc = new ScDocument( SCDOCMODE_UNDO );
1957 	pImportDoc->InitUndo( pDoc, nTab, nTab );
1958 
1959 	// for DIF in the clipboard, IBM_850 is always used
1960 	ScFormatFilter::Get().ScImportDif( rStrm, pImportDoc, aRange.aStart, RTL_TEXTENCODING_IBM_850 );
1961 
1962 	SCCOL nEndCol;
1963 	SCROW nEndRow;
1964 	pImportDoc->GetCellArea( nTab, nEndCol, nEndRow );
1965     // #131247# if there are no cells in the imported content, nEndCol/nEndRow may be before the start
1966     if ( nEndCol < aRange.aStart.Col() )
1967         nEndCol = aRange.aStart.Col();
1968     if ( nEndRow < aRange.aStart.Row() )
1969         nEndRow = aRange.aStart.Row();
1970 	aRange.aEnd = ScAddress( nEndCol, nEndRow, nTab );
1971 
1972 	sal_Bool bOk = StartPaste();
1973 	if (bOk)
1974 	{
1975 		sal_uInt16 nFlags = IDF_ALL & ~IDF_STYLES;
1976 		pDoc->DeleteAreaTab( aRange, nFlags );
1977 		pImportDoc->CopyToDocument( aRange, nFlags, sal_False, pDoc );
1978 		EndPaste();
1979 	}
1980 
1981 	delete pImportDoc;
1982 
1983 	return bOk;
1984 }
1985 
1986 
RTF2Doc(SvStream & rStrm,const String & rBaseURL)1987 sal_Bool ScImportExport::RTF2Doc( SvStream& rStrm, const String& rBaseURL )
1988 {
1989     ScEEAbsImport *pImp = ScFormatFilter::Get().CreateRTFImport( pDoc, aRange );
1990     if (!pImp)
1991         return false;
1992     pImp->Read( rStrm, rBaseURL );
1993     aRange = pImp->GetRange();
1994 
1995     sal_Bool bOk = StartPaste();
1996     if (bOk)
1997     {
1998         sal_uInt16 nFlags = IDF_ALL & ~IDF_STYLES;
1999         pDoc->DeleteAreaTab( aRange, nFlags );
2000         pImp->WriteToDocument();
2001         EndPaste();
2002     }
2003     delete pImp;
2004     return bOk;
2005 }
2006 
2007 
HTML2Doc(SvStream & rStrm,const String & rBaseURL)2008 sal_Bool ScImportExport::HTML2Doc( SvStream& rStrm, const String& rBaseURL )
2009 {
2010     ScEEAbsImport *pImp = ScFormatFilter::Get().CreateHTMLImport( pDoc, rBaseURL, aRange, sal_True);
2011     if (!pImp)
2012         return false;
2013     pImp->Read( rStrm, rBaseURL );
2014     aRange = pImp->GetRange();
2015 
2016     sal_Bool bOk = StartPaste();
2017     if (bOk)
2018     {
2019         // ScHTMLImport may call ScDocument::InitDrawLayer, resulting in
2020         // a Draw Layer but no Draw View -> create Draw Layer and View here
2021         if (pDocSh)
2022             pDocSh->MakeDrawLayer();
2023 
2024         sal_uInt16 nFlags = IDF_ALL & ~IDF_STYLES;
2025         pDoc->DeleteAreaTab( aRange, nFlags );
2026         pImp->WriteToDocument();
2027         EndPaste();
2028     }
2029     delete pImp;
2030     return bOk;
2031 }
2032 
2033 #define RETURN_ERROR { return eERR_INTERN; }
2034 class ScFormatFilterMissing : public ScFormatFilterPlugin {
2035   public:
ScFormatFilterMissing()2036     ScFormatFilterMissing()
2037     {
2038       OSL_ASSERT ("Missing file filters");
2039     }
ScImportLotus123(SfxMedium &,ScDocument *,CharSet)2040     virtual FltError ScImportLotus123( SfxMedium&, ScDocument*, CharSet ) RETURN_ERROR
2041     virtual FltError ScImportQuattroPro( SfxMedium &, ScDocument * ) RETURN_ERROR
2042     virtual FltError ScImportExcel( SfxMedium&, ScDocument*, const EXCIMPFORMAT ) RETURN_ERROR
2043     virtual FltError ScImportStarCalc10( SvStream&, ScDocument* ) RETURN_ERROR
2044     virtual FltError ScImportDif( SvStream&, ScDocument*, const ScAddress&,
2045 				 const CharSet, sal_uInt32 ) RETURN_ERROR
2046     virtual FltError ScImportRTF( SvStream&, const String&, ScDocument*, ScRange& ) RETURN_ERROR
2047     virtual FltError ScImportHTML( SvStream&, const String&, ScDocument*, ScRange&, double, sal_Bool, SvNumberFormatter*, bool ) RETURN_ERROR
2048 
2049     virtual ScEEAbsImport *CreateRTFImport( ScDocument*, const ScRange& ) { return NULL; }
CreateHTMLImport(ScDocument *,const String &,const ScRange &,sal_Bool)2050     virtual ScEEAbsImport *CreateHTMLImport( ScDocument*, const String&, const ScRange&, sal_Bool ) { return NULL; }
GetHTMLRangeNameList(ScDocument *,const String &)2051     virtual String         GetHTMLRangeNameList( ScDocument*, const String& ) { return String(); }
2052 
2053 #if ENABLE_LOTUS123_EXPORT
2054     virtual FltError ScExportLotus123( SvStream&, ScDocument*, ExportFormatLotus, CharSet ) RETURN_ERROR
2055 #endif
2056     virtual FltError ScExportExcel5( SfxMedium&, ScDocument*, ExportFormatExcel, CharSet ) RETURN_ERROR
2057     virtual FltError ScExportDif( SvStream&, ScDocument*, const ScAddress&, const CharSet, sal_uInt32 ) RETURN_ERROR
2058     virtual FltError ScExportDif( SvStream&, ScDocument*, const ScRange&, const CharSet, sal_uInt32 ) RETURN_ERROR
2059     virtual FltError ScExportHTML( SvStream&, const String&, ScDocument*, const ScRange&, const CharSet, sal_Bool,
2060 				  const String&, String& ) RETURN_ERROR
2061     virtual FltError ScExportRTF( SvStream&, ScDocument*, const ScRange&, const CharSet ) RETURN_ERROR
2062 };
2063 
thisModule()2064 extern "C" { static void SAL_CALL thisModule() {} }
2065 typedef ScFormatFilterPlugin * (*FilterFn)(void);
Get()2066 ScFormatFilterPlugin &ScFormatFilter::Get()
2067 {
2068     static ScFormatFilterPlugin *plugin;
2069 
2070     if (plugin != NULL)
2071         return *plugin;
2072 
2073     static ::osl::Module aModule;
2074     if ( aModule.loadRelative( &thisModule,
2075 			       ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( SVLIBRARY( "scfilt" ) ) ) ) )
2076     {
2077 	oslGenericFunction fn = aModule.getFunctionSymbol( ::rtl::OUString::createFromAscii( "ScFilterCreate" ) );
2078 	if (fn != NULL)
2079 	    plugin = reinterpret_cast<FilterFn>(fn)();
2080     }
2081     if (plugin == NULL)
2082         plugin = new ScFormatFilterMissing();
2083 
2084     return *plugin;
2085 }
2086