Trouvailles pour Memo_rich

rem "==================================================================="
rem "   programme montrant des possibilités de travail avec MEMO_RICH   "
rem "==================================================================="
' panoramic_editor 0.9.28i18 du 27 avril 2018
' http://panoramic.1fr1.net/t5969-commande-presse-papiers-pour-memo_rich

DIM entete$,rem$,motClef$,chaine$,cmd$ ,par$ , hirl$ ,fin$ , b$  , titre$ , normal$ , clic%  ,atribu$ , u$
label quit , ctrl , ici , close20 , selection , save
u$ = chr$(13)

WIDTH 0,900: HEIGHT 0,300
FORM 10: TOP 10,60: LEFT 10,80: WIDTH 10,1000: HEIGHT 10,250: BORDER_small 10 :on_close 10,quit
MEMO_RICH 11: PARENT 11,10: WIDTH 11,800 :HEIGHT 11,height_client(10) : bar_vertical 11 : ON_mouse_down 11,ctrl  

' memo 7:file_load 7,"z:\attr.rtf" : atribu$ = text$(7) : hide 7
MEMO_RICH 13: PARENT 13,10: LEFT 13,805:HEIGHT 13,height(11)-30 : WIDTH 13,150
   hint 13,"écrire une partie du texte en face du model,"+u$+" sélectionnez celui-ci, "+u$+"et copier par [CTRL V], "+u$+"ensuite cliquez sur le bouton. "+u$+"Une fois dand le texte, collez!"

atribu$ ="{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fnil\fcharset0 Consolas;}{\f1\fnil MS Sans Serif;}}"
atribu$ =atribu$+"{\colortbl ;\red255\green192\blue0;\red0\green0\blue255;\red255\green255\blue0;}"
atribu$ =atribu$+"\viewkind4\uc1\pard\sl240\slmult1\cf1\highlight2\lang12\b\f0\fs28 Titre:\cf0\highlight0\b0\fs22"
atribu$ =atribu$+"\par \pard Normal:"
atribu$ =atribu$+"\par \highlight3\b Cde   :\highlight0\b0 \lang1036\f1\fs16"
atribu$ =atribu$+"\par }"
text 13,atribu$

BUTTON 14:parent 14,10:caption 14,"Sortie":width 14,110:top 14,height(13)-30:left 14,825:on_click 14,selection
   hint 14,"Remet le texte de départ"  
  
  ' sauve pour récupérer au départ les attributs (bouton 13)
' button 15:parent 15,10:caption 15,"sauve":left 15,830:top 15,100:on_click 15,save

memo 12:hide 12 :' memo (au lieu de list dlist...) par obligation à cause de TEXT qui fonctionne pour cet objet
dlist 5
dlist 1
memo  2 :  width 2,screen_x:font_name 2,"Consolas"  
' ------------------------------------------------------------------------------
' définir une form pour hint
FORM 20:width 20,300:height 20,110 : border_small 20:font_size 20,10:left 20,screen_x/2-150 : top 20,screen_y/2-50: hide 20
   on_close 20,close20
memo 21:parent 21,20:full_space 21 : color 21,220,230,255
' ------------------------------------------------------------------------------
 ' programme en exemple
item_add 5,"Le Corbeau et le Renard"
item_add 5,""
item_add 5,"Maître [Corbeau] sur un arbre perché,"
item_add 5,"Tenait en son bec un fromage."
item_add 5,"Maître [Renard] par l’odeur alléché"
item_add 5,"Lui tint à peu près ce langage :"
item_add 5,"Et bonjour, Monsieur du [Corbeau]."
item_add 5,"Que vous êtes joli ! que vous me semblez beau !"
item_add 5,"Sans mentir, si votre ramage"
item_add 5,"Se rapporte à votre plumage,"
item_add 5,"Vous êtes le [Phenix] des hôtes de ces bois."
item_add 5,"À ces mots le [Corbeau] ne se sent pas de joie :"
item_add 5,"Et pour montrer sa belle voix,"
item_add 5,"Il ouvre un large bec, laisse tomber sa proie."
item_add 5,"Le [Renard] s’en saisit, et dit : Mon bon Monsieur,"
item_add 5,"Apprenez que tout flatteur"
item_add 5,"Vit aux dépens de celui qui l’écoute."
item_add 5,"Cette leçon vaut bien un fromage sans doute."
item_add 5,"Le [Corbeau] honteux et confus"
item_add 5,"Jura, mais un peu tard, qu’on ne l’y prendrait plus."
item_add 5,"123456789[abc]45678"

 ' ------------------------------------------------------------------------------------------------------------------
 ' ENTÊTE
