RE: [prog] Ajout d'un Numberformat en 2.0

[DAVID Jean-Claude - CETE Ouest/DU/AEH]

Bon, je fais avancer mon Shmilblick...

En fait il apparait que c'est avec le getByKey que j'ai des problèmes. Vous
pouvez essayer le code ci dessous, qui indique que '# ##0' est différent de
'# ##0' !!!???... ;-

S1 est codé en dur comme '# ##0', S2 est affecté par le 3ème format de la
liste qui est égal à '# ##0'. Le test avec S1 ne fonctionne pas, celui avec
S2 fonctionne.

Une idée ?
JCD

Sub Test
Dim i as Integer
Dim NLS As New com.sun.star.lang.Locale
dim s1 as String 
dim s2 as String 
dim oFormats as Object 
dim oFormat as Object 

s1 = "# ##0"

oFormats = ThisComponent.getNumberFormats()
oFormat = oFormats.getByKey(3)
s2 = oFormat.FormatString()   

if (s1 <> s2) then
MsgBox "s1 <> s2 (S1 = '" & s1 & "', s2 = '" & s2 & "')",
sbOkOnly, Titre_Appli
MsgBox "oFormat.FormatString = " & oFormat.FormatString
MsgBox "oFormat.Locale.Language = " &
oFormat.Locale.Language
MsgBox "oFormat.Locale.Country = " & oFormat.Locale.Country
MsgBox "oFormat.Locale.Variant = " & oFormat.Locale.Variant
MsgBox "oFormat.Type = " & oFormat.Type '16 ==> Type =
"NUMBER"
MsgBox "oFormat.Comment = " & oFormat.Comment
else
MsgBox "s1 = s2 (S1 = '" & s1 & "', s2 = '" & s2 & "')"
end if

'Test 1 with s2 
i = oFormats.queryKey ( s2, NLS, TRUE)
MsgBox "With s2, i = '" & i & "'"

'Test with s1
NLS.Language = "fr"
NLS.Country = "FR"
i = oFormats.queryKey ( s1, NLS, TRUE)
MsgBox "With s1, i = '" & i & "'"

'Test 2 with s2 (with NLS Specified)
i = oFormats.queryKey ( s2, NLS, TRUE)
MsgBox "With s2, i = '" & i & "'"
End Sub

-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: [prog] Ajout d'un Numberformat en 2.0

[pac]

DAVID Jean-Claude - CETE Ouest/DU/AEH a écrit :

Bon, je fais avancer mon Shmilblick...

En fait il apparait que c'est avec le getByKey que j'ai des problèmes. Vous
pouvez essayer le code ci dessous, qui indique que '# ##0' est différent de
'# ##0' !!!???... ;-
  


Salut,
j'ai déjà eu ce problème et me suis arraché quelques cheveux avant de 
comprendre. En fait, le ThousandSeparator ressemble à un ESPACE code 
ascii 32 mais c'est en fait un caractère blanc dont le code ascii est le 
160.

C'est pourquoi il trouve que les 2 sont différents.

pac.

-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: [prog] Ajout d'un Numberformat en 2.0

[DAVID Jean-Claude - CETE Ouest/DU/AEH]

Argh, merci beaucoup. J'en étais rendu à me préparer une boucle pour
afficher le code ascii caractère par caractère de la chaîne... ;-))
Bon, ben j'ai quand même perdu pas mal de temps avec ce p de séparateur
de milliers qui a donc changé en la V.1 et la V2.
A tous les deux on arrivera peut être à faire une perruque avec le tas au
pied du bureau ;-D

JCD

-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]