Outil pour déterminer le nom court d'un fichier

On a souvent besoin de connaître le nom court d'un fichier, qu'il s'agisse d'un exécutable ou d'autres choses, particulièrement en liaison avec les commandes EXECUTE et EXECUTE_WAIT.

J'ai fait un petit utilitaire qui permet de connaître ce nom de façon simple, dans tous les cas, en sélectionnant simplement le fichier dans une fenêtre d'explorateur de fichiers. Il suffit alors de copier le nom affiché dans le presse-papier pour l'utiliser dans l'éditeur de Panoramic. Voici le programme:

http://www.4shared.com/file/zsGmo_YS/NomCourt.html

Très intéressant.
Je viens de l'essayer. Au poil!
merci

Intéressant, comme dit cosmos.
Pour moi, ce qui aurait été très intéressant, ça aurait été de pouvoir appeler le programme (avec EXECUTE) avec en paramètre le nom de fichier long, et de récupérer dans le presse-papier le nom court. Donc de manière transparente, sans intervention de l'utilisateur, pour pouvoir l'utiliser dans un programme (après tout, c'est là qu'on a parfois besoin des noms courts).

Oui, je sais, mais ce ne serait possible qu'avec une nouvelle fonction DLL.

Mais je suis en train de mettre au point un mécanisme permettant d'utiliser des fonctions écrites en Delphi SANS passer par des DLL ! Il y aura prochainement des nouvelles...

En attendant, on peut déja déterminer statiquement le nom court d'un fichier, en extraire le nom court du répertoire pour le mettre dans une variable, et utiliser la partie "nom de fichier" pour construire le nom court du fichier à l'exécution.

Mais le nom court dont tu parles maitre Klaus c'est bien le nom long que l'on voit en fenetre dos, avec le signe ~ et le chiffre 1 ?
Si c'est ça, alors ça doit être possible de mettre en parametre le nom long et le transformer avec panoramic en nom court avant de l'appliquer avec execute, le tout dans la même routine.

Malheureusement ce n'est pas aussi simple !

Effectivement, ce n'est pas aussi simple. Le principe, c'est de raccourcir tous les noms de plus de 8 caractères à 6 caractères, ajouter un "~" et un chiffre, qui est le numéro d'ordre du nom du fichier transformé ainsi parmi tous les homonymes sur 6 caractères dans ce répertoire.
Exemple: tu as les fichiers suivants:
test_homonymes_premier.bas --> test_h~1
test_homonymes_second.bas --> test_h~2
test_homonymes_rtoisième.bas --> test_h~3

Malheureusement, les caractères autorisés en NTFS et interdits sous DOS entrent en ligne aussi, et là, ça devient compliqué. Pour ne nommer que quelques-uns: l'epace et le point. Windows utilise un algorithme particulier pour générer des noms courts dans ces cas, et je n'ai vraiment pas envie de reproduire cela en Panoramic - ce serait une vraue usine à gaz. D'où l'intérêt de la fonction que j'ai mise à disposition dans le serveur. On avait reproché à mon outil NomCourt.exe de ne pas pouvoir être utilisé dynamiquement dans un programme Panoramic ce qui est juste. Donc voilà le moyen de le faire - et SANS DLL !

Concrètement, ça s'utilise comment ? pour moi l'idéal serait un s/p en panoramic, sans appel à une ressource externe, c'est à dire faisant partie du source.

Dans l'état actul de Panoramic, on ne peut pas.
C'est une routine Delphi qui ne peut être mise à disposition qu'à travers une DLL ou à travers mon récent outil ServerIPC.

Voilà comment procéder:

1. Inclure, juste avant la commande END:

Code:

' configurer le serveur
label ServerIPC : gosub ServerIPC

2. Ajouter à la fin de ton programme:

Code:

ServerIPC:
dim recepteur$, id_1%, id_2%, i%, mes$

' évènements signalant la réception d'un message
label on_change_boite_reception

' définir les récepteurs et les identifiants des boîtes
recepteur$ = "test_IPC"
id_1% = -1001
id_2% = -1002

' création des boîtes à lettres
edit 101 : top 101,id_1% : left 101,id_1%
edit 102 : top 102,id_2% : left 102,id_2%: on_change 102,on_change_boite_reception

' lancer le serveur
execute "ServerIPC.exe "+recepteur$+" "+str$(handle(0))+" "+str$(id_1%)+" "+str$(id_2%)
return

3. Pour appeler la routine:

Code:

fil$ = "... nom long du fichier avec son chemin ..."
text 101,"ShortName "+fil$ + "|$"

101 est le champ edit dont l'ID est ID_1%.

4. pour récupérer le résultat:
Le nom court est déposé automatiquement dans le champ edit dont l'ID est ID_2%
L'évènement on_change est déclenché et la routine on_change_boite_reception est appelée.
Il faudra que tu crées cette routine pour y lettre ton traîtement.

Note: le serveur scrute le champ edit dont l'ID est ID_1% toutes les 1000 millisecondes, par défaut.
Cette fréquence est modifiable par la commande timer (voir la doc et le source du programme de démo).

Ca veut dire quand même qu'il faut disposer quelque part de ServerIPC.exe, c'est toujours le même problème, appel à une ressource externe.

