--- rpl/src/instructions_w1.c	2023/11/24 09:12:57	1.128
+++ rpl/src/instructions_w1.c	2024/10/30 13:15:21	1.131
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.35
-  Copyright (C) 1989-2023 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.36
+  Copyright (C) 1989-2024 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -19,7 +19,7 @@
 ================================================================================
 */
 
-
+#define DEBUG_ERREURS
 #include "rpl-conv.h"
 
 
@@ -1410,6 +1410,54 @@ instruction_write(struct_processus *s_et
 
 					return;
 				}
+
+				if ((chaine_utf8 = transliteration(s_etat_processus,
+						chaine, d_locale, "UTF-8")) == NULL)
+				{
+					free(chaine);
+
+					liberation(s_etat_processus, s_objet_argument_2);
+					liberation(s_etat_processus, s_objet_argument_1);
+
+					return;
+				}
+
+				free(chaine);
+
+				if (alsprintf(s_etat_processus, &commande,
+						"insert or replace into data "
+						"(id, data) values (%lld, '%s')", (*((integer8 *)
+						(*s_objet_argument_2).objet)), chaine_utf8) < 0)
+				{
+					(*s_etat_processus).erreur_systeme =
+							d_es_allocation_memoire;
+					return;
+				}
+
+				free(chaine_utf8);
+
+				if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
+						commande, (int) strlen(commande), &ppStmt, &queue)
+						!= SQLITE_OK)
+				{
+					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
+					return;
+				}
+
+				if (sqlite3_step(ppStmt) != SQLITE_DONE)
+				{
+					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
+					return;
+				}
+
+				if (sqlite3_finalize(ppStmt) != SQLITE_OK)
+				{
+					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
+					return;
+				}
+
+				liberation(s_etat_processus, s_objet_argument_3);
+				free(commande);
 			}
 			else // Fichiers indexés
 			{