Demande fonction KGF pour inclure une série dans une liste.

Code:

teste()
end
===================
sub teste()
   ' dir_change "C:\PANO\Pano_sans_événement\end_sub"
   dll_on "KGF.dll"
   dim_local cc$ , a  : font_size 0,10 : font_bold 0  : full_space 0
   list 1 : width 1,width(0) : height 1,100:  file_load 1,"teste.txt"
   list 6 : top 6,210 :width 6,550 : height 6,500
   dim_local separ$, mask_separ$, mask_text$, mask_quote$, mask_out$, res%
      mask_separ$ = "*" : mask_text$ = "=" : mask_quote$ = "{}"
      separ$ = "' =+,:()"
      for a = 1 to count(1)
         cc$ = item_read$(1,a)
         mask_out$ = string$(len(cc$)+1," ")
         res% =          dll_call6("GenerateMask",adr(cc$),adr(separ$),adr(mask_separ$),adr(mask_text$),adr(mask_quote$),adr(mask_out$))
         ' res% = dll_call6("GenerateMaskList"     ,adr(cc$),adr(separ$),adr(mask_separ$),adr(mask_text$),adr(mask_quote$),handle(6))
         res% = dll_call6("GenerateMaskFragments",adr(cc$),adr(separ$),adr(mask_separ$),adr(mask_text$),adr(mask_quote$),handle(6))
         message "controle"
      next a
end_sub

Spoiler:

Klaus a écrit:

Je ne m'attendais pas à ce qu'une ligne puisse se terminer par un guillemet sans guillement correspondant auparavant. Mais ça marche maintenant avec la version que je viens de mettre en ligne.

Code:

txt$ = "je suis ici pour le plaisir.":' Je regarde la télé, et c'est beau à voir. Serait-il bien de bien penser?"

Code:

' message str$(screen_x) + "  -  " + str$(screen_y) :stop
full_space 0 : font_size 0,9 : font_bold 0 : font_name 0,"Consolas"  :      ' pour imprimer un source
label ouvre , visible , correction ,go , page_suiv ,page_precedente , impression
dim f$ ,tab% , debut ,fin , retour , lig_maxi
tab% = 3 : debut = 1 : fin = 1
lig_maxi = 45
open_dialog 1
image 5
picture 10 : 2d_target_is 10 : print_target_is 10 : font_name 10,"Courier New":font_size 10,9 :full_space 10 : font_bold 10 :' width 10,width(0)-30 : height 10,500
' message str$(width(10)) + "---" + str$(height(10)) : stop
      hide 10
list 15 : top 15,520:width 15,width(10) :height 15,300 : hide 15
list 16 :color 16,255,255,200:height 16,300  : font_name 16,"Courier New"  : full_space 16    :width 16,width(15)-110 :' top 16,520:left 16,100

main_menu 20:sub_menu 21:parent 21,20:caption 21,"fichier"
sub_menu 22 : parent 22,21:caption 22,"ouvrir":on_click 22,ouvre
sub_menu 24 : parent 24,21:caption 24,"imprimer":on_click 24,impression
sub_menu 23 : parent 23,21:caption 23,"correction du source pour imprimer":on_click 23,go
sub_menu 25 : parent 25,20:caption 25,"visible"
sub_menu 26 : parent 26,25:caption 26,"Vu impression":on_click 26,visible
sub_menu 27 : parent 27,25:caption 27,"correction":on_click 27,correction
sub_menu 30 : parent 30,20:caption 30,"page_suivante" : on_click 30,page_suiv
sub_menu 31 : parent 31,20:caption 31,"page_précédente":on_click 31,page_precedente

