Mettre en ordre alphabétique

Après avoir si souvent utilisé la facilité du SORT dans les LIST,
je m'aperçois que je ne sais même plus mettre dans l'ordre alphabétique
de bonnes vieilles variables tableau selon la méthode classique.
(la honte !)


Il faut dire qu'on n'est pas très aidé en panoramic,
parce qu'on n'a pas la particularité que j'avais remarquée dans tous les basics que j'avais utilisés auparavant, c'est à dire le :
if a$(i)>a$(i+1) then...
ici, ça ne marche pas, ce qui constitue d'ailleurs un manque, enfin je trouve.

J'ai fait un essai, (voir code ci-dessous)
et pas moyen que ça marche !
Si quelqu'un sait comment faire...

Code:

rem ' Tri-alphab-de-mots
dim g , i , j , m$(7) , a$
data "Bonjour" , "chien" , "chat" , "passoire" , "Livre" , "analyse" , "mou"
for i=1 to 7 : read m$(i) : next i

for j=1 to 6
 for i=1 to 6
  for g=1 to len(m$(i))
  if asc(lower$(mid$(m$(i),g,1)))>asc(lower$(mid$(m$(i+1),g,1))) and mid$(m$(i+1),g,1)<>""
    a$=m$(i) : m$(i)=m$(i+1) : m$(i+1)=a$
    exit_for
  end_if
  next g
 next i
next j

for i=1 to 7
 print m$(i)
next i

D'accord avec toi, dommage de ne pas pouvoir comparer des chaînes comme en Basic, pour les tris.
Je ne vois qu'une solution, mettre ton tableau dans un fichier, faire un SORT du fichier puis le rapatrier dans le tableau.
Pas très élégant certes... mais efficace.

Ce que je fais moi, c'est passer les éléments dans un Dlist pour les trier avec SORT et ensuite je les récupère.
Mais une question, pourquoi tu veux faire un code pour le tri, alors que SORT fait le boulot en un mot-clé.
A+

Honte à moi ! je n'avais même pas vu qu'il y avait un SORT dans Panoramic...'

Merci, Jean Claude, effectivement, c'est ce que j'ai fait.
Mais c'est dommage que je ne sois pas arrivé à faire un sort "manuel",
C'est d'ailleurs curieux, parce que théoriquement,
la formule que j'ai donnée ci-dessus devrait marcher !
(et ce n'est pas le cas du tout)
Je ne comprends pas.

(réponse à ta question :
le SORT marche pour les objets-système, pas pour les variables-tableau)

@JL35

Eh oui, tu as raison, pôvre JL35,
bientôt quadri-centenaire,
entre les siestes et la ballade quotidienne
(2 tours du massif de fleurs, d'abord dextrogyre, puis lévogyre)
(avec le déambulateur, bien sûr)
On comprends qu'il commence à perdre des boulons !

PS: au fait, il faudra encore qu'il paye le champagne !
(nombre de messages dépassant le chiffre 1000)
Frétillant, quand même encore, pour un presque quadri-centenaire !

Pour jjn4:

J'ai essayé ton programme de tri. Il marche parfaitement, avec l'ajout d'une seule ligne. En fait, tu as traité le cas où un caractère est "plus grand" que celui dans la même position du mot suvant, mais tu n'as pas traité le cas où il est plus petit !

Voici la version opérationnelle:

Code:

rem ' Tri-alphab-de-mots
dim g , i , j , m$(7) , a$
data "Bonjour" , "chien" , "chat" , "passoire" , "Livre" , "analyse" , "mou"
for i=1 to 7 : read m$(i) : next i

for j=1 to 6
 for i=1 to 6
  for g=1 to len(m$(i))
rem ********* ajout de cette ligne ici !
  if asc(lower$(mid$(m$(i),g,1)))<asc(lower$(mid$(m$(i+1),g,1))) and mid$(m$(i+1),g,1)<>"" then exit_for
  if asc(lower$(mid$(m$(i),g,1)))>asc(lower$(mid$(m$(i+1),g,1))) and mid$(m$(i+1),g,1)<>""
    a$=m$(i) : m$(i)=m$(i+1) : m$(i+1)=a$
    exit_for
  end_if
  next g
 next i
next j

for i=1 to 7
 print m$(i)
next i

Fabuleux !
Merci, Klaus.
Comme quoi, entre la théorie qu'on conçoit
et la pratique qui nous dit si ça marche,
il y a toujours une différence.

Euh...
j'ai remarqué qu'on te voyait beaucoup moins sur le forum,
je me demandais si tu boudais.
(cogitation saugrenue, bien sûr !)

Heureux d'avoir pu te rendre service.

Non, je ne boudais pas. J'avais un crash de mon système, et, honte suprême, pas de sauvegarde de mes sources... J'ai commencé par récupérer mon site web; maintenant, je suis en train de reconstituer ma DLL ce qui est presque fait. Puis, un peu de vacances autour de Pâques - ça fait du bien !

Mais je suis à nouveau présent je je suis lr forum attentivement !

Alors Klauss, on ne fait pas de sauvegarde ?
Vu ton niveau en programmation c'est impardonnable....

Eh oui, tu as raison ! Comme je l'ai dit: la honte suprême. J'avais une sauvegarde globale, mais plus ancienne que mes activités autour de Panoramic, donc inutilisable pour cet aspect. J'au eu un crash disque subit, sans que je me sois rendu compte de signes avant-coureur.

Mais, j'ai quasiment tout récupéré: pour Panoramic, tout y est, et la DLL est en cours de finition (et d'agrandissement par ajout d'un nouveau module, mais ça, c'est pour plus tard...).

J'en ai tiré la leçon, néanmoins, et je saugegarde l'essentiel sur 3 sites de stockage en ligne, maintenant. Même si un des sites disparaît...

Allez, assez bavardé, et à la soupe maintenant !