Problème avec SaveStringList.

dll_on "kgf"

dim f1$, f2$, res%

f1$="C:\traducteur\dico_français_espagnol.txt"
f2$="C:\a\dico_français_espagnol.txt"

res%=dll_call2("CreateStringList",20,2)
res%=dll_call2("LoadStringList",20,adr(f1$))
res%=dll_call2("SortStringList",20,2)
res%=dll_call2("SaveStringList",20,adr(f2$))

message "fin"

// Version du 29 jan 2019.

import java.applet.*;
import java.awt.*;
import java.awt.event.*;
import java.util.*;
import java.io.*;

public class test_copie_fichier extends Frame implements WindowListener {

      String ligne=null;

public static void main(String[] args)
      {
     new test_copie_fichier().setVisible(true);
      }

public test_copie_fichier()
      {
      Toolkit kit=Toolkit.getDefaultToolkit() ;
      Dimension screenSize=kit.getScreenSize() ;
      int largeur_ecran=screenSize.width;
      int hauteur_ecran=screenSize.height;
      setLayout(null);
      setBounds((int) ((largeur_ecran-600)/2), (int) ((hauteur_ecran-440)/2), 600, 440);
   
      setResizable(false);
     
      setAlwaysOnTop(true);
      }

public void paint(Graphics g)
      {
      lire();   
      }

public void windowClosing(WindowEvent event)
      {
      // On ferme la fenêtre.
      this.dispose();
      }
public void windowClosed(WindowEvent event) {}
public void windowOpened(WindowEvent event) {}
public void windowIconified(WindowEvent event) {}
public void windowDeiconified(WindowEvent event) {}
public void windowActivated(WindowEvent event) {}
public void windowDeactivated(WindowEvent event) {}

public void lire()
      {
      // 2,5 sec.   
      long start = System.currentTimeMillis();   
        try {
           BufferedReader buffer1=new BufferedReader(new FileReader("c:/traducteur/dico_français_espagnol.txt"));
            BufferedWriter out=new BufferedWriter(new FileWriter("c:/a/dico_français_espagnol.txt"));

          while (true)
                {
                ligne=buffer1.readLine();
                if (ligne.equals("ZZZ")) break;
                out.write(ligne);
                }
                buffer1.close();
                out.close();
            }
            catch (IOException e) {System.out.println("erreur !");}
            System.out.println(System.currentTimeMillis()-start);
          }
}

dll_on "kgf"

dim res%, f1$, f2$, n%

n%=number_click

f1$="C:\traducteur\dico_français_espagnol.txt"
f2$="C:\a\dico_français_espagnol.txt"

res%=dll_call2("CreateStringList",20,2)
res%=dll_call2("LoadStringList",20,adr(f1$))
res%=dll_call2("SortStringList",20,2)
res%=dll_call2("SaveStringList",20,adr(f2$))

message str$(number_click-n%)

dll_on "kgf"

dim res%, f1$, f2$, n%


f1$="C:\traducteur\dico_français_espagnol.txt"
f2$="C:\a\dico_français_espagnol.txt"

res%=dll_call2("CreateStringList",20,2)
res%=dll_call2("LoadStringList",20,adr(f1$))
res%=dll_call2("SortStringList",20,2)

n%=number_ticks
res%=dll_call2("SaveStringList",20,adr(f2$))
message str$(number_ticks-n%)

dll_on "kgf"

dim res%, f1$, f2$, n1%, n2%, n3%

to_foreground 0
f1$="dico_français_espagnol.txt"
f2$="dico_français_espagnol_bis.txt"

res%=dll_call2("CreateStringList",20,2)

n1%=number_ticks
res%=dll_call2("LoadStringList",20,adr(f1$))
n1% = number_ticks - n1%

n2%=number_ticks
res%=dll_call2("SortStringList",20,2)
n2% = number_ticks - n2%

n3%=number_ticks
res%=dll_call2("SaveStringList",20,adr(f2$))
n3% = number_ticks - n3%

message "LoadStringList: "+str$(n1%)+"    SortStringList: "+str$(n2%)+"    SaveStringList: "+str$(n3%) +"   "+str$(res%)+" lignes"

end