Gestion des fichiers textes

rem list 25 charge le fichier "noms.txt"
rem list 26 charge le fichier "adresses.txt"

rem options 11 à 15

rem button 21, "ajouter une applic"
rem button 22, "supprimer 1 applic"

rebuild:
 dir_change current$
    file_load 25,"noms.txt"
      id=count(25)
    file_load 26,"adresses.txt"

  ...

      if id>0
        for i=1 to id
        active 10+i: caption 10+i,item_read$(25,i)
     
        next i
      end_if
      active 21: active 22

    if id=5 then inactive 21
    if id=0 then inactive 22
   
 on_click 16, go
 on_click 22, del
  on_click 21, add
end
 on_click 21, add

on_click 22, del
 on_click 16, go
 
 
...

add:
show 25
  filter 27, "Applications (*.exe)|*.exe"
  a2$=file_name$(27)
  if a2$="_" then goto rebuild
  item_add 26, a2$
  Message "Choisir un nom pour l'application sélectionnée"
...
rem l'utilistaeur rentre un nom dans a$...

    item_add 25, a$
 
  dir_change current$
  file_save 25, "noms.txt"
file_save 26, "adresses.txt"
  hide 25
  goto rebuild
 
 
del:

Message "Sélectionner l'application à supprimer. (Elle n'est pas supprimée de l'ordinateur)"
 show 25 : item_add 25, "Ne pas supprimer"
rem ligne 'ne pas supprimer' est ajoutée: cliquer dessus annule tout
 Repeat
 wait 5
 until clicked(25)=1

 i= item_index(25)
 if i= count(25) then item_delete 25,i: hide 25: goto rebuild
  item_delete 25,i: item_delete 26,i
 item_delete 25, count(25)
  hide 25
dir_change current$

file_save 25, "noms.txt": file_save 26, "adresses.txt"
 goto rebuild