list 6: left 6,width(0)-150 :top 6,50:height 6,900 : hide 6
' memo 7 : left 7,200:top 7,150:width 7,900:font_size 7,10 : height 7,500 : hide 7
' edit 8 : left 8,100:top 8,150:width 8,60
list 100:left 100,left(6)-200 : height 100,height(6) : top 100,100 : width 100,200
dll_on "C:\PANO\DLL\KGFtest.dll"
' version_kgf()
gosub ouvre
end
==============
page_suiv:
   debut = retour
   fin = debut + lig_maxi-1
   ecrire(debut,fin,lig_maxi)
return
==============
page_precedente:
   debut = debut - lig_maxi : if debut < 1 then debut = 1
   fin = debut + lig_maxi-1
   ecrire(debut,fin,lig_maxi)
return
==============
ouvre:
   f$ = file_name$(1)
   if f$ <> "_" then file_load 15,f$   : gosub go
return

visible:
   hide 16:' show 10
return
correction:
   hide 10:show 16
return
======================
go:
   go():return

sub go()
   dim_local a,aa$,b,bb$,i , lig ,cc$ ,dd$ ,gauche ,ee$ ,suiv  , sel% ,tant$, bloc(10)
   dim_local fi$,fi_edn$,eles$,tehn$,wihel$,wihel_ned$,rapeat$,nutil$,selce$,selce_edn$,cesa$,fro$,nxet$,retrun$ , annule$, ff$ , gg$
   fi$="if ":fi_edn$="end_if":eles$ = "else":tehn$ = "then " : wihel$="while " : wihel_ned$ = "end_while" : rapeat$ = "repeat":nutil$="until "
   selce$ = "select ":selce_edn$="end_select" : cesa$="case " : fro$="for ": nxet$="next " : retrun$ = "return " : tant$ = "th"+"en"
   dim_local condition$ , fin_cond$
   condition$ = " if else while repeat select for then "
   fin_cond$ = " end_if end_while until next "
   annule$ = " n e at l t r se le at ct or en il "

   if count(15) > 0
      for a = 1 to count(15)
         aa$ = trim$(item_read$(15,a))+" "

         if aa$ = " " then aa$ = "" :' pas de traitement
         bb$ = right$("    "+str$(a),5)+"|"
         if aa$ <> ""
            cc$ = ""
            dd$ = lower$(aa$)
            i = instr(dd$," ")
            dd$ = left$(dd$,i)
            if left$(dd$,6)="repeat" then dd$ = "repeat " : if instr(aa$,"until") > 0 then dd$=""
            if left$(dd$,3) = "if " and instr(aa$,tant$) > 0 then dd$=""
            if left$(dd$,3) = "if " and instr(lower$(aa$),"end_if") > 0 then dd$ = ""
            if left$(dd$,4)= "for " and instr(lower$(aa$),"next ")  > 0 then dd$ = ""
            if left$(dd$,2) = "' " then dd$ = ""
            if instr(annule$,dd$) > 0 then dd$ = ""
            if left$(dd$,6)= "select" then sel% = sel% +1 : bloc(sel%) =suiv +1
            if left$(dd$,4)= "else" then dd$ = "" : suiv=suiv-1
            if left$(dd$,9)= "end_while" then dd$ = "end_while "
            if left$(dd$,6)= "end_if" then dd$ = "end_if " : dd$ = "" : suiv = suiv -1 : gauche=suiv
            if left$(dd$,10)="end_select" then dd$ = "" : gauche = bloc(sel%)-1 : sel% = sel% -1 : suiv = gauche

            if left$(dd$,7)="end_sub" then suiv=0 : gauche=0


            if dd$ = " " then dd$ = ""
            if instr(condition$,dd$) > 0  and len(dd$) > 2
               gauche = gauche +1
            else
               if instr(fin_cond$,dd$) > 0 and len(dd$) > 4
                  gauche = gauche -1:if gauche =<0 then gauche = 0
                  suiv = gauche
               end_if
            end_if
            if left$(dd$,4) = "case" then suiv=bloc(sel%) : gauche = gauche+1

            if left$(dd$,4)= "sub " then gauche=0: suiv = 0

            ee$ = bb$

            if suiv < 1
               ee$ = ee$ + aa$
            else
               ' message "suiv="+str$(suiv)+chr$(13)+"tab%="+str$(tab%)+chr$(13)+"suiv*tab%)="+str$(suiv*tab%)
               ee$ = ee$ + string$(suiv*tab%," ") + aa$
            end_if
            ' ******************
            ' on coupe ee$ si il dépasse une certaine longueur

            ff$ = ee$  : gg$ = ee$

            if len(ff$) > 130
               gg$ = left$(ff$,130)  : gg$ = reverse$(gg$)
               i = instr(gg$," ")

               if i > 20
                  ' gg$ = left$(ff$,130) : gg$ = reverse$(gg$)
                  i = 20
                  ' message "gg$="+gg$ + chr$(13) + "ff$="+ff$+ chr$(13) + "ee$="+ee$ + chr$(13) + "...130:>"+right_pos$(gg$,i)
               end_if

               gg$ = right_pos$(gg$,i) : gg$ = reverse$(gg$)
               ff$ = right_pos$(ee$,len(gg$)+1)
               item_add 16,gg$ +"..._"
               if suiv > 0
                  ee$ = "==>      " + string$(suiv * tab%," ")+ff$
               else
                  ee$ = "==>      " + ff$
               end_if
               item_add 16,ee$

            else
               item_add 16,ee$
            end_if



            ' ******************

            suiv = gauche
            if left$(dd$,4)="else" then gauche = gauche +1 :suiv = gauche-1
            if dd$ = "return" or right$(trim$(dd$),6) = "return" then gauche=0:suiv=0
            if left$(dd$,4)="sub " then gauche=1:suiv=1
            if right$( trim$(aa$),1)  = ":" then gauche =1 : suiv = 1
         ELSE
            item_add 16,bb$
         end_if :' ""

      next a
         ' ecrire(1,lig_maxi,lig_maxi)
   end_if
