PureBasic

Et pourquoi pas un truc du genre

Procedure.s FichierSortie(fichier.s)

Protected.s extension
Protected.s nouvelle_extension
Protected.s path = GetPathPart(fichier)

Repeat
extension = GetExtensionPart(fichier)
fichier = GetFilePart(fichier, #PB_FileSystem_NoExtension)
If extension ...

1:
Tu as certainement raison, le simple nom de l'exécutable doit suffire. Habitude de vieux, j'ai toujours indiqué le chemin complet des programmes que j'exécute avec la commande Runprogram.
Quand je parle de la variable d'environnement "Path", c'est celle du système.

2:
J'aurais appris quelque ...

Je suis sous Windows 10 x64.

Raison des modifications:

ProgramName = #PB_Compiler_Home + "Compilers\" + "PBCOMPILER.EXE"
Parce que le chemin du compilateur n'est pas dans le path (variables d'environnement).

ProgramDirectory = #PB_Compiler_Home + "/COMPILERS/" => C:\Program Files (x86)\PureBasic ...

Comme tu me l'a demandé ici , voici ton code avec les quelques modifications apportées.
Ligne 146: ProgramName = #PB_Compiler_Home + "Compilers\" + "PBCOMPILER.EXE"
Ligne 147: ProgramDirectory = #PB_Compiler_Home + "Compilers\"
Ligne 149: ProgramId = RunProgram(ProgramName, #DQUOTE ...

Merci pour cette démonstration.

J'ai réussi à faire fonctionner ton code en modifiant quelque peu les chemins d'accès du compilateur et du source généré.
Cet exemple est certainement instructif au niveau de l'utilisation du compilateur, mais en pratique je crois que pour en arriver au résultat ...

@Ollivier: Merci pour ces précieuses explications. J'avoue avoir du mal à comprendre toutes les subtilités des macros, et à la vue de leurs possibilités c'est bien dommage... Il va vraiment falloir que je m'y penche plus sérieusement.

Je ne maitrise pas très bien les macros, mais c'est à essayer (en supposant que le label des données est bien S1, S2, S3...):
Macro myRestore(n)
Restore S#n
EndMacro

Procedure Clic_Btn_Precedant() ;Reculer d'une série
Select EventType()
Case #PB_EventType_LeftClick
S - 1
myRestore(S)
Lire ...

Dans ton code d'origine il suffit simplement de remplacer
par

Le décalage observé est dû au fait que ton fichier "Base.TXT" est au format UTF8.

Dans ce format certains caractères comme les caractères accentués sont codés sur 2 octets alors que les autres ne le sont que sur 1 seul.

Passe ton fichier texte en ASCII ou en Unicode en utilisant respectivement #PB ...

Si c'est sous Windows, en passant par l'API.
A voir si ça fonctionne:

Prototype.l pGetPrinter(hPrinter.l, Level.l, buffer.l, pbSizel, pbSizeNeeded.l)
Prototype.l pOpenPrinter(pPrinterName.s, phPrinter.l, *pDefault.PRINTER_DEFAULTS)
Prototype.l pClosePrinter(hPrinter.l)

Define.pGetPrinter ...

Si tu es sous Windows tu peux essayer d'ajouter après la suppression de tes items le code suivant:
SendMessage_(GadgetID(0), #LVM_ARRANGE, #LVA_ALIGNTOP, 0)

Ou sinon, toujours après la suppression:
SetGadgetAttribute(0, #PB_ListIcon_DisplayMode, #PB_ListIcon_List)
SetGadgetAttribute(0, #PB ...

J'ai essayé de faire ce module pour mes besoins. Quelques fonctions similaires existaient bien, mais aucune ne retourne le chemin du fichier dans lequel on sélectionne l'icône.

Je ne suis pas expert, mais ça semble fonctionner comme il faut, aussi bien compilé en Unicode ou non.

DeclareModule ...

Idem avec 2 écrans, la mémoire augmente.
En désactivant le deuxième écran ça reste stable.

windows 10x64 - PB 5.60x86

Le code fonctionne aussi bien pour les items du menu que pour ceux des sous-menus: