Plugicielle pour Panoramic

Merci de vous intéresser au problème.
L'instruction SORT est celle utilisée pour montrer le résultat du tri sous Auto It. Donc celle-ci ne convient pas.
J'ai ma propre idée pour faire le tri, mais évidemment j'essayerais avant ce que vous me proposez. Pour l'instant je programme pas, j'ai d'autres problèmes à résoudre et à faire.
Je vous remercie pour vos interventions.
Bonne nuit.

Comme tu en parles sur un autre post cosmos, ce qui résoudrait le problème serait de pouvoir comparer deux chaînes comme on compare deux variables numériques, du genre

Code:

IF a$ > b$ THEN ...

Ceci existait en Basic classique (QBasic), et rendait le tri de chaînes particulièrement aisé. C'était basé sur la valeur Ascii des caractères.

Le petit truc que j'ai mis sur l'autre poste, j'aurai du le mettre ici:
programme de départ pour trier (en réalité, je l'ai simplifié, vu que le résultat ici me convient. Seulement le résultat est le même que l'instruction SORT de Panoramic. Mais je crois qu'il est possible de faire mieux.
Ce n'est pas optimiser, c'est seulement pour voir le résultat. Mais j'ai encore des essais à faire mais pour plus tard.

Code:

data  "MemoChoixStyle","MemoValideEdit","Memo_applique_Style","MemoStyleEdit","MemoClicEditStyle"
data  "Memo_Cde_Style","MemoListeStyle","Memo_Zoom","Memo_Scroll_color","Memo_Show","Memo_Hide"
data  "Memo_Size","Memo_Fonte","Memo_Color","Memo_Alpha","Memo_Fond","Memo_Attribut","Memo_Copie","Memo_Fichier"
data  "MemoCalcul","MemoData","MemoChange","Memo_Lecture_Style","quite_Memo_Include","LIRE_MemoRich","$$$"

list 1:width 1,120:height 1,350
dim a$ ,l% ,a  ,b$ , c$ , swap$ , flag%
while a$ <> "$$$"
  read a$:item_add 1,a$
  if l%< len(a$) then l%=len(a$)
end_while
item_delete 1,count(1)


list 2: left 2,130:width 2,160:height 2,350 :font_name 2,"Bitstream Vera Sans Mono"
for a = 1 to count(1)
  a$ = item_read$(1,a)
  a$ = left$(a$+ string$(l%," "),l%) + str$(a)
  item_add 2,a$
next a
' ----
list 3:left 3,300:width 3,160:height 3,350  :font_name 3,"Bitstream Vera Sans Mono"
for a = 1 to count(2)
  a$ = item_read$(2,a) : item_add 3,a$
next a

dlist 4

repeat
flag%=0 :hide 3
for a = 1 to count(3)-1
  a$ = item_read$(3,a)
  b$ = item_read$(3,a+1)
  clear 4
  item_add 4,a$
  item_add 4,b$
  sort 4
  if a$<> item_read$(4,1)
      flag% = 1
      item_delete 3,a:item_insert 3,a,b$
      item_delete 3,a+1:item_insert 3,a+1,a$
  end_if

next a
until flag% = 0 or scancode = 27
show 3
message "maintenant on compare le tri, avec l'instruction sort de Panoramic"

sort 2
' SORT de Panoramic, marche mieux que celui d'AutoIt, à moins qu'il y a des réglages sur une option
' que je ne connais pas.

Là je quitte!

Un petit programme de tri de chaînes en fonction de la valeur ascii des caractères (donc pas comme le Sort), ça utilise un script vbs:

Code:

' Tri de chaînes suivant la valeur Ascii des caractères
DIM a$, h$, i%, j%, f1$, f2$, t1, t2
DIM scr$, script$: scr$ = "Tri.vbs"
LABEL Trih, Trivbs

DATA "Tri.vbs"
DATA "Option Explicit"
DATA "' Tri de chaînes dans l'ordre des valeurs Ascii"
DATA "' Paramètres: fichieràtrier fichierrésultat"
DATA "' (peuvent être identiques)"
DATA "Dim objFso, objTextFile"
DATA "Dim arrLines "
DATA "Dim bpermute, cprovisoire, i, j"
DATA "Dim MyFile, MySortedFile"
DATA "MyFile = wscript.Arguments(0)"
DATA "MySortedFile = wscript.Arguments(1) "
DATA ""
DATA "Set objFso = CreateObject("+CHR$(34)+"Scripting.FileSystemObject"+CHR$(34)+")"
DATA "Set objTextFile = objFso.OpenTextFile(MyFile, 1)"
DATA "arrLines = Split(objTextFile.ReadAll,vbCrLf)"
DATA "objTextFile.Close "
DATA ""
DATA "bpermute = True"
DATA "Do While bpermute = True                    "
DATA "  bpermute = False          "
DATA "  For i = UBound(arrLines) To 1 Step -1 "
DATA "      If Len(arrLines(i)) > 1 Then"
DATA "          For j = 0 To i - 1 "
DATA "              If Len(arrLines(j)) > 1 Then"
DATA "                If Split(arrLines(j), Chr(44))(0) > _"
DATA "                    Split(arrLines(j + 1), Chr(44))(0) Then "
DATA "                    cprovisoire = arrLines(j)      "
DATA "                    arrLines(j) = arrLines(j + 1)    "
DATA "                    arrLines(j + 1) = cprovisoire    "
DATA "                    bpermute = True "
DATA "                End If"
DATA "              End If "
DATA "          Next "
DATA "      End If "
DATA "  Next  "
DATA "Loop"
DATA "'Write File"
DATA "Set objTextFile = objFso.CreateTextFile(MySortedFile, 2)"
DATA "For i = 0 To UBound(arrLines) "
DATA "    objTextFile.WriteLine arrLines(i)"
DATA "Next"
DATA "objTextFile.Close"
DATA "Set objTextFile = Nothing"
DATA "Set objFso = Nothing"
DATA "f"
READ script$
WHILE script$ <> scr$: READ script$: END_WHILE: ' rephasage sur les datas
FILE_OPEN_WRITE 9, "C:\Temp" + scr$
    READ script$
    WHILE script$ <> "f"
        FILE_WRITELN 9, script$: READ script$
    END_WHILE
FILE_CLOSE 9
script$ = "C:\Temp" + scr$: ' script à exécuter

HEIGHT 0, 900: WIDTH 0, 840
LIST 1: HEIGHT 1, 800: WIDTH 1, 400
DLIST 2
LIST 3: HEIGHT 3, 800: LEFT 3, 410: WIDTH 3, 400
' =================================================== A VOIR ! ================
f1$ = "C:\Temp\Test.txt": ' ***** Fichier à trier
f2$ = "C:\Temp\FTrie.txt": ' ***** Fichier résultat
' =============================================================================
FILE_LOAD 1, f1$
t1 = VAL(RIGHT$(TIME$,2))+60*VAL(MID$(TIME$,4,2))+3600*VAL(LEFT$(TIME$,2))
' GOSUB Trih: ' tri par la méthode conversion hexa
GOSUB Trivbs: ' tri par la méthode script vbs
t2 = VAL(RIGHT$(TIME$,2))+60*VAL(MID$(TIME$,4,2))+3600*VAL(LEFT$(TIME$,2))
FILE_LOAD 3, f2$
MESSAGE "Durée= " + STR$(t2-t1) + " s."
END

Trih:
FILE_LOAD 1, f1$
FOR i% = 1 TO COUNT(1)
    a$ = ITEM_READ$(1, i%): h$ = ""
    FOR j% = 1 TO LEN(a$)
        h$ = h$ + RIGHT$("0"+HEX$(ASC(MID$(a$, j%, 1))), 2)
    NEXT j%
    ITEM_ADD 2, h$
NEXT i%
SORT 2
FOR i% = 1 TO COUNT(2)
    h$ = ITEM_READ$(2, i%): a$ = ""
    FOR j% = 1 TO LEN(h$) STEP 2
        a$ = a$ + CHR$(HEX(MID$(h$, j%, 2)))
    NEXT j%
    ITEM_ADD 3, a$
NEXT i%
FILE_SAVE 3, f2$
RETURN

Trivbs:
EXECUTE_WAIT "Wscript.exe " + script$ + " " + f1$ + " " + f2$
RETURN

D'accord, mais avec AutoIt je vais pas faire un tri vbs en plus. Cela ferait 3 langages.

J'ai fait un petit essai. est-ce que vous ne croyez pas que pour des labels, c'est ce qu'on recherche?

Code:

data  "MemoChoixStyle","MemoValideEdit","Memo_applique_Style","MemoStyleEdit","MemoClicEditStyle"
data  "Memo_Cde_Style","MemoListeStyle","Memo_Zoom","Memo_Scroll_color","Memo_Show","Memo_Hide"
data  "Memo_Size","Memo_Fonte","Memo_Color","Memo_Alpha","Memo_Fond","Memo_Attribut","Memo_Copie","Memo_Fichier"
data  "MemoCalcul","MemoData","MeMO_applique_Style","MEmoChoixStyle","quite_Memo_Include","LIRE_MemoRich","$$$"
width 0,900
list 1:width 1,120:height 1,350
alpha 11:left 11,000:top 11,355:caption 11,"lecture data"
dim a$ ,l% ,a  ,b$ , c$ , swap$ , flag% ,b ,a1$,b1$
while a$ <> "$$$"
  read a$:item_add 1,a$
  if l%< len(a$) then l%=len(a$)
end_while
item_delete 1,count(1)
l%=l%*2

list 2: left 2,130:width 2,300:height 2,350 :font_name 2,"Bitstream Vera Sans Mono"
alpha 12:left 12,130:top 12,355:caption 12,"transformation"
for a = 1 to count(1)
  a$ = item_read$(1,a)  :b$=""
  for b =1 to len(a$)
      if mid$(a$,b,1) <>"_" then b$=b$ + upper$(mid$(a$,b,1))+ mid$(a$,b,1)
  next b : a$=b$
  a$ = left$(a$+ string$(l%," "),l%) + right$("  "+str$(a),3)
  item_add 2,a$
next a
sort 2

' ----
list 5:left 5,450:width 5,120: height 5,350
alpha 15:left 15,450:top 15,355:caption 15,"tri original"
for a = 1 to count(2):item_add 5,"":next a  :' on rempli les item pour pouvoir insérer à différente hauteur
for a = 1 to count(2)
  a$=item_read$(2,a)      :' on lit le data
  b = val(right$(a$,3))  :' et la position
  item_delete 5,a:item_insert 5,a, item_read$(1,b)
next a

' --------
list 6:left 6,600:width 6,120:height 6,350
alpha 16:top 16,355:left 16,600:caption 16,"list 1 + SORT 1 pour comparaison"
for a = 1 to count(1)
  item_add 6, item_read$(1,a)
next a
sort 6

Je fais une copie de chaque data, en copiant chaque lettre en Majuscule, puis celle lu, et j'évite "_" qui perturbe le suivie dans la liste.
C'est le tri original du 3ème list, le 4ème étant la première liste triée avec SORT

J'ai codé le tri des label, et pour le choix, j'ai mis un CHECKBOX devant le bouton label.
Je ne vais pas mettre ce soir le plugin, il faut que je corrige une erreur, pour la création de la liste de tout nouveau programme, et pouvoir par la suite rappeler directement l'un deux.
Comme j'ai pas beaucoup de temps, je regarderai demain soir ceci.

Je viens d'essayer les propositions que vous m'avez donné. J'ai rien à dire de particulier, si ce n'est que cela marche.

Pour ma part, j'ai utilisé le procédé que j'ai mis plus haut, dont vous n'avez pas donné votre avis. Je trouve que pour des labels, cela me semble cohérent. C'est vrai que c'est pas la méthode ASCII, mais en tenant pas compte des majuscules, il y a la suite que je commenterai comme logique, de lecture des labels. Je dis logique, car si vous écoutez la liste au lieu de la lire, elle est triée. voici deux exemples pris sur le site:

Spoiler:

Spoiler:

Là c'est le résultat de se qui est codé. J'espère que cela convient ainsi.

Oui pour ton cas de figure, c'est en effet le plus logique selon moi

Je me suis planté en sélectionnant. Quand le sujet n'est pas plus dans la liste déroulante,je clique sur un lien.
Je remets ici ce qui a été mis ailleurs.

J'ai téléchargé la version du pluging avec le tri des labels.
J'ai rectifié l'erreur concernant la liste des programmes ouverts avec Panoramic par le pluging.

Apparemment cela fonctionne bien.
Je voulais faire la sélection pour rouvrir l'un des anciens fichiers, mais je me suis trompé. La solution que j'avais choisie, ne permet pas de sélectionner un item.

Je me demande si je ne vais pas plutôt agrandir le pluging le temps de la sélection, et de mettre en liste tous les fichiers. Après la sélection, la fenêtre reprend ses dimensions. Cela me paraît le plus simple
Voir le Fichier : Pluging_Pano.7z

Salut,

Ça marche, la case à cocher, c'est nickel. J'ai constaté que tu as déplacé les boutons vers la droite, çà c'est très pratique, çà fait gagner un clic à chaque intervention sur ton plugin. Du coup tu peut agrandir le plugin vu qu'il est en arrière plan.

A+

Bon, une nouvelle version.
le lien qui devrait être le même, je vérifierai lorsque j'en aurai le temps:
Voir le Fichier : Pluging_Pano.7z

Le bug sur le fichier gardant en mémoire les anciens programmes est résolu.
Lorsqu'ont quite avec "stop", une boîte de message demande confirmation.

Il y a un ToolTip qui montre le chemin du fichier en cours. Cela existait déjà, mais vu la faible largeur de la fenêtre, on ne voyait qu'une partie du cheminement. On peut d'ailleurs le cacher, si cela pose une gêne pour des boutons.

Il y a un bouton en plus, permettant de rouvrir un ancien programme. On clique dessus, on choisit dans la liste, et celui-ci se rajoute à l'éditeur.

Il y a une chose que je ne sais pas, c'est le fonctionnement sur les nouveaux PC en 64 bits. Vu qu'il y a une case à cocher avec "compile X64 version", je ne sais pas ce que je dois faire.

Cosmos, désolé, je ne testerais pas, j'ai tro pde problème avec internet en ce moment, chez moi. J'espère que ça marchera mieux d'ici une semaine (peut être une réparation vendredi)

Salut Cosmos,

Le bouton ancien programme ne fonctionne pas, ou plutôt: la fenêtre pour chercher apparaît, mais si on tente une sélection, le programme bloque, rien ne se charge dans l'éditeur, on peut fermer l'éditeur Panoramic normalement, mais pour le plugin il fait passer par le gestionnaire de taches.
Je précise que j'ai fait la manip après avoir chargé un code avec open et çà c'est ok.

A+

J'ajoute que si on passe plusieurs fois par open, là c'est bon.

Le ToolTip c'est pratique !

A+

Je ne comprends pas trop bien. Chez moi ça marche impeccable.
Une chose très importante:

je ne peux pas agir avec l'éditeur dans le code, je ne le connais pas. Donc c'est par des positions de souris, des simulations de clics, des appuis de touches que j'arrive à faire ce que je fais. Aussi il faut impérativement laisser agir, et ne rien faire d'autre pendant les interventions de programme. Si je fais un clic sur une forme, pendant que vous déplacez, ou cliquez ailleurs, il se peut que cela pose problème.

Maintenant c'est quoi comme ordi? faut-il faire l'essai d'une compilation particulière pour X64? J'ai posé la question, peut-être dois-je mettre deux versions.

Il faudrait ouvrir le fichier "sauve_liste.ini" et regarder si c'est correct, le modifier si nécessaire. J'avais eu des problèmes avec le bogue que j'ai parlé.

Je suis sous XP SP3, et mon ordi est en 32bits

voilà ce qui se passe.



Dès que je sélectionne çà reste bloqué ici.
Dans le cas présent, je suis allé directement sur le bouton " ancien programme" sans avoir fait rien d'autre.

A+

Je viens de télécharger pour essayer directement depuis le site. Les essais sont concluents.
as-tu essayé de refaire un téléchargement?
C'est surprenant, vu que le programme pour open et pour les anciens programmes, ont la même fonction.

A cette heure-ci, c'est la soupe, et puis après (et oui! Dr Maison.)
Je regarderai cette nuit.

Je recommencerais demain, pour ce soir c'est terminé. Je me tape une superbe allergie au pollen, je suis HS.

bonne soupe et A+

Soignes toi bien. C'est devenu une vrai plaie, cette polution.

Ce qui serait bien, c'est d'avoir d'autre retour d'info, (je ne parle de Jicehel évidemment, qui s'investit pour être agréable!)

J'ai agrandi ton image. Je crois que cela vient de ton fichier. Il y a des répétitions de tes programmes, alors qu'il devrait n'y avoir qu'un seul nom par programme du même dossier.

C'était le bogue que je n'arrivais pas à comprendre comment cela était possible.
Il se produit normalement en se servant la fonction "Rouvre".
J'ai trouvé la cause, et corrigée.

Il te faut aller dans "C:\Panoramic_Init\sauve_list.ini". Tu retires manuellement tous les doublons, pour ne laisser qu'un programme du même nom.

Cette répétition ne se produit plus chez moi, et depuis je n'ai plus de problèmes.
Normalement il devrait être possible d'avoir jusqu'à 100 fichiers, et j'ai limité la lecture à 99. Je n'ai pas été jusque-là pour voir comment cela se passe lorsqu'on est au taquet.

Tu verras bien demain, si c'est devenu correct. Et merci pour les testes.

Bonjour,

Effectivement c'est bien un problème avec les doublons, je peut charger un programme qui n'est pas en double.

Il va falloir que je fasse un peu de ménage, je ne jette rien, mon ordinateur commence à ressembler à mon garage...

A+

bonjour,
ça me rassure. J'aime mieux cela, car autrement je ne sais pas ce que j'aurai fait.
Mais pour moi c'est une histoire à suivre, car je ne comprends pas ce problème.

Bonjour à tous.
J'ai repris ce programme, le ne trouve pas beaucoup de temps pour programmer.
Pour commencer, vu que Jean-Claude se trouvait avec une erreur, et que si je n'avais pas eu la même, je n'aurais pas su le guider.
Aussi j'ai créé une console de "débogage", pour le cas où cela se reproduirait. J'aurais pu me servir du bloc note, et je me suis dit que si celle-ci était déjà ouverte, le contenu aurait été perdu. Donc j'ai fait une console de remplacement. Cela consiste au fur et à mesure de l'avancement dans les fonctions, à mettre des repères pour voir où une erreur a étée provoqué. Il fallait que cela soit extérieur au programme, pour qu'en cas de plantage de celui-ci, les infos puissent être reprises dans la console. D'ailleurs le principe pourrait être reprit pour mettre au point une dll ou autres par exemple.

Ensuite j'ai fais la fonction RUN.
Il y a le Run du programme, c'est un fait, mais un RUN par le programme permet d'autres choses.
Ainsi pour les INCLUDES, on peut connaitre lors d'une erreur le numéro de la ligne et l'include incriminé. Ceci est codé. Je voulais coder la sortie des lignes avec le numéro, mais je me trouve devant un problème inattendu:

Apparemment il n'est pas possible de lancer une fonction CHAIN, ou un lancement en ligne de commande avec l'éditeur ouvert???Là je ne comprends pas!
Sans aller dans le Run de mon programme, avec l'éditeur Panoramic en fonctionnement, et en cliquant directement sur l'appel du programme chain, j'ai le message d'erreur: cannot Open File, avec le chemin du programme et le nom du programme. Si je ferme le plugiciel Auto It, ça marche. Je ne vois pas le rapport!
Il y a toujours la possibilité d'ouvrir une nouvelle fenêtre et de remettre le programme relisté dedans, mais c'est pas ce que j'avais prévu.

Je voulais finir cela, pour ensuite regarder une autre idée: La programmation de commande, et je pensais en particulier en premier aux DLL! Quesaco???

Personnellement je suis un peu embarrassé avec les dlls. Si je veux me servir d'une dll, il faut retrouver le chemin, et passer du temps à revoir comment cela fonctionne. Il y a des DLL simple, mais d'autres qui le sont moins, et je me suis dit que ce serait bien de pouvoir faire des commandes pour chacune d'elles.
Ainsi par exemple pour le tableur, que je suis de loin, car intéressant, mais je n'ai pas le temps de faire les essais, vu que je ne trouve pas beaucoup de temps pour programmer en ce moment avec des journées dures. Je ne sais pas comment cela fonctionne. Mais déjà il pourrait y avoir: OPEN_TABLEUR, les commandes pour celui-ci, puis CLOSE_TABLEUR.
Même si Klaus n'a pas d'intérêt pour ce programme, j'aurais aimé avoir son avis sur ceci. (je fais la remarque suivante: close tableur, c'est dll off, mais en suivant un programme complexe, y mettre le nom, permet de suivre et de savoir ce quelle dll on s'occupe. Si on en a 36, comme on dit, en disant laquelle on ferme, et laquelle on ouvre, on se retrouve plus facilement. Je ne sais pas si je pourrais avoir son avis, et c'est son droit de ne pas le donner, ce serait bien d'avoir des commandes avec des mots-clés repérables. Mais pour chaque dll, il faut rentrer dedans, et trouver les mots-clés adéquat. (Je m'excuse Klaus, je ne voudrais pas t'ennuyer, et tu n'es pas obligé de répondre)
Maintenant il faut que je trouve la solution pour lancer le programme RUN

Oh, je vais te répondre, Cosmos70. Je suis souvent absent, ces derniers temps, et ne peux me connecter à internet que sporadiquement.

C'est vrai, je n'ai pas encore plongé dans ton programme. Ca viendra sûrement, mais pour le moment, je suis assez absorbé sur le plan personnel, et il ne me reste que peu de temps que j'emploie pour le tableur. Mais je vais réfléchir à te fournir une synthèse des commandes à utiliser pour commander le tableur. Après, ce que l'on fait DANS le tableur, est ouvert à chacun.

Il n'y a pas de problème, je connais ton travail, et vu ta production, ce n'est pas moi qui vait te dépassait. Cela dit, c'est la même chose pour moi concernant ton travail. Je n'ai pas le temps de rentrer dedans (surtout en ce moment, c'est la période la plus dure pour moi).

Dans le cas où ce programme peut t'intéresser, je vais revoir ma position, car je me demandais si finalement, il avait un intérêt pour quiconque. La dernière version, il n'y a eu que 2 téléchargements, et je pense que ce n'est que pour tester.
Ça ne me gêne pas d'aller plus loin, mais je n'aime pas occuper un terrain pour une chose, dont je serais le seul à voir l'intérêt.

De plus maintenant que je vois le problème de la fonction CHAIN, ou de la LIGNE de COMMANDE, qui ne fonctionne pas avec Autoit en arrière-plan, sera remettent en cause mes possibilités.

J'y suis arrivé à faire le RUN depuis le programme. J'ai recomposé en exemple les lignes complètes d'un programme avec des includes imbriqués. Ce nouveau programme je l'ai incrusté dans Panoramic, je l'ai exécuté, et effacé. Alors là, je me suis demandé quel intérêt de faire cela, et j'ai reconsidéré la question. J'ai modifié le bouton Run en contrôle, et celui-ci peut servir dans le cas suivant. Si lors de l'exécution d'un programme, une erreur apparaît sur une ligne, il suffit de relever ce numéro, et avec le bouton contrôle, voir les 3 lignes (la précédente et la suivante) avec le nom de l'include et le numéro de ligne de celui-ci.
Maintenant que cela pour la visualisation de ces lignes, est en grande partie faite, je ne sais plus comment je dois concevoir la création de commande, vu que je n'ai plus le RUN en partie détruite. Je m'étais dit que les interférences pour réaliser cela, allaient déranger. Faut -il programmer des commandes en remplacement, et une fois faite, sauvegarder le tout pour retrouver ensuite ces commandes décryptées en lignes de remplacement pour être lues par Panoramic? Peut-être avoir un bouton de relecture sur disque? Maintenant si cela se fait, je pense qu'en premier il faudrait commencer par une DLL plus simple que le tableur, pour faire les premiers testes, et faire les critiques.

J'ai l'impression que ce programme n'est pas près d'être fini.
Il y en a qui vont faire une drôle de tête à voir ce programme dans le temps.

Suggestion: j'ai une DLL très simple: WindowsVersion.dll. Elle a 2 fonctions très simples:

Code:

dim x%
x% = dll_call0("IsWin64")

Cette fonction retourne la valeur 1 si le système est une version 64 bits, et 0 sinon. Il n'y a pas de paramètres.

Code:

dim x%,version$
version$ = string$(255," ")
x% = dll_call1("GetWindowsVersion",adr(version$))

Cette fonction retourne dans la variable version$ une description très détaillée de la version de Windows, avec toutes ses variantes.

Pour un essai, je pense que ce sera un bon candidat. Pas de gestion d'écran, pas d'entrée/sortie.