end_sub


===============================================================================

sub ecrire(debut,fin,nb_ligne)
   ' message "debut="+str$(debut)+ "  fin="+str$(fin) + "  nb_ligne=" + str$(nb_ligne)
   if debut = 0 then debut = 1
   dim_local code$,chaine$,commentaire$ , subi
   if 1=2
   code$ = " memo list edit open_dialog picture 2d_target_is 2d_fill_color 2d_pen_color 2d_fill_on 2d_fill_off font_color font_size font_name "
   code$ = code$ + "font_bold font_bold_off if else end_if then repeat until for to step while end_while print print_locate right$ left$ mid$ "
   code$ = code$ + "right_pos$ len str$ val chr$ item_add item_delete item_read$ item_insert trim$ reverse$ string$ select case end_select "
   code$ = code$ + "instr lower$ upper$ count dim_local dim label alpha file_name$ file_load file_save hide show full_space or return sub end_sub "
   code$ = code$ + "image 2d_image_copy 2d_image_paste exit_for exit_repeat exit_while data restore next color caption parent main_menu sub_menu "
   code$ = code$ + "caption capion$ text text$ width height top left on_click on_change print_target_is scancode inkey$ 2d_rectangle "
   end_if : show 6
   file_load 6,"c:\Synedit_Editor\Synedit_Editor_Syntax_Panoramic_keywords.txt"
   code$ = " "

   2d_clear : hide 16 :' show 10
   if count(16) > 0
      dim_local a,aa$,bb$,cc$,dd$ , lig, i , inter,le , flag , lign , x , u
      for a = 1 to count(6) :aa$ = lower$(item_read$(6,a)) :' if right$(aa$,1) = "(" then aa$ = left$(aa$,len(aa$)-1)  + " " : message aa$
      code$ = code$ + aa$ + " " : next a
      dim_local j , six , jj$
      dim_local separ$, mask_separ$, mask_text$, mask_quote$, mask_out$, res%
      mask_separ$ = "*" : mask_text$ = "=" : mask_quote$ = "{}"
      ' *****************
      separ$ = "' =+,:()"
      ' *****************
      inter = 17
      lig = 1 : lign = 1
      if fin > count(16) then fin = count(16)
      if debut > count(16) then debut = count(16)
      for a = debut to fin

         if lig = 1
            2d_pen_color 255,0,0    : 2d_line 105,20,105,height(10)
            2d_pen_color 0,255,0    : 2d_line 134,20,134,height(10)
            2d_pen_color 110,110,255: 2d_line 161,20,161,height(10)
            2d_pen_color 255,160,0  : 2d_line 188,20,188,height(10)   :' +27
            2d_pen_color 250,61,165 : 2d_line 215,20,215,height(10)
         end_if
         ' image_copy()
         aa$ = item_read$(16,a)
         bb$ = left$(aa$,6)

         aa$ = right_pos$(aa$,7) : le = len(aa$) : aa$ = trim$(aa$) : caption 0,aa$
         ' text 7,aa$
         print_locate 20,lig*inter
         if aa$ <> ""
            2d_fill_color 220,220,220 : font_color 10,150,150,150
            i = (le - len(aa$) ) * 9 : flag = 0
            if a > 1 and right$(aa$,4) = "..._" then aa$ = left$(aa$,len(aa$)-4) : flag = 1
            if left$(bb$,3) = "==>"
               2d_fill_color 218,236,211:font_color 10,200,100,100 : 2d_pen_color 200,100,100
               2d_line 30  ,lig*inter+8 ,68+i , lig*inter+8  : 2d_line 68+i,lig*inter+8 ,60+i ,lig*inter+2 :  2d_line 68+i,lig*inter+9 ,60+i ,lig*inter+14
               2d_line 30  ,lig*inter+8 ,30   ,lig*inter-2   : 2d_fill_on  : 2d_circle 30,lig*inter+2,3 : 2d_circle 62+i,lig*inter+8,3
               lign = lign+1
            else
               print bb$
               lign = lign +1
            end_if

            print_locate 75+i , lig*inter
            2d_fill_color 255,255,255 : font_color 10,0,0,100
            rem "==================================================================
            rem "*       traitement des commandes                                 *
            rem "==================================================================
            ' message "for a="+str$(a)
            ' clear 6
            ' message "clear 6"
            cc$ = aa$ : subi = 0

            repeat
               ' message "entrée" + chr$(13) + aa$
               if left$(cc$,2) = "' " then font_color 10,204,7,158 : cc$ = "" : exit_repeat

               if left$(cc$,4) = "sub " or (right$(cc$,1) = ":" and right$(cc$,2) <> " :" )
                  font_color 10,0,0,200
                  2d_pen_color 230,0,0 : 2d_fill_color 242,227,60 : ' 2d_rectangle 72,lig*inter    , (len(cc$)-2) *9 + 110 , lig*inter+10  :' 2d_fill_off :
                  font_size 10,10
                  print_locate 75+i , lig*inter-2
                  if left$(cc$,4) = "sub"
                     print "SUB " : print_locate 85+ 4*9,lig*inter -2
                     print right_pos$(cc$,1) : 2d_fill_color 255,255,255 : x = 85+4*9 + text_width(cc$,10)
                     print_locate x,lig*inter -2 : print string$(100," ")
                  else
                     print cc$ : 2d_fill_color 255,255,255 : x = 48 + 4*9 + text_width(cc$,10)
                     print_locate x,lig*inter -2 : print string$(100," ")
                  end_if
                  cc$ = ""

                  2d_fill_off  : font_size 10,9  : subi = 1
               ELSE
                  ' on met en tableau la ligne
                  six = 0
                  ' caption 0,cc$ +"<<== len(cc$)" + str$(len(cc$))
                  ' *****************************************************************************************************************************
                  mask_out$ = string$(len(cc$)+1," ")
                  res% =          dll_call6("GenerateMask",adr(cc$),adr(separ$),adr(mask_separ$),adr(mask_text$),adr(mask_quote$),adr(mask_out$))
                  res% = dll_call6("GenerateMaskFragments",adr(cc$),adr(separ$),adr(mask_separ$),adr(mask_text$),adr(mask_quote$),handle(6))
                  ' *****************************************************************************************************************************

                  if count(6) > 0
                     ' caption 0,cc$ +"<<== len(cc$)" + str$(len(cc$))+"  count(6)="+str$(count(6))
                     j = 1 : x = i + 75
                     repeat
                        ' if left$(item_read$(6,j),1) = chr$(34) and instr(item_read$(6,j),")") > 0 then message item_read$(6,j)
                        jj$ = item_read$(6,j) : if right$(jj$,1) = "(" then jj$ = left$(jj$,len(jj$)-1) + " "
                                               ' item_add 7,jj$+"<==>" + item_read$(6,j)+"<=="
                                               ' caption 0,"-->" + jj$+"<--   j="+str$(j)+"  count(6)="+str$(count(6))
                        if instr(code$," "+jj$) > 0
                           font_color 10,0,0,200
                           print_locate x , lig*inter-2
                           print item_read$(6,j)
                           x = x + text_width(item_read$(6,j)+" ",10)
                        else
                                               ' if left$(item_read$(6,j),1) = chr$(34) then message item_read$(6,j)

                           if left$(item_read$(6,j),1) = chr$(34)   :  rem "CHAINE DE CARACTÈRES"
                              font_color 10,0,120,0
                           else
                              if instr(item_read$(6,j) , "'") > 0 then item_add 100,item_read$(6,j)
                              if left$(trim$(item_read$(6,j)),1) = "'"  :' là il faudra mettre le reste en violet
                                 font_color 10,154,32,142
                              else
                                 font_color 10,0,0,0
                              end_if
                           end_if
                           print_locate x , lig*inter-2  :' if left$(item_read$(6,j),1) = chr$(34) then image_copy() :' message "1"
                           print chr$(34)+item_read$(6,j)+chr$(34)
                           x = x + text_width(item_read$(6,j),10)
                           ' if left$(item_read$(6,j),1) = chr$(34) then image_copy(): show 6:' message "2"  +  chr$(13)+"j="+str$(j) :' hide 6 : hide 100
                        end_if
                        ' image_copy()
                        j = j+1  :'  text 8,j
                     until j > count(6) or scancode = 27
                     ' message "sortie" : cc$ = ""
                  end_if
                  ' dll_off : message "fermé"

               end_if


               cc$ = ""

            until cc$ = ""

            ' if subi = 0 then print aa$:' +string$(100," ")
            if flag = 1  :' 3 cercles + 1 trait
               2d_pen_color 255,0,0 :2d_fill_off:' 2d_fill_color 255,0,0
               2d_circle le*9 +36 , lig*inter+8 ,5 : 2d_circle le*9 +48 , lig*inter+8 ,5 : 2d_circle le*9 +60 , lig*inter+8 ,5
               2d_rectangle le*9+67 , lig*inter+4 , le*9+80, lig*inter+12
            end_if
         ELSE
            2d_fill_color 220,220,220 : font_color 10,150,150,150
            print bb$ : lign = lign+1
         end_if
         lig = lig +1
         ' message "until"
         ' image_copy()
         ' repeat : pause 100: until scancode=1
         if a = -1
            image_copy()
            for u = 1 to count(6)
               item_add 100,"->" + item_read$(6,u) + "<-"
            next u : end
         end_if
      next a
      ' message "lig="+str$(lig)+chr$(13)+"lign="+str$(lign)
      ' -----------------------------------------------------------------------

      2d_fill_color 255,255,255 : 2d_fill_on : 2d_pen_color 255,255,255   : ' efface restant de l'écran
      2d_rectangle 0,lign*inter , width(10),height(10)   : image_copy()
      retour = a
      file_save 10,"C:\Z\impression.bmp"

   end_if
end_sub
========================================
sub image_copy()
   2d_image_copy 5, 0,0,width(10),height(10)
   2d_target_is 0
   2d_image_paste 5,0,0
   2d_target_is 10
end_sub
=========================================
sub version_kgf()
   dim_local vers$, vers%
   vers$ = string$(25," ")
   vers% = DLL_call1("KGFdllVersion", adr(vers$) )
   message str$(vers%)+" correspond à "+vers$
end_sub
==========================================
impression:
   impression()
return

sub impression()
   dim_local res%, phnd%, chnd% , f%,opt% , imprimante$ , titre$ , ff$ , opt1%,opt2%,opt3%
   dim_local imp% , img$
   imprimante$ = "GreenCloud"
   if 1=2
      clear 6

      phnd% = adr(imprimante$)
      titre$ = "teste"
      ' res% = DLL_call1("GetPrinterNames",handle(6))  : ' choisir nom dans la liste 6


      imp% = DLL_call2("SelectWindowsPrinter",adr(imprimante$),len(imprimante$))
      message "imprimante:"+str$(imp%)

      res% = DLL_call4("PrinterManager",4,adr(phnd%),adr(chnd%),0)  :' portrait
      message "portrait:"+str$(res%)

      res% = DLL_call4("PrinterManager",1,adr(phnd%),adr(chnd%),0) : ' début impression



       '        opt1% = adr(nom_fichier$)
        '       opt2% = largeur de l'image
         '      opt3% = hauteur de l'image

      ff$ = "C:\Z\impression.bmp"
      opt1% = adr(ff$)
      opt2% = 1000
      opt3%=  700

      res% = DLL_call6("PrinterFunction",7,adr(phnd%),adr(chnd%),opt1%,opt2%,opt3%)
      res% = DLL_call6("PrinterFunction",1,adr(phnd%),adr(chnd%),0,100,100)
      message "PrinterFunction:"+str$(res%)


   ' retourner la position horizontale active

   ' res% = DLL_call6("PrinterFunction",7,adr(phnd%),adr(chnd%),1,0,0)
     res% = DLL_call4("PrinterManager",5,adr(phnd%),adr(chnd%),1) : ' copie
     message "PrinterManager  copie:" + str$(res%)

     res% = DLL_call4("PrinterManager",3,ADR(phnd%),ADR(chnd%),0): ' fermer et imprimer

  end_if :' ******************************************************************************

  res% = DLL_call4("PrinterManager",4,adr(phnd%),adr(chnd%),0)  :' portrait
  imp% = DLL_call2("SelectWindowsPrinter",adr(imprimante$),len(imprimante$))
  res% = DLL_call4("PrinterManager",1,adr(phnd%),adr(chnd%),0) : ' début impression
  
  img$ = "C:\Z\impression.bmp"
  res% = DLL_call6("PrinterFunction",7,adr(phnd%),adr(chnd%),adr(img$),3500,1970) :' pour image  4900,6950
 ' si nouvelle image:
 ' res% = DLL_call6("PrinterManager",2,adr(phnd%),adr(chnd%),0)

 ' si fini proposition:
 res% = DLL_call4("PrinterManager",3,adr(phnd%),adr(chnd%),0)