item_add 12,"{\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1036{\fonttbl{\f0\fnil\fcharset0 Consolas;}}"
item_add 12,"{\colortbl ;\red255\green192\blue0;\red0\green0\blue255;\red155\green0\blue211;\red255\green255\blue0;}"  
item_add 12,"{\*\generator Riched20 10.0.15063}\viewkind4\uc1 "

titre$= "\pard\sl240\slmult1\cf1\highlight2\b\f0\fs28\lang12 "
'             \sl... interligne
normal$ ="\cf0\b0 "
cmd$    ="\highlight4\b " :' une commande entre-crochets
par$    ="\par"           :' paragraphe
hirl$   ="\highlight0\b0 ":' retire le soulignement

 relire_data()  
 mettre_en_forme()
end
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
quit:
terminate
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
save:
   file_save 13,"z:\attr.rtf"
return                  
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
selection:
   ' select_text, select_read$, les fonctions clipboards ne fonctionnent pas, et ma demande les concernant, vous les avez réfutés.
   ' reste à sélectionner directement, couper, et reporter sur le memorich de départ par [CTRL V]
   text 13,atribu$
   set_focus 11
return
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

SUB mettre_en_forme()
   dim_local txt$, v%, aa$ , i% , bb$ , debut$ , w% , dilut$  
   if count(5) > 0
      txt$=item_read$(5,1)
      debut$ = titre$+txt$+"\cf3"+hirl$ +"\fs22 "
      item_add 12,debut$ + par$
      for i% = 2 to count(5)
         txt$ = item_read$(5,i%)
         txt$=reverse$(txt$)
         v% = instr(txt$,"]")
         if v% > 0
            aa$ = right_pos$(txt$,v%)
            bb$ = left$(txt$,v%)
            aa$=reverse$(aa$)  
            bb$ = reverse$(bb$)
            ' --------------------------------------------------------------------------------
            v% = instr(aa$,"[")
            debut$ = left$(aa$,v%) : aa$= right_pos$(aa$,v%+1)
            txt$ = debut$
            repeat
               v% = instr(aa$,"]")
               if v% > 0  
                  txt$ = txt$ + cmd$ + left$(aa$,v%-1) + hirl$
                  w% = instr(aa$,"]")
                  dilut$ = right_pos$(aa$,w%-2)
                  aa$ = right_pos$(aa$,w%-1)  
                  w% = instr(dilut$,"[")
                  if w% > 0
                     if w% > 1
                        txt$ = txt$ + left$(dilut$,w%-1)
                     end_if
                  end_if
                   aa$ = right_pos$(dilut$,w%)      
               end_if
            until aa$ = "" or scancode = 27
            bb$=trim$(bb$)
            item_add 12,txt$ +bb$+par$
         ELSE
            item_add 12,  normal$ + reverse$(txt$) + par$
         END_IF
         txt$ = text$(12) :    text 11,txt$ :' optionnel pour voir progrssion affichage
      next i%  
      txt$ = text$(12)
      text 11,txt$              
      ' file_save 11,"z:\xx.rtf"
   end_if
END_SUB
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ctrl:        
   ctrl(caret_position(11))
