Besoin de testeur

[Trebor55]

Bonjour,
Je voudrais que quelqu'un teste le code suivant avec la démo de SpiderBasic et la version complète
Et dire si le résultat est correct avec les deux versions.
Chez moi avec la démo le résultat est ne s'affiche pas.
Voici le code :

Code : Tout sélectionner

EnableExplicit
Enumeration
  #Window
  #ButtonGadget
  #TextGadget
EndEnumeration
CloseDebugOutput()


Procedure ChooseFileEvent()
  
  Define nombre.s, textoArchivo.s         
  
  EnableJS

function cargarArchivo(callback) {

    var inputArchivo = document.createElement('input');
    inputArchivo.type = 'file';
    inputArchivo.accept = '.*';
    inputArchivo.style.display = 'none';
    document.body.appendChild(inputArchivo);

    inputArchivo.addEventListener('change', function(event) {
        var archivo = event.target.files[0];
            v_nombre=archivo.name;

        If (archivo) {

            var lector = new FileReader();
            
            lector.onload = function(e) {
                var contenido = e.target.result;

                localStorage.setItem("contenu", contenido);
                localStorage.setItem("nombre", archivo.name);

                callback(null, contenido);
            };
            
            lector.onerror = function(error) {
                callback(error, null);
            };
            
            lector.readAsText(archivo);
        }
        
        document.body.removeChild(inputArchivo);
    });

    inputArchivo.click();
};

cargarArchivo(function(error, contenido) {
    If (error) {
        console.error('Erreur lors du chargement du fichier:', error);
    } Else {
      v_textoarchivo=contenido;

  DisableJS
  ; Votre nom de fichier est en variable: nombre
  ; Votre contenu est en variable:  textoarchivo  
  SetGadgetText(#TextGadget,textoArchivo)
  EnableJS
    }
});
  DisableJS
  
EndProcedure

OpenWindow(#Window, #PB_Ignore, #PB_Ignore, 400, 700, "", #PB_Window_ScreenCentered|#PB_Window_BorderLess)
ButtonGadget(#ButtonGadget, 10, 10, 380, 50, "Chargez le fichier texte")
TextGadget(#TextGadget,10,70,380,620,"",#PB_Text_Border)
BindGadgetEvent(#ButtonGadget, @ChooseFileEvent())

Merci


----edit Ar-S----
Pense à mettre ton code entre les balises code dédiées la prochaine fois, merci.

[Trebor55]

Désolé pour l'affichage du code.
Je fais cette demande c'est pour savoir si c'est une mauvaise installation de SipderBasic ou un défaut de la démo

[Ar-S]

Je n'ai pas répondu car je ne l'ai pas. Le coté spider étant plus que rare sur le fofo, tu devrais poser la question sur le forum spiderbasic officiel : https://forums.spiderbasic.com/ si tu as de la peine à traduire tu peux utiliser : Deepl

[Trebor55]

Bonjour,
J'ai finalement réussi à me débrouiller avec la démo