end_sub

Citation :

Klaus, je te remercie pour tes efforts, mais ça ne va pas.

Spoiler:

Code:

mask_quote$ = chr$(123)+chr$(125) : ' "{}"

"{
""

Code:

mask_separ$ = "*" : mask_text$ = "=" : mask_quote$ = "{}"

Code:

mask_separ$ = "*" : mask_text$ = "=" : mask_quote$ = chr$(123)+chr$(125)

Code:

dim hnd%, cmd%, wparam%, lparam%, buf$, res%
dll_on "User32.dll"
hnd% = .... trouver ici le handle du EDIT à lire
cmd% = 13
wparam% = 255
buf$ = string$(255," ")
lparam% = adr(buf$)
res% = dll_call4("SendMessage",hnd%,cmd%,wparam%,lparam%)

Code:

dim hnd%, cmd%, wparam%, lparam%, buf$, res%, adr%, i%, adr2%
dll_on "User32.dll"
hnd% = .... trouver ici le handle du EDIT à lire
cmd% = 13
wparam% = 255
buf$ = string$(255," ")
adr% = adr(buf$)
adr2% = adr(lparam%)
for i%=0 to 3
  poke adr2%+i%,peek(adr%+i%)
next i%
res% = dll_call4("SendMessage",hnd%,cmd%,wparam%,lparam%)

