Objets depuis un fichier

Bonjour à tous
.
Dans la série des casses têtes, je vous en soumet un qui je pense vous fera tous rigoler, tellement cela va être facile pour certains.

Mon problème :

J'ai un fichier txt tout simple qui contient le nom de plusieurs objets.

Ce nombre est variable.

Pour ne pas avoir à les mettre en dur dans le programme, j'aimerais en lisant mon txt, pouvoir les avoir dans le programme.

Lire le fichier, mettre le nom dans une variable  et l'avoir sur mon écran lors de l’exécution du programme.

Je suis sur que vous allez résoudre rapidement ce problème, et je vous en remercie par avance.

Bonne journée

Voici une des colutions possibles:

Code:

dim MonFichier$
MonFichier$ = "MonFichier.txt"

list 1 : top 1,10 : width 1,200 : height 1,400
combo 2 : top 2,10  left 2,230 : width 2,200

file_load 1,MonFichier$
file_load 2,MonFichier$
end

Bonjour à tous

Merci Klaus pour l'exemple que tus as donné, mais je crois que je me suis mal fait comprendre

Voici ce que je voudrais

Au lieu d'avoir en dur dans mon programme

list 1 : top 1,10 : width 1,200 : height 1,400
combo 2 : top 2,10  left 2,230 : width 2,200

Je voudrais que cela se passe en prenant ces deux lignes qui se trouvent dans le fichier txt.

Merci

Bonne soirée

Bonsoir lepetitmarocain,

Si tu veux exécuter ton fichier txt comme un programme Panoramic il faut le convertir en EXEcutable a partir du fichier que Jack a créé spécialement pour ça, il s'agit de MAKE_EXE.
Ensuite tu le lances avec l'instruction EXECUTE.

Il s'agit du principe utilisé par les éditeurs alternatifs créés en Panoramic.

Bonsoir à tous !

@Lepetitmarocain

Ci-après, je te propose une solution qui ne fonctionne qu’avec l’éditeur original Panoramic. Cette solution n’est donc pas compatible avec les éditeurs dits alternatifs (EliP et autres consorts).

Utilise l’instruction #INCLUDE.

Démonstration :

Fichier texte que j’ai appelé « test.txt » :




Programme source Panoramic à exécuter :

Code:

#include "C:\Users\Yoda\Desktop\Dev\Panoramic\TestLPM\test.txt"
end

Résultat :

Bonjour à tous

@Marc

Merci pour ta solution, car c'est vraiment ce que je désirais faire.

Bon après midi à tous