Je ne vois pas mon message où j'avais posté le code de la macro, donc je
recommence en utilisant la boite mail cette fois (je comprends rien à ce
système de mélange forum/mailing list, première fois que je vois ça désolé).
Comme je le disais précédemment, le fichier JSON créé par la macro est
apparemment ANSI, je ne sais pas lui dire de faire de l'UTF-8. Quand je
crée au préalable un fichier en UTF-8, la macro l'écrase pour en refaire un
en ANSI.
Convertir le fichier en UTF-8 après coup n'enlève pas les "?". J'ai essayé
plusieurs éditeurs de texte et plusieurs fontes.
Le copier/coller fait un peu buguer l'indentation.
Dans mon fichier Calc, de la colonne A à D, ce sont les balises et marques
pour le formatage du langage JSON.
De la colonne E à J ce sont les langues.
La macro parse les lignes et les écrit à la suite dans un fichier .json
propre à chaque langue en créant la bonne indentation et le bon formatage
du langage.
REM ***** BASIC *****
Sub Main
Dim oFeuille as object, Cellule as object
Dim Resultat as string
oFeuille = ThisComponent.Sheets.getByName("quiz")
Nblang=6
for Lang=0 to (Nblang-1)
if Lang=0 then Fichier= Left(ThisComponent.URL , Len(ThisComponent.URL)-16)
& "en.json"
if Lang=1 then Fichier= Left(ThisComponent.URL , Len(ThisComponent.URL)-16)
& "fr.json"
if Lang=2 then Fichier= Left(ThisComponent.URL , Len(ThisComponent.URL)-16)
& "de.json"
if Lang=3 then Fichier= Left(ThisComponent.URL , Len(ThisComponent.URL)-16)
& "es.json"
if Lang=4 then Fichier= Left(ThisComponent.URL , Len(ThisComponent.URL)-16)
& "it.json"
if Lang=5 then Fichier= Left(ThisComponent.URL , Len(ThisComponent.URL)-16)
& "kr.json"
open Fichier for output as #1
for l=1 to 350 ' lignes (parse l'intégralité du document)
Resultat=""
for c=0 to 4
Cellule = oFeuille.getCellByPosition(c,l)
CelluleLang = oFeuille.getCellByPosition(c+Lang,l)
CelluleLangSuivante = oFeuille.getCellByPosition(c+Lang,l+1)
if c=0 and len(Cellule.String)>0 then
Resultat = Cellule.String
goto quiznext
endif
if c<4 and len(Cellule.String)>1 then
Resultat = Resultat & Cellule.String
endif
if c=4 and len(CelluleLang.String)>1 and
len(CelluleLangSuivante.String)>1 then Resultat = Resultat & " """ &
CelluleLang.String & ""","
if c=4 and l<>54 and len(CelluleLang.String)>1 and
len(CelluleLangSuivante.String)=0 then Resultat = Resultat & " """ &
CelluleLang.String & """"
if c=4 and l=54 then Resultat = Resultat & " """ & CelluleLang.String &
""","
if len(Cellule.String)=0 then Resultat = Resultat & " "
quiznext:
next c
if len(Resultat)>1 then
print #1, Resultat
endif
next l
close #1
next Lang
Le mer. 29 août 2018 à 23:38, Cédric Giraud <[email protected]> a
écrit :
> Ah, au temps pour moi, je cliquais sur "reply" depuis le forum, je croyais
> que tout le monde le voyais, le site me disant que le mail était envoyé à
> toute la liste.
>
> Le mer. 29 août 2018 à 19:04, Landron Gérard <[email protected]> a
> écrit :
>
>> Le 29/08/2018 à 16:10, [email protected] a écrit :
>> > Bonjour
>> >
>> Si vous répondez, merci de penser à utiliser la fonction "répondre à
>> tous" de votre logiciel de courrier électronique de façon que la liste
>> reçoive une copie de votre réponse.
>>
>>
>> >
>> > Email:: [email protected]
>> > Sujet:: Calc macro : écrire des caractères coréens dans un fichier
>> > OS:: Windows 10
>> > Version:: 6.0.x
>> > Question:: Bonjour,
>> > J'utilise LibreOffice Calc pour gérer des traductions, ainsi qu'une
>> macro qui génère des fichiers .json (un par langue, dont le coréen, seule
>> langue avec alphabet non latin du lot).
>> >
>> > Calc m'affiche bien les caractères coréens, mais dans le fichier .json
>> généré, je n'ai que des "?". Comment régler le problème ?
>> Bonsoir,
>>
>> quel est l'encodage du fichier json ? c'est la macro qui le défini ou le
>> système ?
>>
>> > Je n'ai pas d'autre problème que ça.
>> >
>> > Merci,
>> Gérard
>>
>
--
Envoyez un mail à [email protected] pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy
