[Solved] thousands separator

[kaggb]

Does anyone know how for a particular cell in a spread sheet you can determine what the thousands separator is.

[Villeroy]

With the kind help of the MRI tool http://extensions.services.openoffice.org/project/MRI

Code: Select all

Sub Main
globalscope.basiclibraries.loadlibrary("Calc")
c = getActiveCell(thiscomponent.getcurrentcontroller())
nf = c.NumberFormat
oNF = thisComponent.NumberFormats.getByKey(nf)
' mymri oNF
oLoc = oNF.Locale
i18n = createUnoService("com.sun.star.i18n.LocaleData")
' oInfo = i18n.getLanguageCountryInfo(oLoc)
' mymri oInfo
oItem = i18n.getLocaleItem(oLoc)
mymri oItem
End Sub

Helper in lib Standard:

Code: Select all

Sub myMRI(obj)
	GlobalScope.BasicLibraries.loadlibrary("MRILib")
	MRILib.Module1.MRi obj
End Sub

Helper in lib "Calc":

Code: Select all

'-------usefull helper-function, returning focussed cell 
'by UROS > http://www.oooforum.org/forum/viewtopic.phtml?t=19348
REM 2006-08-09: fixed error when row > 8191
'		 ;sh;							;lSheet +3
'100/60/0;1;tw:309;2/2/0/0/0/0/2/0/0/0/0;253/8191/0/0/0/0/2/246/0/0/8158;0/0/0/0/0/0/2/0/0/0/0
'100/60/0;1;tw:309;2/2/0/0/0/0/2/0/0/0/0;253+8192+0+0+0+0+2+246+0+0+8158;0/0/0/0/0/0/2/0/0/0/0
Function getActiveCell(oView)
Dim as1(), lSheet&,lCol&,lRow$, sDum as String,bErr as Boolean
	as1()  = Split(oView.ViewData, ";")
	lSheet = CLng(as1(1))
	sDum = as1(lSheet +3)
	as1() = Split(sDum, "/")
	on error goto errSlash
		lCol = CLng(as1(0))
		lRow = CLng(as1(1))
	on error goto 0
	getActiveCell = oView.Model.getSheets.getByIndex(lSheet).getcellByPosition(lCol,lRow)
exit Function
errSlash:
	if NOT(bErr) then
		bErr = True
		as1() = Split(sDum, "+")
		resume
	endif
End Function

The com.sun.star.i18n.LocaleDataItem of a German active cell yields:

(Name) (Value Type) (Value) (AccessMode)
LongDateDayOfWeekSeparator string , [ReadWrite]
LongDateDaySeparator string . [ReadWrite]
LongDateMonthSeparator string [ReadWrite]
LongDateYearSeparator string [ReadWrite]
dateSeparator string . [ReadWrite]
decimalSeparator string , [ReadWrite]
doubleQuotationEnd string “ [ReadWrite]
doubleQuotationStart string „ [ReadWrite]
listSeparator string ; [ReadWrite]
measurementSystem string metric [ReadWrite]
quotationEnd string ‘ [ReadWrite]
quotationStart string ‚ [ReadWrite]
thousandSeparator string . [ReadWrite]
time100SecSeparator string , [ReadWrite]
timeAM string vorm. [ReadWrite]
timePM string nachm. [ReadWrite]
timeSeparator string : [ReadWrite]
unoID string "" [ReadWrite]