Nb maxi de caractères dans une ligne

dim a$
memo 1 :width 1,100000
a$ = string$(1024,"A")
item_add 1,a$ : '  la chaine entiere est contenue dans la ligne
a$ = string$(1025,"B")
item_add 1,a$ : '  il y a saut à la ligne après 1024 caractères

dim a$,f$,a%

list 1:width 1,width(0)-30    :' bar_horizontal 1
list 2:width 2,width(1) : top 2, height(1)+10  :' bar_horizontal 2

alpha 3:top 3,top(2)+height(2)+30 :font_size 3,20
a$= "0123456"

for a% = 1 to 2000
    a$ =string$(a%,"a")
    clear 1:item_add 1,a$
    file_open_write 1,"Z:\teste.bas"
      file_write 1,a$
    file_close 1
    file_load 2,"z:\teste.bas"
    caption 3,len(item_read$(1,1))
    if count(2) > 1 then message a%:exit_for
next a%

dim a$
width 0, 1000
list 1 :width 1,100000
a$ = string$(65534,"1")
item_add 1,a$ : '  la chaine entière est contenue dans la ligne
a$ = string$(65535,"A")
item_add 1,a$ : '  la chaine entiere est contenue dans la ligne
a$ = string$(65536,"B")
item_add 1,a$ : '  La chaine est purement ignorée!

dim a$ ,a% ,c% ,b$  , f$ :f$= "Z:\teste.txt"

edit 1:width 1,width(0)
list 2:top 2,30:width 2,width(0)-30
memo 3:hide 3:full_space 3  :bar_vertical 3

a$ =" je suis ici et j'y reste. Le devoir m'appelle et je  vous quitte en pensant qu'il serait bon d'éteindre la lumière en partant"
a$ =a$ +a$

for a%=1 to 260:item_add 2,a$
  b$ = b$ +a$
  c%=c%+len(item_read$(2,a%))+2
next a%

' je mets le texte 1 pour bien voir que ce n'est qu'une ligne
text 1,b$
message "longueur du texte de EDIT 1:" + str$(len(text$(1)))

    file_open_write 1, f$    :' j'enregistre l'edit
      file_write 1,text$(1)
    file_close 1
text 1,"" :full_space 0:full_space 2

clear 2  :a%=0 :a$="" :b$=""
file_open_read 1,f$
repeat  :' seulement pour le cas où il y aurait plusieurs lignes (on ne sait jamais)
  file_read 1,a$
  a%=a%+1
  b$=b$+a$
  c%=len(b$)
  text 1,b$
  ' caption 3,"a%=" + str$(a%)  + "  b$:" + str$(len(b$)):' + "  text1: " + str$(len(text$(1))
until file_eof(1)=1
file_close 1
message "après enregistrement, on a relu le fichier"+chr$(13)+"et la longueur de b$="+str$(len( b$ ))+chr$(13)+"et maintenant on récupère par le list 2"
item_add 2,b$

message "la longueur de la chaine dans le list 2 est aussi:" + str$(len(item_read$(2,1)))+chr$(13)+"on relit avec file_load pour voir si c'est pareil"
file_load 2,f$
message "la longueur de la ligne par file_load, est:"+str$(len(item_read$(2,1) ))+chr$(13)+"on regarde maintenant avec un memo"
hide 2 : show 3
file_load 3,f$

full_space 0

label teste
dim a$ ,a%,b$

memo 1:width 1,width(0)-500  :top 1,30
memo 2:top 2,height(1)+50:width 2,width(1)+100
button 3:on_click 3,teste

end
teste:
  if count(1) > 0
      ' on va sauvegarder pour voir si il y a un retour chariot
      file_save 1,"Z:\bout.txt"
      file_open_read 1,"Z:\bout.txt"
      while file_eof(1) <> 1
        file_readln 1,a$
        item_add 2,a$
      end_while
      file_close 1
  end_if
return