J'avais fait quelque chose autrefois (en février, cette année je pense) en pur Panoramic: https://panoramic.1fr1.net/t569-conversion-chemin-long-chemin-court-83?highlight=nom+court
je crois qu'il restait le problème des répertoires cachés de Windows...

J'avais vu cela. C'est aussi une ressource externe, et tu l'utilises par execute_wait: c'est le shell de commande DOS, donc cmd.exe.

Mon but avec cet outil n'était pas de fournir une solution intégrée pour trouver les noms courts, mais de créer une technologie de remplacement des DLL pour pouvoir utiliser les routines Delphi. Et j'ai mis NomLong et GetVolumeList comme premières routines accessibles de cette manière. Je les ai choisies parce que c'étaient les dernières que j'avais faites et je pensais que ça pourrait avoir un intérêt. Il y en aura d'autres, toutes intégrées dans le même ServerIPC.exe. Et si déjà on a un tel module, autant y inclure toutes les fonctions intéressantes. Les suivantes seront, par exemple, mes fonctions de gestion de chaînes de caractères, toutes accessibles de la même manière.

L'intérêt de cette technique ? On n'utilise plus les DLL qui peuvent poser des problèmes et sont soumises à toute une série de contraintes (c'est entre autres la raison de la création de ma DLL DynamicallyLoadDLL.dll...). Mais on peut aller beaucoup plus loin avec cette technique: on peut établir la liaison entre Panoramic et d'autres applications dont on n'a pas les sources, par exemple...

Oui moi je dis bravo y a pas à dire

@Klaus
Euh... il y a quand même une nuance, cmd.exe est peut-être une ressource externe, mais qui existe en natif sur tous les pc, il n'y a pas besoin de l'installer, et le source panoramic fonctionne tel quel. Dans ton cas il faut installer ce ServeurIPC.exe quelque part, le programme ne fonctionnera pas n'importe où sans lui.
Cela dit je suis bien d'accord avec toi pour tout le reste, si un seul module peut remplacer tous les appels à des dll dont on ne sait pas trop si on les a ou pas (surtout si on diffuse son programme), ça sera quand même une grosse simplification.

Oui, ce sera une grosse simplification, surtout qu'il suffit simplement de copier ServerIPC.exe dans le même répertoire que celui où tu installes le programme qui va l'utiliser, il n'y a pas d'installation proprement-dite à faire, aucune modification du registre..., juste un fichier supplémentaire, pas autre chose qu'une image distribuée avec un pogramme.

Héhé :

Citation :

avec un rpogramme.

Le fameux clavier récalcitrant de Maître Klaus

Quand on participe beaucoup, comme Klaus, on fait forcément une faute de frappe de temps à autre ! toi-même, dans le post à côté:

Citation :

Ta form 1 il ets possible

ce n'est pas ça l'important, c'est quand même plus supportable que certaines fautes d'orthographe.

Corrigé ! Merci pour ces indications. J'attache une grande importance à l'usage d'un français correct, moi qui suis allemand résidant en France et naturalisé Français depuis quelques années. J'ai fait de grands efforts pour m'intégrer à la société française sur tous les plans, au premier desquels se trouve la langue, bien sûr. Et j'ai conscience que j'ai toujours besoin d'apprendre, comme dans tous les domaines, bien sûr. Panoramic et Delphi font partie de mes récentes "acquisitions", au même titre que des auteurs français, l'humour français - particulièrement difficile à pénétrer pour un allemand.

Tout ça pour dire que j'apprécie assez les critiques constructives, que ce soit sur le plan de la langue ou sur le plan informatique, car tout cela fait progresser !

Alors là, je peux te dire Klaus que tu écris parfaitement le français, aussi bien sinon bien mieux que la plupart d'entre nous, que tu ne fais pas de fautes d'orthographe, parfois une faute de frappe comme tout le monde, mais ça c'est mécanique et inévitable.
Et c'est d'autant plus admirable puisque ce n'est pas ta langue maternelle, et on ne le devinerait pas en te lisant.
Si seulement tout le monde pouvait parler aussi bien et aussi clairement que toi dans les forums...
C'est vrai qu'on parle souvent d'humour anglais ou d'humour français, quant à l'humour allemand... j'avoue que je n'en ai pas la moindre idée ! ce n'est pas très répandu, du moins chez nous, ça doit bien exister pourtant, il n'y a pas de civilisation sans humour.

Je peux dire que tu t"exprimes mieux que moi.
Je me souvient lorsque dans le temps j'allais en Allemagne (la dernière fois c'était en décembre 1976), les Allemand parlant français avaient souvent un meilleurs vocabulaire que nous.
(Pour la petite histoire, j'ai été avant d'avoir une voiture, jusqu'à Cologne à mobylette (et aussi en Autriche). C'était un autre temps.

Il faut croire que les études en Allemagne sont de meilleurs qualitées.

Détrompe-toi, Cosmos70, les études n'y sont pour rien. C'est beaucoup d'investissement personnel, des cours du soir pendant des années, une épouse française... J'ai 61 ans et je vis en France depuis 34 ans.

Autrement dit, si je calcule bien, tu es venu en France juste au moment où Cosmos est allé en Allemagne...
Est-ce qu'il y a un rapport de cause à effet ???

On s'est rejoind sans être vu, étant donné que je ne suis plus retourné depuis 76.
34 ans de vrai galère pour des problèmes que je ne commenterai pas (et en dehors de ma volonté)