begin process at 2010 02 10 00:11:17
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Trucs & Astuces

 > CHEMIN ABRÉGÉ D'UN FICHIER COMME DANS WORD ET EXCEL QD LA TAILLE EST TROP LONGUE

CHEMIN ABRÉGÉ D'UN FICHIER COMME DANS WORD ET EXCEL QD LA TAILLE EST TROP LONGUE


 Information sur la source

Note :
Aucune note
Catégorie :Trucs & Astuces Niveau :Débutant Date de création :06/10/2004 Vu / téléchargé :3 306 / 120
Auteur : olid

Ecrire un message privé
Site perso
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

Ex: "c:\programfiles\documents\monfichier.txt" devient "c:\programfiles\...\monfichier.txt"

La fonction "ShortDisplayPath" va abréger le chemin du fichier jusqua ce que ce chemin ne fasse pas plus de "MaxLenght" caracteres (50 par défaut)... Il laisse intact si c'est assez court.

C'est trés pratique pour les popmenu et liste déroulante avec une liste de chemins qui sont pas trés pratique quand la fin est cachée (trop longue) et/ou que le controle prend (automatiquement) une largeur en plein écran pour s'adapter :o((


Source

  • 'Short Display path like recents files popupmenu in Word or Excel
  • Public Function ShortDisplayPath(ByVal FullPath As String, Optional ByVal MaxLenght As Integer = 50) As String
  • Dim FileName, RootPath As String
  • If Len(FullPath) > MaxLenght Then
  • FileName = NomDossierSansChemin(FullPath)
  • RootPath = Left(FullPath, Len(FullPath) - Len(FileName) - 1)
  • Do While ((Len(RootPath) + Len(FileName) + 5) > MaxLenght)
  • RootPath = Left(RootPath, InStrRev(RootPath, "\") - 1)
  • Loop
  • ShortDisplayPath = RootPath & "\...\" & FileName
  • Else
  • ShortDisplayPath = FullPath
  • End If
  • End Function
'Short Display path like recents files popupmenu in Word or Excel
Public Function ShortDisplayPath(ByVal FullPath As String, Optional ByVal MaxLenght As Integer = 50) As String
    Dim FileName, RootPath As String
    
    If Len(FullPath) > MaxLenght Then
        FileName = NomDossierSansChemin(FullPath)
        RootPath = Left(FullPath, Len(FullPath) - Len(FileName) - 1)
        
        Do While ((Len(RootPath) + Len(FileName) + 5) > MaxLenght)
            RootPath = Left(RootPath, InStrRev(RootPath, "\") - 1)
        Loop
        ShortDisplayPath = RootPath & "\...\" & FileName
    Else
        ShortDisplayPath = FullPath
    End If
End Function

 Conclusion

Créé pour le projet "Yahoo! Messenger Plus" :
http://www.yahooplus.fr.st

Les commentaires en anglais (sorry), c'est parceque ya surtout des benevoles anglais pour le projet... .oO(fô rien demander à des francais si ya po de fric à gagner :o| )

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip REMPLIR ET METTRE À JOUR UN MENU EN TEMPS RÉEL (AVEC SOURCE ...
Source avec une capture ASTUCES POUR COPIER-COUPER-COLLER ET RÉ-INDENTER RAPIDEMENT ...
Source avec Zip Source avec une capture CONSEILS+MODULES+EXEMPLE POUR FAIRE UN PROJET MULTI-LANGUES ...
Source avec Zip RENDRE TRANSPARENT OU RÉPÉTER UNE IMAGE DANS UN PICTUREBOX
MOTIF RÉPÉTITIF DANS UN PICTUREBOX À PARTIR D'UNE SEULE IMAG...
Toutes les sources de olid

 Sources de la même categorie

AFFICHAGE SOUS EXCEL DE LA LISTE DES ' DES GROUPES par djebbipgm
AFFECTATION D'UNE ICÔNE À UN DOSSIER DANS L'EXPLORATEUR par djebbipgm
Source avec Zip CREATION DE GADGET EN VB6 par djebbipgm
Source avec Zip Source avec une capture CAPTEUR DE HANDLE, DE TITRE, DE CLASS, DE POSITION DE TAILLE... par Sechaud
Source avec Zip Source avec une capture COULEUR DANS UN RICHTEXTBOX SANS MODIFIER SELSTART OU SELLEN... par Renfield
Toutes les sources de la catégorie Trucs & Astuces

Commentaires et avis

Commentaire de jmlucienvb le 07/10/2004 08:52:54

C'est mieux avec un petit exemple...
Bon d'accord peux pas tout faire...
Je vais essayer...

Commentaire de intertek le 07/10/2004 10:30:17


J'ai eu un bug en l'utilisant
J'ai eu un InStrRev(RootPath, "\") égal à 0
J'ai corrigé de cette façon :
        Do While ((Len(RootPath) + Len(FileName) + 5) > MaxLenght)
            If InStrRev(RootPath, "\") > 0 Then
                RootPath = Left(RootPath, InStrRev(RootPath, "\") - 1)
            Else
                Exit Do
            End If
        Loop

Sinon ça marche bien :)

++


Commentaire de olid le 07/10/2004 19:26:09

Heu.. je comprend pô comment tu peux avoir un InStrRev(RootPath, "\") égal à 0... Car ya toujour au moins les deux "\\" du lecteur disque !!! :o.

Ou alors, tas donné un chemin relatif avec des "..\", non ?

Etpis, faire un "exit do", çà te donne un resultat cohérent ?

Commentaire de intertek le 08/10/2004 09:03:18


bé en fait j'ai fait une recherche sur tout mon C:\ des fichiers *.txt et systématiquement j'en ai un qui plante :

En debug sous vb j'obtiens les valeurs suivantes lors de l'erreur

? MaxLenght
100
? FullPath
C:\WINDOWS\WinSxS\x86_Microsoft.Tools.VisualCPlusPlus.Runtime-Libraries.Resources_6595b64144ccf1df_6.0.0.0_fr-FR_9d8c4a39
? RootPath
C:
? FileName
x86_Microsoft.Tools.VisualCPlusPlus.Runtime-Libraries.Resources_6595b64144ccf1df_6.0.0.0_fr-FR_9d8c4a39

Et donc le InStrRev(RootPath, "\")  avec le C: et bien ça renvoit 0, je suis désolé de reproduire ce bug :( quand au exit do si on le fait pas la boucle est infini.

Voila pour les petits détails que je peux t'apporter.

++

Commentaire de olid le 08/10/2004 12:45:34

Okidoki....le pb, cest le nom de ton fichier ; il fait plus de 100 caracteres ! :o(

il faudrait ajouter un test avant la boucle pour gérer ce cas là. Et pour renvoyer une chaine sous cette forme :

"c:\...\x86_Microsoft.Tools.VisualCPlusPlus.Runtim..."

le nom du fichier doit etre raccourci de (maxlenght - 10) caracteres en partant de la gauche... Si tu veux suivre l'exemple de Office ;op

Jai pô le temps de le corriger et mettre à jour... Pense à nous si tu le fais ;o)

Commentaire de intertek le 08/10/2004 13:23:18


Ok je vois bien vu :)

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Samsung LE26B350 LCD
Entre 359€ et 417€

Visiter le guide achat

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,562 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)