comprend pas l'erreur d'un guillemet.

declare()


a$="left,top,width,height,font_size,full_space,color,hint,hide,show,font_color,font_name,on_click,on_change,bar_horizontal,bar_both,bar_vertical,font_bold,font_italic,font_underline,font_strike,font_bold_off,font_italic_off,"
a$=a$+"font_underline_off,font_strike_offactive,effet_3D,clipboard_copy,clipboard_paste,clipboard_string_copy,clipboard_string_paste$,on_key_up,on_key_down,cursor_arrow,cursor_beam,cursor_cross,cursor_default,cursor_help,cursor_hide"
a$=a$+",cursor_noparking,cursor_point,cursor_hourglass,file_save,bar_none,caret_position,clear,clipboard_cut,count,on_double_click,double_cliked,clicked,delete,file_add,handle, hide(),item_read$,key_up_code,key_up_special,"
a$=a$+"Mouse_left_up,item_add,object_parent,object_type,off_change,off_click,off_double_click,off_key_down,off_key_up,parent,print_target_is,select_read$,select_text,set_focus,item_delete,item_insert,file_load"

explode(",",a$)
lig%=1 :col%=1
for a%=1 to NB_coord%
  a$ = texte$(a%)
  item_add 10,a$
  caption 0,count(10)
next a%


END

' ******************************************************************************
sub declare()
full_space 0
' teste de saisie d'une ligne d'un memo'
left 0,100
label selection
dim i$ ,retour$ , ligne% ,f$
i$=chr$(4)
  ' '
  save_dialog 1
  filter f$, "enregiste|*.txt"
  dim a% , objet% , a$ ,x8% , y8% , lig_8% , col_8% ,separ$,texte$(1000) , NB_coord% ,lig% , col%
   memo 10:top 10,0:width 10,300:height 10,800:FONT_NAME 10,"bitstream Vera Sans Mono":font_size 10,10
   bar_vertical 10 :on_click 10,selection
   memo 11:left 11,310:width 11,300:height 11,800:FONT_NAME 11,"bitstream Vera Sans Mono":font_size 11,10
   bar_vertical 11
   edit 12:left 12,800
   
end_sub
' ******************************************************************************

' ******************************************************************************+
sub EXPLODE(separ$,chaine$)
  dim_local explode%
  dim_local copie$ , v_explode%
  for explode%=1 to 500:texte$(explode%)="":next explode%
  explode%=1:copie$=chaine$
  if right$(copie$,1)<> separ$ then copie$ = copie$  +separ$
  repeat
      v_explode%=instr(copie$, separ$ )
      if v_explode%>0 then texte$(explode%)=left$(copie$,v_explode%-1):copie$=mid$(copie$,v_explode%+1,len(copie$)):explode%=explode%+1
  until v_explode%=0:Nb_coord%=explode%-1
END_SUB

' ----------------'
selection:
  clic_memo(10) :' N° du memo
  caption 0,retour$
  item_delete 10,ligne%
  item_add 11,retour$
  if f$ = "" then f$ = file_name$(1):text 12,f$
  if f$ <> "_" then file_save 11,f$
return

sub clic_memo(n%)
  dim_local a$,b$,a%,l%,b%,j%
  clipboard_string_copy i$ : clipboard_paste n% :' insert un caractère à l'emplacement du curseur
  ' celui-ci est recherché dans le memo, pour retrouver la ligne.
  if count(n%)>0
      l%=0
      for a%=1 to count(n%)
        a$=item_read$(n%,a%)
        b% = instr(a$,i$)
        if b% > 0
            if b% > 1 then a$=left$(a$,b%-1)+mid$(a$,b%+1,len(a$)):else:a$=mid$(a$,2,len(a$)
            item_delete n%,a%:item_insert n%,a%,a$
            if l%=0 then l%=1
            SELECT_TEXT n%,l%,len(a$)+1
            retour$ = a$  :ligne% = a%
        else
            l%=l%+len(a$)+2
        end_if
      next a%
  end_if
end_sub