2 suggestions

J'ai deux suggestions à faire.

1. Indirection des variables
On a déjà certaines fonctions auxquelles on peut passer des noms sous forme de chaîne de caractères. Je pense à VARIABLE() et LABEL().

J'aimerais pouvoir faire quelque chose de similaire avec la commande DIM ! J'aimerais pouvoir utiliser une expression de chaîne de caractères comme nom d'une variable. Certes, cela semble impossible avec la commande DIM telle qu'elle est.

C'est pourquoi je propose l'utilisation "indirecte" des variables, tant à l'intérieur d'une expression qu'à gauche du signe "=". Pour cela, je propose le préfixe @. Je propose que ce caractère doit précéder un nom de variable existante de type chaîne de caractères, et cette variable doit contenir le nom d'une variable, éventuellement avec ses indices.
Exemples:

Code:

DIM s$

s$ = "test%"
DIM @s$ ==> DIM test%

s$ = "MonTableau(3,5)"
DIM @s$ ==> DIM Mon_Tableau(3,5)

s$ = "Totaux(4)"
charger_totaux(s$)
...
sub charger_totaux(v$)
  DIM @v$
...
  @v$(1) = 20.5
  @v$(2) = @v$(1) + 17
end_sub

Ceci permettrait plusieurs nouveautés:
- paramétrer la création de variables, en particulier en lien avec les procédures. On peut déjà le faire avec les indices d'un tableau en les passant comme expression numérique, mais actuellement, on ne peut le faire, ni avec le nom, ni avec le type de variable
- dans les procédures, pouvoir modifier les éléments d'un tableau dont le nom est passé en paramètre, ce qui est actuellement impossible
- dans une procédure, constituer de façon centralisée un tableau, dont les noms, dimensions et éléments dépendraient des paramètres passés

2. Affectation d'un tableau à un autre
J'aimerais pouvoir copier un tableau dans un autre, avec une seule commande. Bien sûr, à condition que les dimensions correspondent. Une duplication en quelque sorte. Cela pourrait se faire par une commande du type
DUPLICATE S,D
qui duplique le tableau S en tableau D
Cela pourrait donner quelque chose du genre;

Code:

dim tableau1(3,5), tableau2(3,5)
' ... ici, charger le tableau1
DUPLICATE tableau1,tableau2

ou alors ceci:

Code:

dim mon_tableau(20)
calculer_tableau("mon_tableau",20)
...
sub calculer_tableau(nom$,dimension%)
  dim_local tab_interne(dimension%)
  ' ... remplir le tableau tab_interne
  DUPLICATE tab_interne,@nom$ : ' ici, on retourne un tableau entier !

Ainsi, on peut retourner un tableau entier par une procédure, et même plusieurs !

Bonjour à tous.

Bonne idée, Klaus.

Ces fonctions pourraient être très utiles.

Pour ma part, je pense qu'il manque toujours les fonctions suivantes:

- instr (chaine$, sous_chaine$, position_depart%): recherche d'une sous-chaîne dans une chaîne, à partir d'une position initiale.

- lastInstr: même fonction, mais cette fois rechercher à partir de la fin de la chaîne.

- mid$ (chaine$, position_depart%, longueur%): extraction d'une sous-chaine d'une longueur déterminée.

- reverse (chaine$): fournit une chaîne inversée.

Ce serait bien d'inclure ces fonctions en natif dans Panoramic.

@Pan59:
Tes suggestions de fonctions de chaînes de caractères sont intéressantes. Mais celle de MID$ existe déjà, exactement avec les paramètres que tu proposes.

Pour ça, je fais
sous_chaine$ = mid$(chaine$,position_depart%,len(chaine$))
ou alors
sous_chaine$ = mid$(chaine$,position_depart%,100000)

@ Klaus,

J'ai un peu de mal à cerner ce que tu veux faire mais c'est pas grave.
Je suis toujours un peu long à la "comprenette" ...

Par contre, il existe Variable() et Label() qui nous permettent de savoir
si une variable ou un label sont déjà déclarés.
Peut être serait il bien que l'on est la même chose pour les procédures ( sub ) : Procedure()
ou tout autre appellation qui ferait la même chose ...

Peut être pourrait on aussi faire des choses du style : Variable ("a$","b%","c","t$(3)")
et autant pour les autres....

@Ygeronimi:

Tu as bien vu qu'on peut tester l'existence d'une variable ou d'un label par des fonctions auxquelles on passe une chaîne de caractères qui contient le nom à vérifier. C'est le seul moment dans Panoramic où l'on peut utiliser une variable de type chaîne de caractères, ou même une expression de type chaîne de caractères, pour "interagir" avec une variable ou un label.

Je le dis volontairement de façon aussi vague, car cela a son importance. Car, après tout, pourquoi on peut faire cela uniquement dans ce cas de vérification ? Est-ce que cela pourrait avoir un sens de mettre le nom d'une variable dans une variable de type chaîne de caractères ?

Eh bien, la réponse est OUI ! Et même un OUI très appuyé ! Surtout par rapport aux procédures. Car ce concept est puissant et permet de faire des choses vraiment intéressantes, mais il souffre d'un handicap majeur: celui d'être très limité pour retourner des valeurs !

