Mais que fait le capitaine MEMO ?

caption 0,"Mon petit rapporteur version 1.0"
color 0,67,147,175
label ajout_titre,ajout_formule,RAZ,nouveau_titre,nouvelle_formule
label efface_dernier_titre,efface_derniere_formule,insere_date
label efface_derniere_ligne,colle_texte,efface_selection_titre
label efface_selection_rubriques,vers_presse_papier,virgule
label open_tst,sav_tst,open_init,sav_the_end
label menu_aide
dim i,texte$
width 0,640

main_menu 2
sub_menu 3:parent 3,2:caption 3,"Fichier"
sub_menu 4:parent 4,2:caption 4,"Aide"
sub_menu 5:parent 5,3:caption 5,"Ouvrir un Fichier TST"
sub_menu 6:parent 6,3:caption 6,"Sauver TST"

form 100:hide 100:height 100,300:caption 100, "AIDE"
top 100,80:left 100,360
alpha 7:alpha 8:alpha 9
left 7,40:font_size 7,18:caption 7,">    TITRES"
left 8,250:font_size 8,16:caption 8,">> Sous-Titres"
left 9,420:font_size 9,14:caption 9,">>> Le rapport final"
list 10:width 10,185:color 10,219,130,13
list 12:width 12,185:color 12,251,146,7
' #####################
' Ici j'ajoute mes mots
' #####################
' item_add 10,"RAPPORT"
' item_add 12,"Aujourd'hui,":item_add 12,"Hier,"
' item_add 12,"à table":item_add 12,"pendant":item_add 12,"le repas"
' item_add 12,"l'atelier":item_add 12,"le coucher":item_add 12,"la nuit"
' item_add 12,"l'équipe":item_add 12,"groupe de vie"
' #####################
memo 14:color 14,248,152,27
left 10,30:left 12,34+width(10):left 14,38+width (10)+width(12)
top 10,24:top 12,24:top 14,24
height 10,300:height 12,300:height 14,300
font_size 10,18:font_size 12,14

button 20:left 20,80:top 20,330:caption 20,"Ajouter"
button 22:left 22,265:top 22,330:caption 22,"Ajouter"
button 30:left 30,80:top 30,390:caption 30,"Sup Dernière"
button 31:left 31,80:top 31,360:caption 31,"Sup Sélection"
button 32:left 32,265:top 32,390:caption 32,"Sup Dernière"
button 33:left 33,265:top 33,360:caption 33,"Sup Sélection"
button 34:left 34,465:top 34,330:caption 34,"Insère la date"
button 35:left 35,465:top 35,360:caption 35,"Virg"
button 36:left 36,415:top 36,360:caption 36,"Sup Dernière"
button 37:left 37,515:top 37,360:caption 37,"Coller"
button 38:left 38,465:top 38,390:caption 38,"Presse-Papier"


gosub open_init

on_double_click 10,ajout_titre
on_double_click 12,ajout_formule
on_double_click 14,RAZ
on_click 4,menu_aide
on_click 5,open_tst
on_click 6,sav_tst
on_click 20,nouveau_titre:on_click 22,nouvelle_formule
on_click 30,efface_dernier_titre
on_click 31,efface_selection_titre
on_click 32,efface_derniere_formule
on_click 33,efface_selection_rubriques
on_click 34,insere_date
on_click 35,virgule
on_click 36,efface_derniere_ligne
on_click 37,colle_texte
on_click 38,vers_presse_papier

end

ajout_titre:
 item_add 14,item_index$(10)
return

ajout_formule:
 item_add 14,item_index$(12)
return

RAZ:
 clear 14
return

nouveau_titre:
 texte$=message_input$("Ajout d'un nouveau titre à la liste","Tape ton texte","xxx")
 if texte$<>"xxx" then item_add 10,texte$
return

nouvelle_formule:
 texte$=message_input$("Ajout d'une formule à la liste","Tape ton texte","xxx")
 if texte$<>"xxx" then item_add 12,texte$
return

efface_dernier_titre:
 item_delete 10,count(10)
return

efface_derniere_formule:
 item_delete 12,count(12)
return

insere_date:
 item_add 14,date$
return

efface_derniere_ligne:
 item_delete 14,count(14)
return

colle_texte:
  texte$=""
    for i=1 to count(14)
     texte$=texte$+item_read$(14,i)+" "
    next i
  clear 14
  item_add 14,texte$
return

efface_selection_titre:
 item_delete 10,item_index(10)
return

efface_selection_rubriques:
 item_delete 12,item_index(12)
return

vers_presse_papier:
 clipboard_copy 14
return

virgule:
 texte$=item_read$(14,count(14))+", "
 item_delete 14,count(14)
 item_add 14,texte$
return

open_init:
 file_open_read 1,"reporter.txt"
   while file_eof(1)<>1
     file_readln 1,texte$
     item_add 10,texte$
   end_while
 file_close 1
 file_open_read 2,"freporter.txt"
   while file_eof(2)<>1
     file_readln 2,texte$
     item_add 12,texte$
   end_while
 file_close 2
return

sav_the_end:
 file_open_write 1,"reporter.txt"
   for i=1 to count(10)
      file_writeln 1,item_read$(10,i)
   next i
 file_close 1
 file_open_write 2,"freporter.txt"
   for i=1 to count(12)
      file_writeln 2,item_read$(12,i)
   next i
 file_close 2
return

open_tst:
return

sav_tst:
return

menu_aide:
show 100:print_target_is 100
print " Cet utilitaire fabrique un rapport dans le troisième cadre, avant"
print " de le copier dans le clipboard (bouton Presse-Papier)."
print
print " Le PREMIER cadre contient les titres des paragraphes,"
print " le second des formules déjà rédigées."
print
print " Un DOUBLE CLIC sur un cadre envoie la sélection..."
print "... dans le TROISIEME cadre.OK ?"
print
print " Un bouton te permet d'ajouter tes titres et tes formules,"
print " qui seront SAUVEGARDÉS quand tu quitteras le programme."
print
print " Les boutons Sup permettent de supprimer la dernière ligne,"
print " ou une ligne de ton choix.Positionne le curseur à cet effet"
print
print " Les ajouts se placent l'un en-dessous de l'autre."
print " Le bouton COLLER permet de refaire des lignes."
return

astuce_70:
 clipboard_string_copy chr$(4):clipboard_paste 14
   for i=1 to count(14)
     if instr(item_read$(14 ,i),chr$(4))<>0
       place_du_chr4=instr(item_read$(14 ,i),chr$(4))
       ligne_courante_du_memo=i:message str$(i)
       texte$=left$(item_read$(14,i),place_du_chr4-1)+right$(item_read$(14,i),len(item_read$(14,i))-place_du_chr4)
       item_delete 14,i:item_insert 14,i,texte$
     end_if
   next i
return

modifier_liste:
  off_click [m_6]
  on_click [m_6],choix_item_montage
  set_focus [m_6]
return