return
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
SUB ctrl(i%)
   ' dans le schéma codé, une commande est entourée de crochets, et ici, on regarde si on a cliqué sur une commande
   dim_local a$ , v%,c$ , tx$ ,b$ , w% , lig%
   tx$ = text$(11)
   a$ = left$(tx$,i%+50)      
   lig% =0
   repeat     :' RECHERCHE DE LA LIGNE CLIQUÉE pour se repositionner après
      w% = instr_pos(a$,chr$(13)+chr$(10),w%+1)
      lig%=lig%+1
   until scancode = 27 or w% =0
    
   for v% = i% to 1 step -1     :' recherche dans la ligne une commande
      c$ = mid$(a$,v%,1)
      if c$ = "]" then exit_for :' hors du mot
      if c$ = "["
         b$ = c$
         for w% = v%+1 to v%+50
            c$ = mid$(a$,w%,1)
            if c$ = "]"
               b$ = mid$(tx$,v%,w%-v%+1)
               ' ICI TRAITEMENT si commande
               b$ = upper$(b$)
               wiki(b$)
               exit_for
            end_if
         next w%
      end_if
      if w% > v% then exit_for
   next v%
   a$ = item_read$(11,lig%)
   if lig% > 1 then lig%=lig%-1
   item_insert 11,lig%,"  @@@@@@@@@@@@@@@@@@@   INSERTION   @@vérification@@@@@@@@@@@@@@@@@@@@@@@"
   ' message "insertion"   :' si on veut voir
   item_delete 11,lig%   :' on retire la ligne insérée.
   caret_position 11,i%  :' REMET LE CURSEUR A SA PLACE    
END_SUB
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
SUB relire_data()
   restore_label ici
   clear 1
   dim_local h$,i%,b$,t$,a$
   for i% = 1 to 4
      read a$
      t$ = t$ +a$
   next i%
   a$ =""
   for i% = 1 to len(t$) step 2
      b$ = mid$(t$,i%,2)
      if b$ = "0a"
         item_add 1,a$ : a$ = ""
      else
         a$ = a$ + chr$(hex(b$))
      end_if
   next i%
   item_add 1,a$
END_SUB
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
SUB wiki(hint$)
   dim_local i%,a$,t$,b$ ,j%
   clear 21
   for i% = 1 to count(1)
      a$ = item_read$(1,i%)
      if a$ = hint$
         item_add 21,a$
         for j% = i%+1 to count(1)
            a$ = item_read$(1,j%)
            if a$ = "$$$" then exit_for : else : item_add 21,a$
         next j%
         show 20
         exit_for
      end_if
   next i%
END_SUB
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
close20:
   hide 20
   set_focus 11
return

ici:
data "2424240a5B434F52424541555D0a7574696C6973E920616E6369656E6E656D656E7420656E20706C6F6D62657269652C20632765737420756E20E96CE9"
data "6D656E74206DE974616C6C6971756520717569207365727420E020736F7574656E697220756E652063616E616C69736174696F6E0a2424240a5B52454E"
data "4152445D0a556E2072656E617264207065757420EA74726520756E2027696E64696327206F7520756E2062726973657572206465206772E876652E0a24"
data "24240a5B5048454E49585D0aEA74726520766976616E74206669677572E920737572206C27E96375206427756E20626C61736F6E0a2424240aA4A4A40a"

text_insert 11,caret_position(11),atribu_start$+clipboard_string_paste$+atribu_end$ :' clipboard_paste 11 simulée

select_text 11,depart,longueur : clipboard_string_copy atribu_start$+trim$(select_read$(1))+atribu_end$ :' clipboard_copy N simulée

' panoramic_editor v0_29_i4
dim null , p
memo_rich 11 : left 11,100
item_add 11,"blablabla"

p=2
select_text 11,p,6  :' pas de surlignage dans le memo_rich(couleur à configurer ou bug?), mais selection ok
null=FIND(trim$(select_read$(11)),11,p) :' contourner le pb de surlignage
'
print trim$(select_read$(11))
print text$(11)