Je sais, on a débattu longuement de ce sujet dans ce forum. J'y ai contribué moi-même, avec ma solution au problème. Mais quelque soit la solution retenue, une évidence s'impose: cela tourne toujours autour de variables globales, prédéfinies pour certaines suggestions, ou créées dans la procédure elle-même comme dans KGF_SUB.bas. Et ceci est limitatif et contraignant.

Car le vrai enjeu, c'est de pouvoir agir un un tableau. Et là, le problème est encore plus radu, car aujourd'hui, on ne peut même pas passer un tableau en paramètre en entrée à une procédure, encore moins retourner un tableau ou modifier un tableau dans la procédure. Sauf à accéder un tableau global, déclaré à l'extérieur de la procédure et dont on impose le nom...

Et c'est exactement là où je veux en venir ! Je voudrais pouvoir créer plusieurs tableaux, globalement par la commande DIM. Puis, dans une procédure, lire et/ou modifier l'un ou l'autre de ces tableaux, en fonction des besoins.

Tu le diras: il suffit de passer un paramètre dont la valeur (1, 2, 3, ...) est utilisé dans un SELECT...CASE pour choisir le tableau dans la procédure. Mais quelle lourdeur ! Cela veut dire qu'il faut coder le même traitement autant de fois qu'il y a de tableaux, et choisir une section ou une autre en fonction d'un indicateur. Et il faut que les noms des tableaux soient connus et prévus.

Problème, en-dehors de la multiplication inutile du code: comment faire pour ajouter un nouveau tableau ? Il faut dupliquer le traitement dans la procédure en définissant un nouveau code de sélection. Alors, cela exclut totalement d'avoir une procédure indépendante, distribuable auprès d'autres Panoramiciens, ce qui était pourtant un objectif essentiel pour la conception des procédures !

Donc, voilà le sens de ma suggestion: on pourrait placer le nom du tableau à traiter dans une variable et passer cette variable en paramètre à la procédure. Celle-ci utilise le nom du paramètre interne de la procédure, précédé d'un "@", et Panoramic saurait alors que le nom de la variable ou du tableau à utiliser est dans la chaîne de caractères, exactement comme pour les fonctions variable() et label(). Juste un petit exemple pour plus de clarté:

Code:

dim matrice1(8,8), matrice2(8,8), autre_tableau(12,12)
dim s$

initialiser("matrice1",8) : ' initialiser la matrice 1
s$ = "autre_tableau"
initialiser(s$,12)          : ' initialiser autre_tableau

raz("autre_tableau",12,7)  : effacer la ligne 7 de autre_tableau

duplicate tableau1,tableau2 : ' créer une copie du yableau 1 dans tableau 2

end

sub initialiser(nom$,n%)
  dim_local i%, j%
  for i%=0 to n%
    for j%=0 to n%
      @nom$(i%,j%) = i% + j%/100
    next j%
  next i%
end_sub

sub raz(nom$,n%,ind%)
  dim_local i%
  for i%=1 to n%
    @nom$(ind%,i%) = 0
  next i%
end_sub

On travaillerait ainsi facilement avec des matrices (pour ceux qui aiment les maths), on pourrait retourner facilement plusieurs valeurs, même en chaînes de caractères, à partir d'une procédure:

Code:

dim chaine1$, chaine2$,resultat%
ma_procédure("chaine1$","chaine2$","resultat%")
end

sub ma_procedure(p1$,p2$,p3$)
  @p1$ = date$
  @p2$ = time$
  @p3$ = 17*17
end_sub

Tu vois le principe ?

Je vois mieux ce que tu veux faire et j'avoue, même si je ne suis pas sûr de m'en servir beaucoup personnellement ,
que cela peut être une grande avancée pour toi qui travaille avec les dlls.

Ceci dit, je maintiens bien que hors-sujet la commande Procedure("nom de la sub") pour le retour d'une sub existante...ou pas.

Certes. Ce serait logique - pour être cohérent avec fonction() et label().

@Jack:

Tu vois, une des applications de mon idée des "variables indirectes" serait directement utile pour ma dernière contribution au niveau de la gestion des fichiers binaires. J'ai créé un système de lecture/écriture d'enregistrements e longueur fixe dans un fichier binaire, et ces enregistrements sont en fait une collection de variables Panoramic. Et c'est défini par des procédures créant une chaîne de caractères contenant la description de l'enregistrement. Variable créée systématiquement par le nom record$. Que ce serait élégant de pouvoir passer un nom en chaîne de caractères à la procédure de création, qui créerait alors la variable de ce nom pour la définition de l'enregistrement ! Et ainsi pouvoir faire facilement la gestion de plusieurs fichiers binaires, chacun avec son enregistrement ! Voici le
lien...

J'ai noté toutes ces propositions interessantes.
Le seul obstacle, c'est le temps qui me manque ...

Il n'y a aucune urgence, Jack, ni aucune obligation, bien sûr. Il est vrai que cela permettrait de faire des choses intéressantes. Et si jamais tu choisis de faire quelque chose de ce genre, ce serait super. Dans l'état actuel, il y a des solutions pour pallier à ce problème.