Code:

' faire un teste de transmission, partie compilateur sans dll
caption 0,"Réception"
label dire
dim editeur% , copi$
edit 10 : editeur% = handle(10):width 10,500:font_size 10,10 : on_change 10,dire
list 11:top 11,50:width 11,500 : height 11,300

copi$ = str$(editeur%)
clipboard_string_copy copi$

end

dire:
   if text$(10) = "HALT_STOP" then terminate : end
   dire()
return

sub dire()
   dim_local t$,aa$,v
   aa$ = text$(10)  : clear 11
   repeat
       v= instr(aa$,chr$(13)+chr$(10))
       if v > 0
           if v > 1
              item_add 11,left$(aa$,v-1) : aa$ = right_pos$(aa$,v+2)
           else
              item_add 11,"" : aa$ = right_pos$(aa$,3)
           end_if
       end_if
   until v=0
   if aa$ <> "" then item_add 11,aa$
  
end_sub

Code:

' teste communication avec edit compilateur
label ecrire , lire , fin
dim dll$ , exe$ , res%,message$ , recu% , handle$
left 0,600
dll$ = "c:\synedit_editor\kgf.dll"
exe$ = "c:\pano\divers\testeeditcompile.exe"
handle$ = "Réception"
dll_on dll$
execute exe$ : wait 1000

edit 10:width 10,500:font_size 10,10
button 11:top 11,40:caption 11,"écrire":on_click 11,ecrire
button 12:top 12,40:left 12,150:caption 12,"lire":on_click 12,lire
button 13:top 13,40:left 13,300:caption 13,"stop":on_click 13,fin

memo 15:top 15,80:width 15,800:height 15,300:font_size 15,10:font_bold 15

repeat
   recu%=clipboard_string_paste$
until recu% > 0 or scancode = 27
caption 0, recu%



end
=============
ecrire:
 message$ = text$(10)
 res% = DLL_call3("IPCSendMessage",adr(message$),len(message$),recu%)
return

lire:
   if count(15) > 0
      lire()
      res% = DLL_call3("IPCSendMessage",adr(message$),len(message$),recu%)
   end_if
return

sub lire()
   dim_local a,aa$ , bb$
   for a = 1 to count(15)
      aa$ = item_read$(15,a)
      bb$ = bb$+aa$+chr$(13)+chr$(10)
   next a
   message$ = bb$
end_sub

fin:
   text 10,"HALT_STOP" : gosub ecrire
   terminate

Code:

  recu%=clipboard_string_paste$

Code:

  recu% = 0
  recu$ = clipboard_string_paste$
  if numeric(recu$)=1 then recu% = val(recu$)

Citation :

recu%=clipboard_string_paste$

Klaus a écrit:

Donc, à condition de lui fournir les bons paramètres, tu peux utiliser DLL_ON "User32.dll", puis DLL_CALLx("SendMessage",hnd%,cmd%,wparam%,lparam%) pour effectuer la lecture. Le code pour cmd% doit être WM_GetText dont la valeur décimale est 14, wparam% doit être le nombre maxi de caractères attendus, y compris le zéro terminal (donc, la longueur du buffeur de réception), et lparam% doit être l'adresse du buffeur de réception.